ich möchte per Makro eine Besprechung in Outlook planen. Alle Daten sind in Excel vorhanden, der Code funktioniert bis auf einen kleinen Fehler. In Outlook wird ein Termin geplant, keine Besprechung.
Sub Term_Outlook()
Dim myOLApp As Object
Dim myItem As Object
Set myOLApp = CreateObject("Outlook.Application")
Set myItem = myOLApp.CreateItem(1)
With myItem
.Subject = "Termin vor Ort"
.Body = "Termin vor Ort " & Range("B5") & " " & Range("B6")
.Location = Range("D7")
.Start = Format(Range("D4").Value, "dd.mm.yyyy") & " " & _
Format(Range("D5").Value, "hh:mm")
.Duration = "120" 'tauer
.ReminderMinutesBeforeStart = 10
.ReminderPlaySound = True
.ReminderSet = True
.Display
End With
MsgBox "Termin an Outlook wurde übertragen!"
Set myOLApp = Nothing
Set myItem = Nothing
End Sub
Kann mir jemand sagen was ich anpassen muss?
Vielen Dank für jede Hilfe!
Gruß,
Patrick