Hallo zusammen,
Ich würde gerne Kalender Termine aus dem Outlook auslesen (Funktioniert)
Nur eigentlich wollte ich nur von Heute aus die nächsten 8 Termine Auslesen, ist dies irgendwie möglich ?
Ich würde gerne Kalender Termine aus dem Outlook auslesen (Funktioniert)
VB.NET-Quellcode
- Dim olApp = New Outlook.Application()
- Dim oNs As Outlook.NameSpace
- Dim oCalendar As Outlook.MAPIFolder
- Dim olCalendarItems As Outlook.Items
- Dim oTermin As Outlook.AppointmentItem
- oNs = olApp.GetNamespace("mapi")
- oCalendar = oNs.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar)
- olCalendarItems = oCalendar.Items
- For Each oTermin In olCalendarItems
- ListBox1.Items.Add("Subject: " + oTermin.Subject) ' = Titel
- ListBox1.Items.Add("Organizer: " + oTermin.Organizer) ' = Organisator
- ListBox1.Items.Add("Kommentar: " + oTermin.Body) ' = Kommentar
- ListBox1.Items.Add("Start: " + oTermin.Start.ToString() & " " & "Ende: " + oTermin.End.ToString()) ' = Startdatum - Ende
- ListBox1.Items.Add(" ")
- Next
Nur eigentlich wollte ich nur von Heute aus die nächsten 8 Termine Auslesen, ist dies irgendwie möglich ?