Outlook Kalendertermin ersetellen und Teilnehmer einladen

  • VB.NET

    Outlook Kalendertermin ersetellen und Teilnehmer einladen

    Hallo zusammen,

    Ich kann mit folgendem Code einen Termin erstellen und einen Teilnehmer einfügen:

    VB.NET-Quellcode

    1. Private Sub btn_termin_senden_Click(sender As Object, e As EventArgs) Handles btn_termin_senden.Click
    2. Dim OutApp
    3. Dim apptOutApp
    4. OutApp = CreateObject("Outlook.Application")
    5. apptOutApp = OutApp.CreateItem(1)
    6. With apptOutApp
    7. .Start = "25.04.2018" & " 18:00"
    8. 'Termininfo
    9. .Subject = "Test"
    10. 'oder der Betreff steht in der Spalte rechts von den Terminen
    11. 'Zusätzlicher Text
    12. .Body = "Text"
    13. 'ort
    14. .Location = "Testort"
    15. .Duration = "19"
    16. 'Erinnerung1
    17. .ReminderMinutesBeforeStart = 15
    18. 'mit Sound :-)
    19. .ReminderPlaySound = True
    20. 'Erinnerung wiederholen
    21. .ReminderSet = True
    22. .Recipients.Add("test@test-test.com")
    23. .Send
    24. 'Termin speichern
    25. .Save()
    26. End With
    27. apptOutApp = Nothing
    28. OutApp = Nothing
    29. MsgBox("Alles gut")
    30. End Sub

    Der Termin wird bei mir im Outlook eingefügt. Jedoch um die Einladung zu versenden, muss ich auf Teilnehmer hinzufügen klicken (da steht die E-mail adresse schon drin) und anschlisend auf senden klicken.
    Kann ich die Einladungen auch automatisch verschicken lassen?

    Vielen Dank für eure Hilfe. Gruss