Outlook Kalender-Import
31.05.2014 16:06:27
Marlon
ich habe dieses nette, unten abgebildete Skript, um Outlook-Kalenderdaten nach Excel zu importieren. Basierend auf der Oject-Library. Es referezniert richtig und findet die Objekte in meiner Outlook-Datendatei, aber die Zeile
Cells(i + 1, 1) = Element_kal(i)
produziert immer den "Anwendungs-und objektdefinierten Fehler".
Die nächsten beiden Zeilen liefern aber wieder Beginn und Ende des Termins wie gewünscht.
Kann mir jemand weiterhelfen?
Gruß und Dank,
Marlon
Public Sub kal_imp()
Set Outl_App = CreateObject("Outlook.Application")
Set Namens_R = Outl_App.GetNamespace("MAPI")
Set Akt_Ordner = Namens_R.GetDefaultFolder(olFolderCalendar) 'Kalender auswählen
Set Kal_Ordner = Akt_Ordner 'Nimmt den Standardordner
Set Element_kal = Kal_Ordner.Items
Cells(1, 1) = "Ereignis"
Cells(1, 2) = "Beginn"
Cells(1, 3) = "Ende"
'Element_kal.Sort "[start]", True
'MsgBox Element_kal.Count
For i = 1 To Element_kal.Count
Cells(i + 1, 1) = Element_kal(i)
Cells(i + 1, 2) = Element_kal(i).Start
Cells(i + 1, 3) = Element_kal(i).End
Next i
'objekte freigeben
Set Outl_App = Nothing
Set Namens_R = Nothing
Set Akt_Ordner = Nothing
Set Kal_Ordner = Nothing
Set Element_kal = Nothing
End Sub
Anzeige