Termin erstellen und versenden
Captain
ich will einen Termin über meine UF erstellen (klappt auch) und diesen Termin an einen anderen User verschicken...klappt aber nicht .-(
Was mache ich falsch?
Private Sub cmd_send_appointment_Click()
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1)
With apptOutApp
MeetingStatus = olMeeting
.Recipients.Add Me.txt_user
'Datum und Uhrzeit
.START = Me.txt_beginnt_am & " " & Me.cbo_beginnt_am.Value
.End = Me.txt_endet_um & " " & Me.cbo_endet_um.Value
.Subject = Me.txt_subject
.Body = Me.txt_body
.Location = Me.txt_location
.Duration = "5"
.ReminderMinutesBeforeStart = Me.cbo_reminder.Value
.ReminderPlaySound = True
.ReminderSet = True
.Save
Application.SendKeys "%s"
.Send
End With
Set apptOutApp = Nothing
Set OutApp = Nothing
MsgBox "Termine erfolgreich verschickt!"
Unload Me
End Sub
Jack