Re: Adressen von Outlook
30.03.2003 18:21:05
Bernd Held
Hallo Jacky,das kannst Du beispielsweise über folgendes Makro machen:
Sub KontakteVonOutlook()
Dim Verz As Object
Dim i As Integer
Dim olMAPI As New Outlook.Application
Dim objItem As Object
Sheets.Add
ActiveSheet.Name = "Kontaktdaten2"
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
Code eingefügt mit Syntaxhighlighter 1.14
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA-Publikationen mit Leseproben(PDF) unter: http://held-office.de