Kann mir jemand sagen, wie ich aus dem Outlook Adressbuch die Namen und Telefonnummern in jeweiols eine Spalte im Excel bringen kann?
Gruß
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
bentzerdefinierter Typ nicht definiert !
Dim olMAPI As New Outlook.Application
was mache ich denn da falsch ???
gruß
ae
ja das hätte ich dau sagen müssen!
Du musst die Outlook-Bibo unter Extras/Verweise einbinden.
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de
Gruß
Frederik