Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Nicht nur Namen aus Adressliste eintragen

Nicht nur Namen aus Adressliste eintragen
14.11.2008 17:39:00
Fred

Hallo zusammen
Ich benutze unten stehenden Code um aus Globalen Adressliste alle namen in meine Tabelle eintragen zu lassen. Hat jemand ne AHNUNG wie ich auch die Dazu gehörenden Daten wie E_Mailadresse , Telephonnummer, Straße usw. mit eintragen lassen kann
Ich hoffe mir kann jemand helfen.
Vielen Dank
Fred

Sub Adressen_eintragen()
Dim objRecipients As Outlook.AddressEntries
Dim lngCount As Long
Set myolApp = CreateObject("Outlook.Application")
Set myNamespace = myolApp.GetNamespace("MAPI")
Set myAddressList = myNamespace.AddressLists("Globale Adressliste")
Set myAddressEntries = myAddressList.AddressEntries
For lngCount = 1 To myAddressEntries.Count
With myAddressEntries.Item(lngCount)
Pos1 = InStr(1, .Name, "A")
If Pos1 > 0 Then
Dim iRow As Integer
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(iRow, 1).Value = .Name
End If
End With
Next lngCount
Set myolApp = Nothing
Set myNamespace = Nothing
Set myAddressList = Nothing
Set myAddressEntries = Nothing
End Sub


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

Betreff
Datum
Anwender
Anzeige
AW: Nicht nur Namen aus Adressliste eintragen
14.11.2008 18:56:12
Tino
Hallo,
teste mal folgende Anweisungen anstatt .Name

Beispiel
Cells(iRow, 2).Value = .EmailAddress1
'.CustomerID
'.Title
'.Firstname
'.Middlename
'.LastName
'.Suffix
'.FullName
'.Jobtitle
'.Categories
'.Nickname
'.Profession
'.Gender
'.BusinessAdressStreet
'.BusinessAdressCity
'.BusinessAdressState
'.BusinessAdressPostalCode
'.BusinessAdressCountry
'.BusinessAdress
'.HomeAdressStreet
'.HomeAdressCity
'.HomeAdressState
'.HomeAdressPostalCode
'.HomeAdressCountry
'.HomeAdress
'.BusinessTelephoneNumber
'.BusinessFaxNumber
'.HomeTelephoneNumber
'.HomeFaxNumber
'.EmailAddress1
'.EmailAddress2
'.MobileTelephoneNumber
'.AutoTelephoneNumber
'.ISDNNumber


Kann dies jetzt nicht testet, habe hier kein Globales Adressbuch.
Gruß Tino

Anzeige
AW: Nicht nur Namen aus Adressliste eintragen
15.11.2008 15:56:00
Fred
Hallo Tino
Danke für Deine Antwort, habs heute mal ausprobiert, egal was ich Dort von Deinen Tips auch immer eintrage es kommt immer zu einem Debuggfehler .
Ich habe heute Stundenlang gegoogelt, und konnte nichts finden. Der Tenor scheint der zu sein das man nur die Namen Anzeigen lassen kann. Ich hoffe aber hier weiss jemand Rat, deshalb lasse ich noch mal offen.
Grüße Fred

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige