outlookの本文を取得　VBA

開いているOutlookで、メール本文がアクティブになっている状態で、
その本文をVBAで取得したいです。

できれば、httpから始まるURL文字列のみ取得したいです。

outlookの起動や、参照設定まではうまくいったのですが、
どこのサイトを探してもエクセルをメール本文にペースト等のVBAばかりで、
逆が見つかりませんでした。

何卒、ご教示いただけないでしょうか。

行動規範の内容に同意します

回答2件

ベストアンサー

メール本文がアクティブになっている状態

が実際どんな状態を想定しているのかわかりませんが、特定の一つのメールを単独のウィンドウで開いている状態だと想定します。
この時のウィンドウは、Outlook.Inspectorオブジェクトです。

対して、「受信トレイ」などの画面はOutlook.Explorerオブジェクトです。

Inspector.CurrentItem から実際に開いているアイテム(メールならOutlook.MailItem)を取得できますが、
今回は

httpから始まるURL文字列のみ取得したいです。

との事なので、MailItem よりは Inspector 経由で Word の機能を使った方が簡単な気もします。

vba
1Private Sub Q180794()
2'https://teratail.com/questions/180794
3    
4    Dim appOl As Outlook.Application
5    Set appOl = VBA.GetObject(, "Outlook.Application")
6    
7    'Inspector は何らかのアイテム単独を表示した状態のウィンドウ。
8    Dim insp As Outlook.Inspector
9    Set insp = appOl.ActiveInspector()
10    
11    'メールオブジェクトの取得。メール以外のものを開いている可能性があるため判定は必須。
12    Dim m As Outlook.MailItem
13    If insp.CurrentItem.Class = Outlook.OlObjectClass.olMail Then
14        Set m = insp.CurrentItem
15    End If
16    
17    
18    'Inspector 内の本文の表示は Word の機能をベースにしている。
19    Dim mailDoc As Word.Document
20    Set mailDoc = insp.WordEditor
21    
22    Dim mailBody As Word.Range
23    Set mailBody = mailDoc.Content
24    
25    VBA.MsgBox mailBody.Text
26    
27    'Hint
28    Dim hLinks As Word.Hyperlinks
29    Set hLinks = mailBody.Hyperlinks
30    
31    Stop 'break point.
32    
33End Sub

投稿2019/03/22 14:52

imihito

総合スコア2166

goki_gottan

2019/03/22 15:04

ソースコードをくださり、ありがとうございます。アクティブとは、単独で開いている状態、メールを作成中の状態です。ですので、Outlook.Inspectorに近いかと思います。ソースコードですが、 Dim insp As Outlook.Inspector　のところで、エラーが発生します。ユーザー定義型は定義されていません。と出ます。他に表現はないものでしょうか。

imihito

2019/03/22 15:09

Outlook および Word の参照設定を追加すれば解決するはずです。もしくは型宣言を Object や Variant などにしてください(この場合は Outlook.OlObjectClass.olMail も修正が必要です)。 https://docs.microsoft.com/ja-jp/office/vba/api/outlook.olobjectclass

goki_gottan

2019/03/22 15:17

Wordの参照設定とは、エクセルVBEで参照設定でWordを選ぶという事でしょうか。申し訳ございません。今回はエクセルVBAでOutlookを操作予定です。何卒、宜しくお願いいたします。

imihito

2019/03/22 15:20

そうです。

goki_gottan

2019/03/22 15:21

ありがとうございます。Word参照で解決いたしました。たいへんありがとうございました。

行動規範の内容に同意します