Daten aus Outlook auslesen
08.02.2007 13:07:16
Markus
mit folgender Funktion lasse ich mir aus dem Outlook-Adressbuch den Namen auslesen und schreibe diesen in meine Excel-Mappe.
'-----------------------------------------------------
Function GetName()
On Error Resume Next
Set objSession = CreateObject("MAPI.Session")
If Not objSession Is Nothing Then
objSession.Logon "", "", False, False
End If
Set objrecipcoll = objSession.AddressBook()
GetName = objrecipcoll.Item(1).Name
Set objSession = Nothing
Set objrecipcoll = Nothing
End Function
'-----------------------------------------------------
Jetzt möchte ich die gleiche Funktion nochmals erstellen, jedoch soll nun die Telefonnummer ausgelesen werden.
Kann mir hierzu evtl. jemand sagen, wie ich die Telefonnumer aus dem Outlook-Adressbuch ansprechen kann?
mfg,
Markus
Anzeige
