OutlookVBAのメール表示について

Question

Outlookにて、
『Outlook上でメールを開く操作をした時に、メールの件名を判断して、メール本文をExcelファイルに保存を行う』
ような処理を入れたいと考えています。

mailitem.Displayでメールの表示はできたのですが、
下記のような、If文に組み込むと 『functionまたは変数が必要です』と、表示されてエラーとなります。

メールの件名を判断する箇所、メール本文をExcelファイルに保存をする箇所まではできたのですが、
『Outlook上でメールを開く操作をした時に』という箇所ができませんでした。

If文にDisplayを組み込むことはできるのでしょうか？
教えていただけますと幸いです。

・参考コード
Private Sub Application_ItemLoad(ByVal Item As Object)
Dim mailItem As mailItem
Set mailItem = Item

If mailItem.Display() Then

Comments

[takito]

`If メール表示 then` の部分は何を判断させたくてそう書いたのでしょうか？表示そのものの成功／失敗でしょうか？

[hsk]

具体的な回答を得たいのでしたら、（機密情報は伏せてから）具体的なコードを載せる必要があります。

[Dori]

tatikoさん、hskさん　ご指摘ありがとうございます。もう少し具体的な質問にすべく、追記いたします。

Answer 1

（コメントの補足をいただいて）

『Outlook上でメールを開く操作をした時に』

の個所は次のようなコードで実現できると思います。

Private WithEvents g_mailItem As mailItem ''(1)

Private Sub g_mailItem_Open(Cancel As Boolean) ''(2)
    MsgBox g_mailItem.Subject   '' サンプル：件名をメッセージボックスで表示
End Sub

Private Sub Application_ItemLoad(ByVal Item As Object) ''(3)
    Dim mailItem As mailItem
    
    If TypeOf Item Is mailItem Then  ''(4)
        Set g_mailItem = Item
    End If
End Sub

あからじめ、MailItem型のグローバル変数を用意して(1)、MailItem.Openイベントを定義しておきます(2)。

そしてApplicationオブジェクトの(Application.ItemLoad)[https://msdn.microsoft.com/ja-jp/library/office/ff868544.aspx]イベントを定義します(3)。メールや予定表などのアイテムひとつを読み込むときに呼び出されるイベントです。対象が仮引数Itemに入っています。このItemの内容がMailItemである場合(4)には、これを(1)で用意してある変数にセットします。すると、開いたときに(2)のイベントが呼び出されます。メールメッセージは(4)でMailItem型のグローバル変数に入れてありますので、これを参照して件名を判断したり、エクセルファイルに保存したりできます。

---

もしかして

Private Sub Application_ItemLoad(ByVal Item As Object)
    Dim mailItem As mailItem
    Set mailItem = Item
    
    If mailItem.Display() Then
    
    Else
    
    End If

End Sub

のようにしているのでしょうか？

mailitem.Display() は戻り値がないメソッドですので、If 文には判断のしようがないのでしょう。

「特定のメール」「何らかの処理」が、具体的に何なのかを書いていただければ、具体的な回答が得られると思います。

Comments

[Dori]

別回答者様への返信と重複してしまい恐縮です。

やりたいことは、
『Outlook上でメールを開く操作をした時に、メールの件名を判断して、メール本文をExcelファイルに保存を行いたい』になります。
メールの件名を判断する箇所、メール本文をExcelファイルに保存をする箇所まではできたのですが、
『Outlook上でメールを開く操作をした時に』という箇所ができませんでした。
コードに関してはまさしく、hskさんが記述いただいた通りでございます。

戻り値がないことを理解しました。
If文で対応できないということですが、
もし、ほかに方法があれば教えて頂きたく。

[hsk]

なるほど、了解しました。
回答を編集しましたので、ご覧頂ければと思います。

Answer 2

やりたいことがイマイチ掴みきれません。
・マクロを実行したときにメールを開き、そのメールの内容によって続けて何らかの処理をしたい？
・Outlook上でメールを受信した時に、メールの内容を判断して何らかの処理を行いたい？
・Outlook上でメールを開く操作をした時に、メールの内容を判断して何らかの処理を行いたい？

もう少しやりたいことを具体的に書いていただけると助かります。
また、既に作成されたというコードと今回やりたいことの関連性についても補足いただけると助かります。

回答をうけて追記

OutlookVBAには触れたことがなく、また手元にOutlook環境がないので、自分からは一般論的な見解でアドバイスさせていただきますm(__)m

『Outlook上でメールを開く操作をした時に』という箇所ができませんでした。

ということですが、これはhskさんからも回答があるとおりメールを開いたときに発生するイベント内で処理を記述すればよいと思います。

---

今回の主な質問は

If文にDisplayを組み込むことはできるのでしょうか？

というものでしたが、メールを開いたときに発生するイベント内で処理するということは、メールを開く操作はすでに行っているということになります。
プログラム側からmailItem.Displayで開いてあげる必要はなさそうな気がします。
（すみません、ここらへん動作環境がないため推測で言っています。）

---

判定したい内容は「メールの件名」であって、Display関数の結果ではないですよね。

今回の行いたい処理

メールの件名を判断して、メール本文をExcelファイルに保存を行いたい

をそのままコードに書くと、

If メールの件名判断 = True Then
    '処理対象の件名の場合
    Excelに出力する関数
End If

となります。

メールの件名を判断する箇所、メール本文をExcelファイルに保存をする箇所まではできた

ということですので、これを上記の流れに乗せてあげればよさそうです。

頑張ってみてください。

Comments

[Dori]

やりたいことは、
『Outlook上でメールを開く操作をした時に、メールの件名を判断して、メール本文をExcelファイルに保存を行いたい』になります。
メールの件名を判断する箇所、メール本文をExcelファイルに保存をする箇所まではできたのですが、
『Outlook上でメールを開く操作をした時に』という箇所ができませんでした。
コードに関してはまさしく、hskさんが記述いただいた通りでございます。