ich lege über Excel einen Termin in Outlook an und möchte diesen gerne automatisch versenden.
Anlegen und speichern in Outlook funktioniert wunderbar, nur die Einladung an die gewünschte
Person nicht. Zum besseren Verständnis füge ich mal den Code an.
Vielen Dank im Voraus
Private Sub CommandButton1_Click() 'Start des Termins hier, A1 Datum und B1 Uhrzeit
Dim myOLApp As Object
Dim myItem As Object
Set myOLApp = CreateObject("Outlook.Application")
Set myItem = myOLApp.CreateItem(1)
If CheckBox1 = False Then
Sheets("Dauer").Activate
Range("A1").Offset(0, 0).Select
With UserForm1
ActiveCell.Offset(1, 4).Value = .TextBox1.Value
ActiveCell.Offset(1, 5).Value = .ComboBox1.Value
ActiveCell.Offset(1, 6).Value = .TextBox2.Value
ActiveCell.Offset(1, 7).Value = .ComboBox2.Value
End With
If Sheets("Dauer").Range("I2").Value