MailItem Gönder, Görüntüle MsgBox

Question

Bir ileti göndermeye ve gönderildikten sonra bir bildirim göndermeye çalışıyorum. Böyle bir şey: iletişim kutusu kapatılana kadar

msg.Send 
MsgBox "Message has been sent" 

Maalesef Outlook Giden mesajı döker ve Gönder işlemez/alma.

Gönder/Al'ı zorlamak için birkaç parçacıkları bir araya getirdim ve sonra giden kutusunun temizlenmesini beklemeliyim, ancak maalesef bu kod sonsuza dek engelleniyor (Giden Kutusu makronun çalışırken hiç göndermediği ve makroyu beklerken) göndermek için Giden kutusu: istediğimi elde etmek için herhangi basit bir yolu

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 

var mı?

Answer 1

Gönderilen Öğeler klasöründeki Items.ItemAdd olayını kullanın.