AW: Outlook
10.03.2004 06:30:07
Willie
Hallo Michael man kann das komplette Adressbuch aus lesen.
Mit Posteingang und Ausgang, so wie mit dem Kalender habe ich mich noch nicht so
beschäftigt ... also dazu kann ich dir keine Hilfe geben! Du kannst auch nur persönlich
Adressbücher auslesen .... ausser du bist Admin und hast alle rechte auch das globale
Adressbuch auszulesen!
Gruß Willie
Eine Rückmelung wäre nett
Sub AdressenVonOutlook()
Dim workingFolder As Object
Dim objOutlook As Outlook.Application
Dim objAddressList As Outlook.AddressList
Dim objAddressEntry As Outlook.AddressEntry
Dim i As Integer
Dim olMAPI As New Outlook.Application
Range("A2").Select
'Set workingFolder = olMAPI.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
Set workingFolder = objOutlook.Session.AddressLists("Persönliches Adressbuch")
' Hier kannst du dein Adressbuch Namen ändern ,wenn dein Ad-buch z.b MichisAdressbuch heisen sollte
For i = 1 To workingFolder.Items.Count
Set objItem = workingFolder.Items(i)
With objItem
ActiveCell.Value = .FirstName
ActiveCell.Offset(0, 1).Value = .LastName
ActiveCell.Offset(0, 2).Value = .BusinessAddress
ActiveCell.Offset(0, 3).Value = .Email1Address
ActiveCell.Offset(0, 4).Value = .HomeTelephoneNumber
ActiveCell.Offset(0, 5).Value = .BusinessTelephoneNumber
ActiveCell.Offset(0, 6).Value = .BusinessFaxNumber
ActiveCell.Offset(0, 7).Value = .Birthday
End With
ActiveCell.Offset(1, 0).Select
Next i
Set objItem = Nothing
Set olMAPI = Nothing
End Sub