Outlook auslesen funktioniert mit 2013 nicht meh
28.09.2017 10:00:56
Marianne
ich war bereits seit vielen Tagen auf diversen Seiten unterwegs um folgendes Problem zu lösen, vielleicht könnt ihr mir helfen..
Ich habe ein Makro geschrieben, welches Kalendereinträge aus Outlook ausliest und im Excel speichert. Das funktioniert mit meiner Version (2010, Version 14) auch wunderbar, bei Kollegen mit 2013, Version 15 aber nicht. Es kommt auch keine Fehlermeldung, sondern einfach kein Kalendereintrag, obwohl welche da sind (und bei mir auch im Excel angezeigt werden).
Hier der Code:
Sub Kalender_export_2013()
UserForm2.Show
Dim ThisWorkbookPath
Dim Ausgangsdatei
ThisWorkbookPath = ThisWorkbook.Path
Ausgangsdatei = Range("Ausgangsdateiname")
Workbooks.Open Range("Ausgangsdatei")
'Variablen Definieren
Dim Outl_App
Dim Namens_R
Dim akt_Ordner
Dim Kalendereintrag
Dim Element_kal As Items
Dim StartDatum As Date
Dim EndeDatum As Date
Dim i
Dim sTargetWS
Dim TargetWS
Const olFolderCalendar As Long = 9
Set Outl_App = CreateObject("Outlook.Application")
Set Namens_R = Outl_App.GetNamespace("MAPI")
Set akt_Ordner = Namens_R.PickFolder 'beliebigen Kalender auswählen
Set Element_kal = akt_Ordner.Items
sTargetWS = "Outlook_Statusbericht"
Set TargetWS = Worksheets(sTargetWS)
StartDatum = UserForm2.TextBox1
EndeDatum = UserForm2.TextBox2
EndeDatum = EndeDatum + 1
'StartDatum = "01.09.2017"
'EndeDatum = "02.09.2017"
'Überschriften vorbereiten
Cells(1, 1) = "Ereignis"
Cells(1, 2) = "Beginn am"
Cells(1, 3) = "Besprechungsressourcen"
Cells(1, 4) = "Beschreibung"
Cells(1, 5) = "Kategorien"
Cells(1, 6) = "Ort"
Cells(1, 7) = "Serientermin"
'Sicherstellen, dass bei Serien die einzelnen Einträge übernommen werden
Element_kal.Sort "Start"
Element_kal.IncludeRecurrences = True
Set Kalendereintrag = Element_kal.Find("[Start]>""" & StartDatum & """ AND [End]Grüße,
Marianne