Hallo
habe noch ein Script gefunden, welches leider nicht das macht, was versprochen wurde
es soll anspringen, wenn im Posteingang eine Mail kommt
leider passiert nichts
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim Item As Object
Dim Email As String
Set Item = Session.GetItemFromID(EntryIDCollection)
Item.Save
'Absender E-Mail Adresse ermitteln
Email = Item.SenderEmailAddress
'Überprüfen, ob E-Mail von bestimmten Absender
If Email = "vorname.nachname@ekiwi.de" Then
'weiteren Code und Makros hier ausführen
Modul1.MeinMakro
Debug.Print "Die richtige Mail lautet: " + Email
Else
Debug.Print "Falsche Mail lautet: " + Email
End If
End Sub
Der Code ist Unsinn.
Hast du mal nachgesehen, was in der Hilfe zu dem Event steht?