Laufzeitfehler 13 Typen unverträglich
18.05.2018 11:36:25
Jehona
ich hab folgendes Problem:
Ich möchte Termine aus Excel über ein Skript automatisch an einen öffentlichen Kalender in Outlook übertragen.
Vorab hatte ich es über meinen Standard Kalender versucht und es funktionierte. Nun habe ich mein Skript natürlich etwas umgeändert, um den öff. Kalender zu erreichen.
Jetzt meckert er aber mit dem Laufzeitfehler 13 und ich weiß nicht wieso..
Ich hoffe, dass mir jemand helfen kann.
Option Explicit
Private Sub Test()
Dim myOlApp As Application
Dim myNameSpace As Namespace
Dim myFolder As Folders
Dim objTermin As AppointmentItem
Dim z As Long
Dim found As Boolean
For z = 1 To 16000
If ActiveSheet.Cells(z, 1).Value = "Ja" Then
found = True
Set myOlApp = New Outlook.Application
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.Folders.Item("Öffentliche Ordner - E-Mail Adresse").Folders.Item(" _
Alle Öffentlichen Ordner").Folders.Item("Logistik").Folders.Item("Beispiel").Folders.Item("Spezial").Folders.Item("Spezial.Kalender").Folders
With myOlApp
.Start = Format(ActiveSheet.Cells(z, 2), "dd.mm.yyyy") & " 08:00"
.allDayEvent = True
.Duration = ActiveSheet.Cells(z, 4)
.Subject = ActiveSheet.Cells(z, 3)
.ReminderMinutesBeforeStart = 10
.categories = "Blaue Kategorie"
.Save
End With
Exit For
End If
Next z
If Not found Then
MsgBox "Übertragung fehlgeschlagen.", , "Fehlgeschlagen"
End If
End Sub
Jehona