AW: Outlook - Adressbuch in Combobox einlesen
13.08.2003 10:30:50
Frederik Fuhrmann
Folgenden Code habe ich:
Sub AdressbuchVonOutlook()
Dim Verz As Object
Dim i As Integer
Dim olMAPI As New Outlook.Application
Dim objItem As Object
Sheets.Add
ActiveSheet.Name = "Adressbuch"
Range("A1").Select
On Error Resume Next
Set Verz = olMAPI.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
For i = 1 To Verz.Items.Count
Set objItem = Verz.Items(i)
With objItem
ActiveCell.Value = .FirstName
ActiveCell.Offset(0, 1).Value = .LastName
ActiveCell.Offset(0, 2).Value = .BusinessAddressStreet
ActiveCell.Offset(0, 3).Value = .BusinessAddressPostalCode
ActiveCell.Offset(0, 4).Value = .BusinessAddressCity
ActiveCell.Offset(0, 5).Value = .BusinessAddressCountry
ActiveCell.Offset(0, 6).Value = .BusinessAddressState
ActiveCell.Offset(0, 7).Value = .Email1Address
End With
ActiveCell.Offset(1, 0).Select
Next i
Columns("A:H").AutoFit
Set objItem = Nothing
Set olMAPI = Nothing
End Sub
Der liest allerdings die Kontakte ein, kriege es aber nicht so umgebogen, dass der Ordner "Globales Adressbuch eingelesen wird!"
Gruß
F.