Re: Adressbuch einlesen
12.02.2003 13:50:21
Bernd Held
Hallo F.über ein Makro kannst du diese Aufgabe lösen:
Sub KontakteVonOutlook()
Dim Verz As Object
Dim i As Integer
Dim olMAPI As New Outlook.Application
Dim objItem As Object
Sheets.Add
ActiveSheet.Name = "Kontaktdaten"
Range("A1").Select
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
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de