Outlook mit Excel ansteuern
05.10.2007 08:50:38
G.Solbach
ich versuche von Excel aus Outlook (beides 2007) anzusteuern, was aber leider nicht funktioniert.
Ich habe dafür folgenden Quellcode gefunden / verwendet:
Set myOLApp = CreateObject("Outlook.Application")
Set olNameSpace = myOLApp.GetNamespace("MAPI")
Set myfolder = olNameSpace.GetDefaultFolder(olFolderCalendar)
myrow = 1
For Each myelement In myfolder.Items()
Worksheets("Tabelle2").Cells(myrow, 1).Value = myelement.Start
Worksheets("Tabelle2").Cells(myrow, 2).Value = myelement.End
Worksheets("Tabelle2").Cells(myrow, 3).Value = myelement.Subject
myrow = myrow + 1
Next
Beim Ausführen der fett angezeigten Zeile ("Set myfolder = olNameSpace.GetDefaultFolder(olFolderCalendar)") bekomme ich eine Fehlermeldung.
Wenn ich die ganze Sache in Outlook ausführe, funktioniert es.
Kann mir jemand helfen? Wie müsste der Code aussehen?
Vielen Dank im voraus.
Gruß
Guido