Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
236to240
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
236to240
236to240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Adressen von Outlook

Adressen von Outlook
30.03.2003 17:18:27
Jacky
Hallo Leute
Kann mir jemand sagen wie man Adressen vom Outlook ins Excel importiert?

Danke schon mal für Eure Hilfe.

mfg Jacky



1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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



Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige