Hallo zusammen,
Ich kann mit folgendem Code einen Termin erstellen und einen Teilnehmer einfügen:
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
Ich kann mit folgendem Code einen Termin erstellen und einen Teilnehmer einfügen:
VB.NET-Quellcode
- Private Sub btn_termin_senden_Click(sender As Object, e As EventArgs) Handles btn_termin_senden.Click
- Dim OutApp
- Dim apptOutApp
- OutApp = CreateObject("Outlook.Application")
- apptOutApp = OutApp.CreateItem(1)
- With apptOutApp
- .Start = "25.04.2018" & " 18:00"
- 'Termininfo
- .Subject = "Test"
- 'oder der Betreff steht in der Spalte rechts von den Terminen
- 'Zusätzlicher Text
- .Body = "Text"
- 'ort
- .Location = "Testort"
- .Duration = "19"
- 'Erinnerung1
- .ReminderMinutesBeforeStart = 15
- 'mit Sound :-)
- .ReminderPlaySound = True
- 'Erinnerung wiederholen
- .ReminderSet = True
- .Recipients.Add("test@test-test.com")
- .Send
- 'Termin speichern
- .Save()
- End With
- apptOutApp = Nothing
- OutApp = Nothing
- MsgBox("Alles gut")
- 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