Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
624to628
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
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Persönl. Adressliste aus Outlook in Exceltabelle

Persönl. Adressliste aus Outlook in Exceltabelle
15.06.2005 14:22:37
c0bRa
hio all...
ich hab von Rainers/Ramses´ seite den code hier:

Sub Read_Contact_from_Outlook()
'by Ramses
'Liest alle Kontakte aus Outlook in das aktuelle Tabellenblatt
Dim myOlk As Object
Dim myOlkContact As Object
Set myOlk = CreateObject("outlook.application")
Set myOlkContact = myOlk.CreateItem(olContactItem)
Range("A2").Select
For Each myOlkContact In myOlk.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Items
With myOlkContact
ActiveCell.Value = .LastName
ActiveCell.Offset(0, 1).Value = .FirstName
ActiveCell.Offset(0, 2).Value = .BusinessAddressStreet
ActiveCell.Offset(0, 4).Value = .BusinessAddressCity
ActiveCell.Offset(0, 3).Value = .BusinessAddressPostalCode
ActiveCell.Offset(0, 5).Value = .BusinessAddressCountry
ActiveCell.Offset(0, 6).Value = .BusinessAddressState
ActiveCell.Offset(0, 7).Value = .Email1Address
'Alle verfügbaren Eigenschaften eines Kontaktes
'---Outlook 2000 / 2002
'.Actions
'.Anniversary
End With
ActiveCell.Offset(1, 0).Select
Next
Set myOlkContact = Nothing
Set myOlk = Nothing
End Sub

VBA nein ist auch nich grad war ;)
nur will ich mich bei dem problem hier nicht unbedingt als gut hinstellen, da man bei VBA_Gut IMHO schon mit anderen MS programmen interagieren sollte...
mein problem ist nun, dass ich 1. die daten, die ich brauche nicht in den kontakten liegen, sondern im persönlichen adressbuch... selbiges wenn ich versuche zu importieren, endet eigentlich nur in einem schlamassel aus irgendwelchen zeichen wo irgendwo mal ein lesbarer name erscheint, aber nichts wirklich brauchbares zum filtern.
und der code von ramses bricht mir bei 2 verschiedenen rechnern mit 2 verschiedenen fehlermeldungen ab...
einmal mit laufzeitfehler:
438 objekt unterstützt diese methode oder eigentschaft nicht...
und einmal mit:
-2546414984 laufzeitfehler, dass mind. ein objekt ungültig ist...
im VBE sind die outlook objektbibliotheken angehakt, also sollte er ja die prozeduren und eigenschaften finden, aber irgendwas schießt quer...
schonmal danke im voraus

c0bRa
Zusammengesetzt ergeben die Rechtschreibfehler ein Geheimrezept, wie man aus Wasser Bier machen kann...

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
und FNO
15.06.2005 15:07:15
c0bRa
AW: Persönl. Adressliste aus Outlook in Exceltabelle
16.06.2005 08:02:34
bst
Morgen c0bRa,
versuch mal sowas.
cu, Bernd
--
Option Explicit

Sub Adressbuch()
    Dim myOLApp As Outlook.Application
    Dim myNameSpace As NameSpace
    Dim myAdrList As AddressList
    Dim myAdr As AddressEntry
    Dim i As Long
    
    Set myOLApp = CreateObject("Outlook.Application")
    Set myNameSpace = myOLApp.GetNamespace("MAPI")
    On Error Resume Next
    Set myAdrList = myNameSpace.AddressLists("Persönliches Adressbuch")
    If Err.Number <> 0 Then
        MsgBox "Persönliches Adressbuch nicht gefunden", vbCritical
        GoTo ERR_Adressbuch
    End If
    On Error GoTo 0
    i = 1
    For Each myAdr In myAdrList.AddressEntries
        Cells(i, 1) = myAdr.Name
        Cells(i, 2) = myAdr.Address
        i = i + 1
    Next
    ERR_Adressbuch:
    Set myAdrList = Nothing
    Set myNameSpace = Nothing
    Set myOLApp = Nothing
End Sub

Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige