ExcelマクロからOutlookで選択中のメールを取得する方法のメモ
１．[ツール] - [参照設定]からOutlookを操作できる様に設定する。
このパソコンの場合は、「14.0」だけども数字はOfficeバージョンによって変わります。
２．選択中のメールを取得するコードはこんな感じ
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
Sub 選択中のメールを表示する() Dim objOL As Outlook.Application Dim objOLSelect As Outlook.Selection Dim objML As MailItem Set objOL = New Outlook.Application Set objOLSelect = objOL.ActiveExplorer.Selection If objOLSelect.Count = 1 Then Set objML = objOLSelect.Item(1) MsgBox "あなたの選択したメールは『" & objML.Subject & "』ですね？" Else MsgBox "いっこだけ選択してぇ" End If End Sub |
これで、objMLに選択中のメールが取得されてるから、あとは好きなプロパティを取得してね。
.Displayしたらポップアウト表示もできるよ。
とりあえず、複数選択はできないようになってるけども、複数選択したアイテムも全部コレクションで取得できてるから順番に何か処理するってこともできるよ。