Ich habe da eine Frage mal und hoffe, ihr könnt mir helfen.
Vor einiger Zeit habe ich mithilfe des Forums hier es geschafft, dass mittels VBA von einer UF aus Outlook-Kalendereinträge eines bestimmten Tages ausgelesen und importiert wurden. Das hat prima geklappt...bis wir hier Office 2010 erhalten haben. Seitdem bekomme ich (unabhängig vom angefragten Datum) nur noch alle Geburtstagseinträge geliefert, wann auch immer die sind. Die eigentliche Termine werden mir aber nicht geliefert. Woran kann das liegen und wie muss ich meinen Code anpassen um die alte Funktion wieder herzustellen?
Hier mein aktueller Code:
Dim outl, Datumdg As Date
Dim ns, terminOrdner, termine, Termin
Set outl = CreateObject("Outlook.Application")
Set ns = outl.GetNamespace("MAPI")
Set terminOrdner = ns.GetDefaultFolder(9) 'olFolderCalendar
If Datum.Value "" Then
'Filtere Termine dieses Tages
Datumdg = Format(Datum.Value, "dd.mm.yy")
Set termine = terminOrdner.Items.Restrict("[Start] >= '" & Datumdg & "' and [end] "" Then Range(Range("A1"), Range("A1").End(xlDown)).EntireRow.Delete
For Each Termin In termine
ActiveCell = Termin.Subject
ActiveCell.Offset(0, 1) = Termin.Start
ActiveCell.Offset(0, 2) = Termin.End
ActiveCell.Offset(0, 3) = Termin.Location
If ActiveCell.Offset(0, 3)
Wäre super, wenn jemand einen Tipp hätte :)
Viele Grüße
Olli