In meinem Code wird eine Nachricht mit dem Betreff, dem Text und dem Anhang angezeigt. Als Nächstes aktualisiert und passt der Benutzer die Nachricht manuell an und sollte sie senden. Ich möchte aufzeichnen, wann (ob) die E-Mail gesendet wird. Ist das möglich oder irgendwelche Tipps?

Meine Umgebung ist Office 2007 mit einem Excel-basierten Makro für Outlook.

[Auszug]

Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon

Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
    .To = Email                 '.CC = 
    .Subject = Subj
    .BodyFormat = olFormatHTML
    .Body = Msg                 '.HTMLBody = Msg
    If Not FileAttach = vbNullString Then .Attachments.Add (FileAttach) 
    .Display
End With