title image


Smiley Re: Outlook-Termine per VBA auslesen!
Per Automation geht das so:



Public Function ReadAllAppointments()

Dim OlApp As New Outlook.Application, aItm As AppointmentItem, I As Long, _

OlNameSp As Outlook.NameSpace, Folder As Object

Set OlNameSp = OlApp.GetNamespace("MAPI")

Set Folder = OlNameSp.GetDefaultFolder(olFolderCalendar)

For I = 1 To Folder.Items.Count

Set aItm = Folder.Items(I)

With aItm

Debug.Print .Subject, .Start, .End

End With

Next I

Set Folder = Nothing

Set OlNameSp = Nothing

Set OlApp = Nothing

End Function



Verweis auf die Outlook-Objektbibliothek setzen!



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: