VBA "Neue E-Mail Nachricht" event Outlook 2003

02/05/2008 - 12:53 von Eberhard Wagner | Report spam
Hallo,

wie kann ich beim Erzeugen einer neuen E-Mail Nachricht den Event abfangen?
Hintergrund ist, dass ich schon öfter vergessen habe, den richtigen Absender
im Konto auszuwàhlen. Ich möchte dann einfach eine Message aufrufen, die
mich daran erinnert. Unter "Application" habe ich nichts Geeignetes
gefunden, "ItemSent" geht bei mir wegen einer anderen Applikation nicht.
Gibts da irgend eine Lösung?
Vielen Dank,

Eberhard
 

Lesen sie die antworten

#1 Peter Marchert
02/05/2008 - 19:22 | Warnen spam
On 2 Mai, 12:53, "Eberhard Wagner" wrote:

wie kann ich beim Erzeugen einer neuen E-Mail Nachricht den Event abfangen?
Hintergrund ist, dass ich schon öfter vergessen habe, den richtigen Absender
im Konto auszuwàhlen. Ich möchte dann einfach eine Message aufrufen, die
mich daran erinnert. Unter "Application" habe ich nichts Geeignetes
gefunden, "ItemSent" geht bei mir wegen einer anderen Applikation nicht.
Gibts da irgend eine Lösung?



Hallo Eberhard,

versuche es mit dem folgenden Code im Modul "DieseOutlookSitzung":

Private WithEvents objInspectors As Outlook.Inspectors

Private Sub Application_Startup()
Set objInspectors = Outlook.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If InStr(LCase(Inspector.CurrentItem.MessageClass), "ipm.note")
Then
MsgBox "Absender auswàhlen nicht vergessen!" _
, vbExclamation + vbOKOnly
End If
Set Inspector = Nothing
End Sub

Private Sub Application_Quit()
Set objInspectors = Nothing
End Sub

Gruß
Peter

Infos, Workshops & Software für
Outlook®: www.outlook-stuff.com

Ähnliche fragen