Termine eines Kalenders auslesen und sortieren

  • Hallo,
    es geht um eine Lösung, um die Einträge eines Kalenders auszulesen, um die nächsten aktuellen
    Termine zu erhalten.


    Dazu möchte ich die ausgelsenen Termine z.B. nach dem Start-Zeitpunkt sortieren


    Ich habe gerade begonnen mich mit VB.NET zu beschäftigen und bin hierbei nicht wirklich weitergekommen.


    Es geht also um die Sortierung der ausgelesenen MessageItems.


    Derzeit bin ich in der Lage die Termine eines Kalenders ab einem bestimmten Zeitpunkt auszulesen, und ausgewählte
    Felder von oCalendarItem z.B. in einer Datei zu speichern.


    Module Module1
    Sub Main()
    Dim oApp As DvApi32.DavidAPI
    Dim oAcc As DvApi32.Account
    Dim oArchive As DvApi32.Archive
    Dim oMessageItems As DvApi32.MessageItems
    Dim oCalendarItem As DvApi32.CalendarItem
    ..


    oApp = CreateObject("DVOBJAPILib.DvISEApi")
    oAcc = oApp.Logon
    oArchive = oAcc.ArchiveFromID("\\s01\\david\archive\12")
    oMessageItems = oArchive.AllItems


    For i = oMessageItems.Count - 1 To 0 Step -1
    If oMessageItems.Item(i).Type = DvApi32.DvItemTypes.DvCalendarItem Then
    oCalendarItem = oMessageItems.Item(i)
    ...


    Hat jemand von euch eine Idee ?


    Besten Dank und viele Grüße


    Andreas

  • Hallo Andreas,


    die Sortierung musst Du wohl selbst vornehmen. Dazu könntest Du z.b. ein Dictionary mit Filename/ID als Key und Startzeit des Termins als Value erstellen und dieses dann sortiert nach Values ausgeben.


    https://stackoverflow.com/ques…tionary-by-datetime-value


    Das Dictionary musst Du natürlich mit den Daten aller vorher gelesenen Termine füllen.


    Gruß Jens

    Es wäre schön, Deinen Vornamen zu kennen. Bitte beachte unsere Forenregeln und die Netiquette.

    ----------

    Bitte teilen/weitersagen: STARFACE Module Databasewww.sfm-db.com


    STARFACE Excellence PartnerSTARFACE Module CreatorTobit.Software Authorized Partner (Mailserver/Unified Messaging)work4all! Solution Partner (CRM/ERP)Securepoint Professional Partner (Firewall/UTM)


    1 Qubit - J.Suingwww.1qubit.deSoftware - Service - Coding

Jetzt mitmachen!

Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!