VSTO - Outlook - automatisch in den Kalender übernehmen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von jan99.

    VSTO - Outlook - automatisch in den Kalender übernehmen

    Moin!

    ich möchte über eine eigene Funktion Kalendereinträge erstellen und habe als Basis etwas gefunden unter learn.microsoft.com/de-de/visu…appointments?view=vs-2022

    Mein Code sieht jetzt wie folgt aus wobei ich schon versucht habe einen Termin für den gesamten Tag zu erstellen:

    VB.NET-Quellcode

    1. Private Sub bt_HO_Kalender_Click(sender As Object, e As RibbonControlEventArgs) Handles bt_HO_Kalender.Click
    2. Try
    3. ' https://learn.microsoft.com/de-de/dotnet/api/microsoft.office.interop.outlook.appointmentitem?view=outlook-pia
    5. Dim newAppointment As Outlook.AppointmentItem = CType(Globals.ThisAddIn.Application.CreateItem(Outlook.OlItemType.olAppointmentItem), Outlook.AppointmentItem)
    6. newAppointment.AllDayEvent = True ' ganztätig Tag
    7. newAppointment.Start = DateTime.Now.AddHours(2) ' Beginn
    8. 'newAppointment.[End] = DateTime.Now.AddHours(3) ' Ende
    9. newAppointment.End = DateTime.Now.AddHours(3) ' Ende
    11. newAppointment.Location = "ConferenceRoom #2345" 'Ortsangabe
    12. newAppointment.Body = "We will discuss progress on the group project." ' Textfeld
    13. newAppointment.Subject = "Group Project" ' Betreff
    14. 'newAppointment.BusyStatus = Microsoft.Office.Interop.Outlook.OlBusyStatus.olOutOfOffice ' abwesend
    15. newAppointment.BusyStatus = Microsoft.Office.Interop.Outlook.OlBusyStatus.olWorkingElsewhere ' an einem anderen Ort tätig
    16. 'newAppointment.Recipients.Add("Roger Harui")
    17. 'Dim sentTo As Outlook.Recipients = newAppointment.Recipients
    18. 'Dim sentInvite As Outlook.Recipient = Nothing
    19. 'sentInvite = sentTo.Add("Holly Holt")
    20. 'sentInvite.Type = CInt(Outlook.OlMeetingRecipientType.olRequired)
    21. 'sentInvite = sentTo.Add("David Junca ")
    22. 'sentInvite.Type = CInt(Outlook.OlMeetingRecipientType.olOptional)
    23. 'sentTo.ResolveAll()
    24. newAppointment.Save()
    25. newAppointment.Display(True)
    26. Catch ex As Exception
    27. MessageBox.Show("Es ist folgender Fehler aufgetreten: " & ex.Message)
    28. End Try
    29. End Sub


    Nach meinem Verständnis sollte mit .SAVE und .DISPLAY wird der Eintrag erstellt und angezeigt.

    Aber der Dialog bleibt offen.

    Ich habe nun noch folgendes gefunden:

    VB.NET-Quellcode

    1. newAppointment.Close(SaveMode:=Microsoft.Office.Interop.Outlook.OlInspectorClose.olSave)


    Wenn ich das hinter das Display setze, dann bleibt der Dialog dennoch offen!

    ???

    Gruß Jan

Facebook
Telefonspende