Folgender Code erstellt (aus Word) ein neues Mail und reagiert auf Senden. Gestartet wird Sub e3_mail.
Ich möchte jedoch, dass nicht jedes Mail auf Senden reagiert, sondern nur das gerade erstellte und nicht auch später „normale“ Mails.
Dazu 2 Fragen:
Wie gehört der Code geändert
Wie kann man das WithEvent deaktivieren?

-------->Klassenmodule/Klasse1
Public WithEvents myOlApp As Outlook.Application

Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
Prompt$ = "Are you sure you want to send " & Item.Subject & "?"
If MsgBox(Prompt$, vbYesNo + vbQuestion, "Sample") = vbNo Then
Cancel = True
End If
myOLItem.Delete
End Sub

---------->Module/Modul1
Dim myClass As New Klasse1
Public myOLItem

Sub e3_mail()

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myOLItem = myOlApp.CreateItem(0)

Set myAttachments = myOLItem.Attachments
myAttachments.Add "D:\++PROJEKTE\\outlooktest1.pdf", 1
myOLItem.Subject = "Sample item"
myOLItem.Display

Set myClass.myOlApp = CreateObject("Outlook.Application")

End Sub