VBAでのOutlook自動操作
エクセルでメールの送受信する方法はいくつかありますが、
そこで、Excelを使っていると言う事は、大抵はOutlookもインストールされているはずですので、
Outlookインスタンスの生成と、ログオン、全て送受信
Sub sample1()
Dim oApp As New Outlook.Application
Call
oApp.Session.LogOn("Outlook", "")
Call
oApp.Session.SendAndReceive(True)
oApp.Quit
Set oApp = Nothing
End Sub
※参照設定で、
Microsoft Outlook 15.0 Object Library
(バージョンは各PCに合わせて設定して下さい。)
を設定して下さい。
CreateObject("Outlook.Application")
でも良いのですが、なるべく事前バインディングするようにしましょう。
フォルダーの取得
Sub sample2()
Dim oApp As New Outlook.Application
Dim
oNamespace As Outlook.Namespace
Dim oFolder As Outlook.Folder
Dim i As Long
Set oNamespace = oApp.GetNamespace("MAPI")
i = 1
For Each oFolder In oNamespace.Folders
Cells(i, 1) = oFolder.Name
i = i + 1
Next
Set oFolder = Nothing
Set oNamespace =
Nothing
Set oApp = Nothing
End Sub
ここでのGetNamespaceは、"MAPI"のみです。
そして、これは、Sessionと同一になりますので、以下と同じことになります。
Sub sample3()
Dim oApp As New Outlook.Application
Dim
oFolder As Outlook.Folder
Dim i As Long
i = 1
For Each
oFolder In oApp.Session.Folders
Cells(i, 1) = oFolder.Name
i
= i + 1
Next
Set oFolder = Nothing
Set oApp = Nothing
End Sub
上記は、Outlookのルート直下のみ取得しています。
Folder内のサブフォルダーを取得する場合は、
oFolder.Folders
より取得可能です。
Sub sample4()
Dim oApp As New Outlook.Application
Dim
oFolder As Outlook.Folder
Dim i As Long
Dim j As Long
i = 1
For Each oFolder In oApp.Session.Folders
j = 1
Cells(i, j)
= oFolder.Name
i = i + 1
Call sample4_sub(oFolder, i, j)
Next
Set oFolder = Nothing
Set oApp = Nothing
End Sub
Sub sample4_sub(ByVal oFolder As Outlook.Folder, ByRef i As Long, ByVal j
As Long)
j = j + 1
For Each oFolder In oFolder.Folders
Cells(i, j) = oFolder.Name
i = i + 1
Call
sample4_sub(oFolder, i, j)
Next
End Sub
メールの一覧を取得
Sub sample5()
Dim oApp As New Outlook.Application
Dim
oFolder As Outlook.Folder
Dim oItem As Outlook.MailItem
Dim i As
Long
Dim j As Long
Set oFolder = oApp.Session.Folders("Outlook
データ ファイル").Folders("受信保存").Folders("×××")
i = 1
For Each oItem
In oFolder.Items
Cells(i, 1) = oItem.ReceivedTime
Cells(i,
2) = oItem.SenderName
Cells(i, 3) = oItem.Subject
Cells(i,
4) = oItem.Body
For j = 1 To oItem.Attachments.Count
Cells(i, j + 4) = oItem.Attachments.Item(j).FileName
'保存する場合は
'oItem.Attachments.Item(j).SaveAsFile Path:="フルパス"
Next
i = i + 1
Next
Set oItem = Nothing
Set
oFolder = Nothing
Set oApp = Nothing
End Sub
通常は、処理したいフォルダーはきまっているはずですので、
上記のように、Foldersにフォルダー名を指定して特定すれば簡単です。
メールを送信
Sub sample6()
Dim oApp As New Outlook.Application
Dim oItem
As Outlook.MailItem
Set oItem = oApp.CreateItem(olMailItem)
oItem.To = "Toメールアドレス"
oItem.CC = "CCメールアドレス"
oItem.BCC =
"BCCメールアドレス"
oItem.Subject = "件名"
oItem.Importance =
olImportanceHigh
oItem.Attachments.Add "添付フルパス"
oItem.Body =
"本文"
oItem.Send
'送信せずに画面を表示する場合は、
'oItem.Display
Set
oItem = Nothing
Set oApp = Nothing
End Sub
CreateItem
で作成すれば、後は、各プロパティへの設定だけです。
VBAテスト中は、いきなりSendせずに、Displayして確認すると良いでしょう。
メールを返信
Sub sample7()
Dim oApp As New Outlook.Application
Dim
oFolder As Outlook.Folder
Dim oItem As Outlook.MailItem
Dim
rItem As Outlook.MailItem
Dim i As Long
Dim j As Long
Set
oFolder = oApp.Session.Folders("Outlook データ
ファイル").Folders("受信保存").Folders("×××")
For Each oItem In oFolder.Items
If oItem.UnRead Then
Set rItem = oItem.Reply
oItem.UnRead = False
rItem.Body = "メール受け取りました。"
rItem.Send
Exit For
End If
Next
Set oItem
= Nothing
Set oFolder = Nothing
Set oApp = Nothing
End Sub
Replyは、全員へ返信のRplyAllもあります。
添付等、他はsample6と同様になります。
メールに関しては、これくらいで大抵は事足りるでしょう。
予定表等についても、VBAで操作可能です。
どんなオブジェト・プロパティがあるかを調べる事が少々面倒ですが、
VBAコード自体は、いたってシンプルに実現できるはずです。
同じテーマ「マクロVBA技術解説」の記事
VBAでのInternetExplorer自動操作
VBAでのSQLの基礎(SQL:Structured Query Language)
VBAで正規表現を利用する(RegExp)
VBAでメール送信する(CDO:Microsoft Collaboration Data Objects)
VBAでのOutlook自動操作
ADO(ActiveX Data Objects)の使い方の要点
特殊フォルダの取得(WScript.Shell,SpecialFolders)
参照設定、CreateObject、オブジェクト式の一覧
VBAのスクレイピングを簡単楽にしてくれるSelenium
VBA+SeleniumBasicで検索順位チェッカー作成
VBA+SeleniumBasicで検索順位チェッカー(改)
新着記事NEW ・・・新着記事一覧を見る
VBA100本ノック 98本目:席替えルールが守られているか確認|VBA練習問題(3月1日)
VBA100本ノック 97本目:Accessからデータを取得2|VBA練習問題(2月27日)
VBA100本ノック 96本目:Accessからデータを取得1|VBA練習問題(2月26日)
VBA100本ノック 95本目:図形のテキストを検索するフォーム作成|VBA練習問題(2月24日)
VBA100本ノック 94本目:表範囲からHTMLのtableタグを作成|VBA練習問題(2月23日)
VBA100本ノック 93本目:複数ブックを連結して再分割|VBA練習問題(2月22日)
VBA100本ノック 92本目:セルの色を16進で返す関数|VBA練習問題(2月20日)
VBA100本ノック 91本目:時間計算(残業時間の月間合計)|VBA練習問題(2月19日)
VBA100本ノック 90本目:セルに重なっている画像の削除|VBA練習問題(2月17日)
VBA100本ノック 89本目:2つのフォルダの統合|VBA練習問題(2月16日)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.マクロって何?VBAって何?|VBA入門
5.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
6.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
7.繰り返し処理(For Next)|VBA入門
8.セルに文字を入れるとは(Range,Value)|VBA入門
9.マクロはどこに書くの(VBEの起動)|VBA入門
10.とにかく書いてみよう(Sub,End Sub)|VBA入門
- ホーム
- マクロVBA応用編
- マクロVBA技術解説
- VBAでのOutlook自動操作
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。