VBA-Outlook-E-Mail .Anzeige, Aufnahme, wenn/falls Sie manuell verschickt

Mein code zeigt eine Meldung mit basic subject, body, attachment. Neben der Benutzer manuell aktualisiert und passt die Nachricht und schicken muss. Ich möchte festhalten, Wann (wenn) die Mail gesendet wird. Ist das möglich, oder irgendwelche Tipps?

Meine Umgebung ist Office 2007 mit einer excel-basierten Makros gehen zu 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
InformationsquelleAutor ExcelCyclist | 2010-03-28
  1. 4

    Dies ist durchaus möglich, mit der _Send Ereignis im Outlook.MailItem-Klasse.

    Die Art, wie ich es erstelle ich eine Klasse namens " E-Mail-Watcher, also wenn ich die E-Mail und nicht .Die Anzeige, die ich dann erstellen Sie eine neue EMailWatcher Objekt und sagen, es zu beobachten, dass E-Mails versenden, Berichte dann wieder, wenn es passiert.

    Hier ist die Klasse, wie ich es verwenden. Im Grunde habe ich auch wahlweise können die BoolRange, so dass, wenn der Benutzer sendet die E-Mail, dass Excel-Bereich wird aktualisiert, mit Wahr. Ich kann auch die Klasse update einer Excel-Bereich mit der Zeit die E-Mail gesendet.

    Public BoolRange As Range
Public DateRange As Range
Public WithEvents TheMail As Outlook.MailItem


Private Sub TheMail_Send(Cancel As Boolean)
    If Not BoolRange Is Nothing Then
        BoolRange.Value = True
    End If
    If Not DateRange Is Nothing Then
        DateRange.Value = Now()
    End If
End Sub

    Und hier ist, wie ich es verwenden:

    With oMail
    .To = addr
    .Subject = "CCAT eVSM Utilities License Code"
    .Body = "Message body"
    .Display
End With
Set CurrWatcher = New EmailWatcher
Set CurrWatcher.BoolRange = Range("G12")
Set CurrWatcher.TheMail = oMail

    Hoffentlich das hilft...

    InformationsquelleAutor Jon Fournier
Schreibe einen Kommentar