MailItemを送信、MsgBoxを表示

Question

メッセージを送信し、そのメッセージが送信されたことを表示しようとしています。このような何か：

msg.Send 
MsgBox "Message has been sent" 

残念ながら、Outlookが送信トレイにメッセージをダンプし、ダイアログボックスが閉じられたまでは受信/送信を処理しません。

送信/受信を強制して送信トレイをクリアするのを待っているが、残念ながらこのコードは永遠にブロックされます（マクロが実行されている間に送信ボックスが送信されず、マクロは送信する送信トレイ）：

msg.Send 

Set nsp = Application.GetNamespace("MAPI") 
Set sycs = nsp.SyncObjects 
For i = 1 To sycs.Count 
    sycs.Item(i).Start 
Next 

Set outb = nsp.GetDefaultFolder(olFolderOutbox) 
Do While outb.Items.Count > 0 
    DoEvents 
Loop 

MsgBox 

私が望むものを達成するための簡単な方法はありますか？

Answer 1

[送信済みアイテム]フォルダのItems.ItemAddイベントを使用します。