mit dem folgenden Makro, dass ich hier im Forum gefunden und angepasst habe, sollen die Zellinhalte B26, C26, D26 und E26 an den Outlook Kalendar gesendet werden. Beim ausfuehren kommt allerdings folgende Fehlermeldung: Laufzeitfehler 2147287037(80030003) Fehler beim Ausfuehren der Operation. Und er markiert den unten fett markierten Code. Kann mir da jemand vielleicht bitte auf die Spruenge helfen? Vielen Dank im Voraus.
Gruss, Stephan
Sub TermineVonExcelNachOutlookÜbernehmen()
Dim OutApp As Object, apptOutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1) '(olAppointmentItem)
Range("B26").Select
Do Until ActiveCell.Value = ""
Set apptOutApp = objOutlook.CreateItem(olAppointmentItem)
With apptOutApp
.Subject = ActiveCell.Offset(0, 3).Value
.Body = ActiveCell.Offset(0, 3).Value
.Location = ActiveCell.Offset(0, 2).Value
.Start = ActiveCell.Offset(0, 1).Value
'.Duration = ActiveCell.Offset(0, 4).Value
'.RequiredAttendees = ActiveCell.Offset(0, 5).Value
.ReminderMinutesBeforeStart = 10
.ReminderPlaySound = True
.ReminderSet = True
.Save
End With
ActiveCell.Offset(1, 0).Select
Loop
MsgBox "Termine an Outlook übertragen!"
Set OutApp = Nothing
Set apptOutApp = Nothing
End Sub