Outlook Kalender Auselen

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von sascha_10.

    Outlook Kalender Auselen

    Hallo zusammen,
    Ich würde gerne Kalender Termine aus dem Outlook auslesen (Funktioniert)

    VB.NET-Quellcode

    1. Dim olApp = New Outlook.Application()
    2. Dim oNs As Outlook.NameSpace
    3. Dim oCalendar As Outlook.MAPIFolder
    4. Dim olCalendarItems As Outlook.Items
    5. Dim oTermin As Outlook.AppointmentItem
    7. oNs = olApp.GetNamespace("mapi")
    9. oCalendar = oNs.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar)
    11. olCalendarItems = oCalendar.Items
    13. For Each oTermin In olCalendarItems
    14. ListBox1.Items.Add("Subject: " + oTermin.Subject) ' = Titel
    15. ListBox1.Items.Add("Organizer: " + oTermin.Organizer) ' = Organisator
    16. ListBox1.Items.Add("Kommentar: " + oTermin.Body) ' = Kommentar
    17. ListBox1.Items.Add("Start: " + oTermin.Start.ToString() & " " & "Ende: " + oTermin.End.ToString()) ' = Startdatum - Ende
    18. ListBox1.Items.Add(" ")
    19. Next

    Nur eigentlich wollte ich nur von Heute aus die nächsten 8 Termine Auslesen, ist dies irgendwie möglich ?

    Pack doch in die ForEach Schleife nen Counter (Deklaration aber außerhalb) und wenn der == 8 ist, dann brichste ab.
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    Ist es möglich das du mir ein kleines Beispiel machst mit dem counter :S ....

    Das ding ist ja, dass ich von Heute aus 8 Termine anzeigen-lassen möchte.

    Damit ich nur Termine ab "Jetzt" angezeigt kriege habe ich folgendes Angepasst:

    VB.NET-Quellcode

    1. For Each oTermin In olCalendarItems
    2. If oTermin.Start.ToString() < DateTime.Now Then
    3. ListBox1.Items.Add("Subject: " + oTermin.Subject) ' = Titel
    4. ListBox1.Items.Add("Organizer: " + oTermin.Organizer) ' = Organisator
    5. ListBox1.Items.Add("Kommentar: " + oTermin.Body) ' = Kommentar
    6. ListBox1.Items.Add("Start: " + oTermin.Start.ToString() & " " & "Ende: " + oTermin.End.ToString()) ' = Startdatum - Ende
    7. ListBox1.Items.Add(" ")
    8. End If
    9. Next


    Edit:

    Für die Ersten einträge habe ich dies Probiert:

    VB.NET-Quellcode

    1. ​ For I As Integer = 0 To 8
    2. For Each oTermin In olCalendarItems
    3. If oTermin.Start.ToString() > DateTime.Now Then
    4. ListBox1.Items.Add("Subject: " + oTermin.Subject) ' = Titel
    5. ListBox1.Items.Add("Organizer: " + oTermin.Organizer) ' = Organisator
    6. ListBox1.Items.Add("Kommentar: " + oTermin.Body) ' = Kommentar
    7. ListBox1.Items.Add("Start: " + oTermin.Start.ToString() & " " & "Ende: " + oTermin.End.ToString()) ' = Startdatum - Ende
    8. ListBox1.Items.Add(" ")
    9. End If
    10. Next
    11. Next

    Jedoch funktioniert es nicht ... er listet dennoch alle Termine ab Heute auf :s


    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „schnibli“ ()

    VB.NET-Quellcode

    1. Dim counter = 0
    3. For Each obj As Object in objList
    4. If counter = 8 Then Exit For
    6. 'Do stuff
    8. counter += 1
    9. Next
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    Vielen Dank für die Hilfe!!

    VB.NET-Quellcode

    1. ​ Dim olApp = New Outlook.Application()
    2. Dim oNs As Outlook.NameSpace
    3. Dim oCalendar As Outlook.MAPIFolder
    4. Dim olCalendarItems As Outlook.Items
    5. Dim oTermin As Outlook.AppointmentItem
    7. oNs = olApp.GetNamespace("mapi")
    9. oCalendar = oNs.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar)
    11. olCalendarItems = oCalendar.Items
    13. Dim counter = 0
    14. For Each oTermin In olCalendarItems
    15. If oTermin.Start.ToString() > DateTime.Now Then
    16. If counter = 8 Then Exit Sub
    17. ListBox1.Items.Add("Subject: " + oTermin.Subject) ' = Titel
    18. ListBox1.Items.Add("Organizer: " + oTermin.Organizer) ' = Organisator
    19. ListBox1.Items.Add("Kommentar: " + oTermin.Body) ' = Kommentar
    20. ListBox1.Items.Add("Start: " + oTermin.Start.ToString() & " " & "Ende: " + oTermin.End.ToString()) ' = Startdatum - Ende
    21. ListBox1.Items.Add(" ")
    22. counter += 1
    23. End If
    24. Next

Facebook
Telefonspende