Mit folgendem Code, der von Winword aus gestartet wird, soll automatische eine Mail versendet werden. Dabei soll die Nachricht „Versendet“ ausgegeben werden.
Im Klassenmodul:
Public WithEvents myitem As Outlook.MailItem
Private Sub myItem_Send(Cancel As Boolean)
MsgBox „Versendet“
End Sub
Im Modul
Dim Mailclass As New Klasse1
Sub Mailing()
Set Mailclass.myitem = Outlook.CreateItem(olMailItem)
With Mailclass.myitem
.To = „[email protected]“
.Display
End With
End Sub
Problem:
Die Meldung „Versendet“ wird nicht angezeigt, da die Prozedur myItem_Send nicht ausgeführt wird.
Wird dieser Code jedoch aus Excel ausgeführt, dann funktioniert die Prozedur myItem_Send
Oder wird im Code .Display mit .Send ersetzt, dann funktioniert es auch. Aber die Mail sollte ja eben vor der Versendung editierbar sein.
Wo liegt der Fehler, was muss man ändern?