VBA Outlook

Computer: Software & Programmierung Visual Basic
#1

Liebe/-r Experte/-in,
ich habe folgendes Problem:

Code:
Set myOlApp = CreateObject(„Outlook.Application“)
Set myItem = myOlApp.CreateItem(olMailItem)
myItem.To = „[email protected]“
myItem.Subject = „Betrifft …“
myItem.Display

Bei myitem.display kann ich meine vorgefertigte Ausgangsmail bearbeiten und dabei diese senden oder abbrechen.

Frage: Wie kann ich danach mit z.B. MSGBOX mir anzeigen lassen, ob die Mail verschickt wurde?
Leider läuft ja die Abarbeitung des Programmcodes nach dem Display Befehl asynchron weiter, unabhängig was ich im Mail-Fenster mache.

#2

//****************************************************
//**
Hallo Falko2!

Wäre es vielleicht nicht einfacher, wenn du das Ereignis ItemSend nimmst. Dort dir dann über eine Messagebox anzeigen lässt, ob die Mail raus ist.

Das Ereignis könnte vielleicht so aussehen:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Prüft ob die Betreffzeile mit Textinhalt versehen ist
If (Trim(Item.To) = „[email protected]“) Then
Dim msg As String
Dim sty As VbMsgBoxStyle
msg = „Betreffende Mail ist raus!“
st = vbYesNo + vbApplicationModal + vbCritical + vbMsgBoxSetForeground
If MsgBox(msg, st, „Achtung!“) = vbNo Then
Cancel = True
End If
End If
End Sub

Gruß Ersin.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]