Hi,
ich bin grad dabei, nen Programm zu schreiben, das mir die Outlook-Termine der nächsten x Tage auslesen soll (eigentlich mit C#, habs aber mal in VB übersetzt):
Mein Problem liegt nun dadrin, dass er mir nicht alle Termine anzeigt - ich habe für heute Abend 18:30 Uhr ein vom Serientermin abweichendes Element gespeichert, das gibt er mir aber nicht aus
und das OLrs.Sort klappt auch nicht (Fehlermeldung, dass er start nicht kennt), deswegen is das auskommentiert.
Den Code hab ich mithilfe von vbarchiv.net/forum/id5_i8327t8326.html zusammengebaut:
vG,
Lupus
ich bin grad dabei, nen Programm zu schreiben, das mir die Outlook-Termine der nächsten x Tage auslesen soll (eigentlich mit C#, habs aber mal in VB übersetzt):
Visual Basic-Quellcode
- Dim l = New List(Of String)
- Dim Outlook As New Application()
- Dim Stmp As String = ""
- Stmp += "urn:schemas:calendar:dtstart >= '" + _
- DateTime.Now.ToString("dd/MM/yyyy", System.Globalization.CultureInfo.CreateSpecificCulture("en-US")) + "'"
- Stmp += " AND "
- Stmp += "urn:schemas:calendar:dtstart < '" + _
- DateTime.Now.AddDays(5).ToString("dd/MM/yyyy", System.Globalization.CultureInfo.CreateSpecificCulture("en-US")) + "'"
- Dim OLsr As Search = Outlook.AdvancedSearch("'Calendar'", Stmp, False, "SearchWork")
- Dim OLrs As Results = OLsr.Results
- 'OLrs.Sort("[start]", true);
- For Each it As AppointmentItem In OLrs
- l.Add(it.Subject)
- Next
Mein Problem liegt nun dadrin, dass er mir nicht alle Termine anzeigt - ich habe für heute Abend 18:30 Uhr ein vom Serientermin abweichendes Element gespeichert, das gibt er mir aber nicht aus
und das OLrs.Sort klappt auch nicht (Fehlermeldung, dass er start nicht kennt), deswegen is das auskommentiert.Den Code hab ich mithilfe von vbarchiv.net/forum/id5_i8327t8326.html zusammengebaut:
vG,
Lupus
