Termin von Excel nach Outlook

Hallo Excelperten,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() On Error GoTo zError: Dim Termin As AppointmentItem Set Termin = outlook.Application.CreateItem(olAppointmentItem) With Termin .Subject = frmTermin.TextBox7 .Start = frmTermin.TextBox1 .ReminderMinutesBeforeStart = frmTermin.TextBox6 If CheckBox1.Value = True Then .Display GoTo zweiter End If .Save zweiter: End With Exit Sub zError: MsgBox "Die Daten konnten nicht an Outlook übergeben werden.", vbCritical, "Hinweis" 'Ich vergaß: Natürlich muss ein Verweis (im VB Editor) auf die Outlook-Bibliothek erstellt sein _ (Extras/Verweise)" 'outlook muß geöffnet sein End Sub

Sub CommandButton1_Click() On Error GoTo zError: Dim Termin As AppointmentItem Set Termin = Outlook.Application.CreateItem(olAppointmentItem) Range("B26").Select With Termin .Subject = ActiveCell.Offset(0, 3) .Start = ActiveCell.Offset(0, 1) .Location = ActiveCell.Offset(0, 2) .ReminderMinutesBeforeStart = "10" If CheckBox1.Value = True Then .Display GoTo zweiter End If .Save zweiter: End With Exit Sub zError: MsgBox "Die Daten konnten nicht an Outlook übergeben werden.", vbCritical, "Hinweis" End Sub

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Termin von Excel nach Outlook

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread