Outlook VBA メール送信済で実行されるはずが、実行されない時があります。

Question

実現したいこと

• メール送信後、送信済フォルダに送信済メールが追加された時に、VBAを実行しようとしております。

前提

Windows10 Pro 21H2(OSビルド 19044.2486)
Outlook:サブスクリプション製品 Microsoft 365 Apps for enterprise

発生している問題・エラーメッセージ

VBAコードが実行できたり、出来なかったりします。
すべてのカテゴリのマクロを有効にしております。
Outlookを終了し、再度起動すると、実行されることがあります。

お手数ですみませんが、対処法のご教授をお願いできますでしょうか。

該当のソースコード

Outlook VBA
ソースコード

VBEで、Project1(VBAProject.OTM)の、Microsoft Outlook Objectsの、ThisOutlookSessionに、以下のようなコードを作成しました。


Option Explict

Dim WithEvents mySentItems As Items

Private Sub Application_ItemLoad(ByVal Item As Object)

End Sub

Private Sub Application_Startup()
    Set mySentItems = Session.GetDefaultFolder(oldFolderSentMail).Items
End Sub

Private Sub mySentItems_ItemAdd(ByVal Item As Object)

    ' 実行したいコード
    
End Sub

Answer 1

参考にしたサイト
MAPIを使った方法だといいのではないでしょうか。

’ ThisOutlookSession　モジュールに記載
Public WithEvents myOlItems As Outlook.Items

Private Sub Application_MAPILogonComplete()
    
    Set myOlItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderSentMail).Items
 
End Sub
 
Private Sub myOlItems_ItemAdd(ByVal Item As Object)
 
 MsgBox "SentMail!"
 
End Sub

Comments

[gamelandjp2]

お早いご教示、誠にありがとうございました。