Hallo,
ich hab mich leider dumm und dämlich gesucht und finde leider nichts dazu.
Ich möchte mit einer Funktion Termine in Outlook mit Terminen in Excel abgleichen.
Dazu frage ich die MeetingItems (das sind Zu-/Absagen) in Outlook ab. Leider bekomme ich es weder hin bei
den MeetingItems den Ort oder Start/Endzeit abzufragen, da das MeetinItem die Eigenschaft nicht besitzt.
Jetzt gibt es die Funktion GetAssociatedAppointment(). Leider liefert die Funktion zum MeetingItem-Objekt scheinbar nicht das AppointmentItem, wenn der
Kalendereintrag in einem separaten Kalender (Unterordner vom Default-Kalender) ist.
Fällt irgendwem eine Möglichkeit ein die benötigten Daten doch zu bekommen?
Der Quellcode ist unten zu finden.
Schon mal vielen Dank
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | Function Check_Mailbox()
Dim MyOLApp As Object
Dim myNameSpace As Namespace
Dim folder
Dim olMail As Object
Dim olAppt As AppointmentItem
Dim manager_name
Set MyOLApp = New Outlook.Application
Set myNameSpace = MyOLApp.GetNamespace("MAPI")
Set folder = myNameSpace.GetDefaultFolder(olFolderInbox)
For Each olMail In folder.Items
If TypeOf olMail Is MeetingItem Then
If olMail.subject Like Worksheets("Liste").Cells(7, 10) Then
Set olAppt = olMail.GetAssociatedAppointment(True)
manager_name = LCase(olMail.SenderName)
check_status olMail, olAppt, manager_name
ElseIf olMail.subject Like Worksheets("Liste").Cells(2, 15) Then
Set olAppt = olMail.GetAssociatedAppointment(True)
manager_name = LCase(olMail.SenderName)
check_status olMail, olAppt, manager_name
End If
End If
Next
End Function
|