Outlook-Termine
01.10.2013 13:01:37
franky
leider habe ich es bis jetzt nicht geschafft, meine Datei:
https://www.herber.de/bbs/user/87490.xlsm
so zu erweitern, damit alle Serientermine erfasst werden. Dort werden nämlich keine sich wiederholenden Termine herausgeben.
Hier die Lösung:
Im folgenden Beispiel für Visual Basic für Applikationen (VBA) wird der Betreff der Termine, einschließlich wiederkehrender Termine, angezeigt, die von heute bis morgen stattfinden.
Sub DemoFindNext()
Dim myNameSpace As Outlook.NameSpace
Dim tdystart As Date
Dim tdyend As Date
Dim myAppointments As Outlook.Items
Dim currentAppointment As Outlook.AppointmentItem
Set myNameSpace = Application.GetNamespace("MAPI")
tdystart = VBA.Format(Now, "Short Date")
tdyend = VBA.Format(Now + 1, "Short Date")
Set myAppointments = myNameSpace.GetDefaultFolder(olFolderCalendar).Items
myAppointments.Sort "[Start]"
myAppointments.IncludeRecurrences = True
Set currentAppointment = myAppointments.Find("[Start] >= """ & _
tdystart & """ and [Start] "Nothing"
MsgBox currentAppointment.Subject
Set currentAppointment = myAppointments.FindNext
Wend
End Sub
Im nachfolgenden Beispiel wird gezeigt, in welcher Reihenfolge Termine sortiert und gefiltert werden sollen, die Terminserien enthalten.
VBA
Sub SortAndFilterAppointments()
Dim myNameSpace As Outlook.NameSpace
Dim myAppointments As Outlook.Items
Set myNameSpace = Application.GetNamespace("MAPI")
Set calendarItems = myNameSpace.GetDefaultFolder(olFolderCalendar).Items
calendarItems.Sort "[Start]"
calendarItems.IncludeRecurrences = True
Set restrictedItems = calendarItems.Restrict("[Organizer]='Dan Wilson'")
End Sub
Ich danke jetzt schon allen, die mir helfen
Viele Grüße
Franky
Anzeige