Outlook Termine nach Domäne filtern und und in Excel einfügen

grays

Grünschnabel
Hallo Liebe Community,

ich möchte checken, ob die Termine in meinem Outlook Kalender von einer gewissen Domäne stammen (also zB @gmail.com) und diese anschließend in Excel einfügen.

Ich habe folgenden Code Abschnitt verfasst:

Wobei ich meinen Outlook Kalender durchgehe und eigentlich das oben formulierte mit der if Abfrage prüfen möchte.

apt ist hieberi ein OutlookAppointmentItem
apl ist eine OutlookApplication
mail ist ein OutlookMailItem

For Each apt In apl.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar).Items


if mail.SenderEmailAdress.Contains

leider funktioniert das mit der Prüfung nicht ganz, mir werden zwar alle Kalendertermine aufgelistet, aber halt alle und nicht nur die von einer gewissen Domäne :(.

Kann mir hier einer weiterhelfen?

Lieben Dank!!
Ray
 
Gemäss Doku ist SenderEmailAdress ein String und kein Objekt. Dann geht das mit .contains nicht.
MailItem.SenderEmailAddress property (Outlook)
Also muss ein normaler Stringvergleich her
Visual Basic:
If mail.SenderEmailAdress like "*@gmail.com" Then
Test des Likes im VBA Direktfenster
Code:
? "text@gmail.com" = "*@gmail.com"
False
? "text@gmail.com" like "*@gmail.com"
True
 
Zurück