VSTO - Outlook - Kalendereintrag für den ganzen Tag erstellen

  • VB.NET

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

    VSTO - Outlook - Kalendereintrag für den ganzen Tag erstellen

    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. Dim newAppointment As Outlook.AppointmentItem = CType(Globals.ThisAddIn.Application.CreateItem(Outlook.OlItemType.olAppointmentItem), Outlook.AppointmentItem)
    2. newAppointment.AllDayEvent = True
    3. newAppointment.Start = DateTime.Now.AddHours(2) ' Beginn
    4. 'newAppointment.[End] = DateTime.Now.AddHours(3) ' Ende
    5. newAppointment.End = DateTime.Now.AddHours(3) ' Ende
    7. ' ganzen Tag
    9. newAppointment.Location = "ConferenceRoom #2345" 'Ortsangabe
    10. newAppointment.Body = "We will discuss progress on the group project." ' Textfeld
    11. newAppointment.AllDayEvent = False
    12. newAppointment.Subject = "Group Project" ' Betreff
    13. 'newAppointment.BusyStatus = Microsoft.Office.Interop.Outlook.OlBusyStatus.olOutOfOffice ' abwesend
    14. newAppointment.BusyStatus = Microsoft.Office.Interop.Outlook.OlBusyStatus.olWorkingElsewhere ' an einem anderen Ort tätig
    15. 'newAppointment.Recipients.Add("Roger Harui")
    16. 'Dim sentTo As Outlook.Recipients = newAppointment.Recipients
    17. 'Dim sentInvite As Outlook.Recipient = Nothing
    18. 'sentInvite = sentTo.Add("Holly Holt")
    19. 'sentInvite.Type = CInt(Outlook.OlMeetingRecipientType.olRequired)
    20. 'sentInvite = sentTo.Add("David Junca ")
    21. 'sentInvite.Type = CInt(Outlook.OlMeetingRecipientType.olOptional)
    22. 'sentTo.ResolveAll()
    23. newAppointment.Save()
    24. newAppointment.Display(True)
    25. Catch ex As Exception
    26. MessageBox.Show("Es ist folgender Fehler aufgetreten: " & ex.Message)
    27. End Try
    28. End Sub


    Die Grundlage findet sich unter learn.microsoft.com/de-de/offi…-that-is-an-all-day-event

    Aber irgendwie wird der Haben für den gesamten Tag nicht bei mir gesetzt.

    Gruß Jan

Facebook
Telefonspende