Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
380to384
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
380to384
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Globales Outlook-Adressbuch in Excel-Tabelle

Globales Outlook-Adressbuch in Excel-Tabelle
12.02.2004 08:01:23
GünterP
Kann mir jemand einen Tipp geben, wie ich aus dem globalen Adressbuch von Ouutlook Adressen (Name, Telefonnummer, etc.) - eingeschränkt nach Name oder Abteilung - auslesen kann und in eine Excel-Tabelle stellen kann. In den FAQ's habe ich zwar eine Lösung für das Auslesen der Outlook-Kontakte gefunden, ich weiß aber nicht wie ich im Outlook das globale Adressbuch ansprechen kann.
Danke im voraus für eine Lösung
Günter

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Globales Outlook-Adressbuch in Excel-Tabelle
12.02.2004 08:23:43
y
hi Günter,
so in etwa ?

Private Sub Adressen()
Dim Outl As Outlook.Application
Dim NamensListe As Outlook.AddressList
Dim Eintrag As Outlook.AddressEntry
Dim Zähler As Integer
Dim ComboEintrag As Integer
Set Outl = CreateObject("Outlook.Application")
Set NamensListe = Outl.Session.AddressLists("Globales Adressbuch")
For Each Eintrag In NamensListe.AddressEntries
Zähler = Zähler + 1
Cells(Zähler, 1) = Eintrag.Name
Next Eintrag
Set Outl = Nothing
End Sub

cu Micha
AW: Globales Outlook-Adressbuch in Excel-Tabelle
12.02.2004 08:33:51
guenterp
Danke für die rasche Antwort.
(Ich habe unter Extras/Verweise die beiden Verweise auf
"Microsoft Outlook 10.0 Object Library" und "Mirosoft Outlook View Control"
aktiviert)
Ich bekomme einen Fehler beim Befehl:
Set NamensListe = Outl.Session.AddressLists("Globales Adressbuch")
==> Laufzeitfehler '-2147221233 (8004010f)': Automatisierungsfehler
Was könnte hier das Problem sein ?
Günter
Anzeige
AW: Globales Outlook-Adressbuch in Excel-Tabelle
12.02.2004 08:39:25
y
heisst das ding bei dir anders ?
machs mal so:
Set NamensListe = Outl.Session.AddressLists(1)
cu Micha
AW: Globales Outlook-Adressbuch in Excel-Tabelle
12.02.2004 08:53:21
guenterp
Super - funktioniert !!!
Danke
Günter
danke für die rückmeldung :-) o.t.
12.02.2004 09:04:37
y
...
AW: danke für die rückmeldung :-) o.t.
12.02.2004 09:52:17
guenterp
Ich habe jetzt noch ein Problem. Ich bekomme zwar alle Namen, nicht jedoch Telefonnummer, Abteilung (Felder, die ich im Outlook-Adressbuch unter "Eigenschaften" einsehen kann). Wie kann ich diese Felder ansprechen, dass ich z.B. die Telefonnummer in Spalte 2 in Excel ausgeben kann.
Günter
AW: danke für die rückmeldung :-) o.t.
12.02.2004 13:55:40
y
ich sehe keine möglichkeit :-(
das objektmodell von outlook scheint in dieser hinsicht ein geheimnis zu sein
aber versuch mal
Cells(Zähler, 1) = Eintrag.Address
und schreib mal was bei dir dabei rauskommt
also bei uns ist es nur ein string der zwar sinn macht aber nicht wirklich weiterhilft
cu Micha
Anzeige
Outook-Adressbuch - Telefonnr, etc.
13.02.2004 13:17:21
GünterP
Dabei kommt auch bei mir nichts brauchbares: z.B.
"/o=AUVA/ou=LINZ-AUVA/cn=Recipients/cn=LINZ/cn=ulsld"
Danke jedefalls für die Mühe
Günter
Outook-Adressbuch - Telefonnr, etc.
13.02.2004 13:17:29
GünterP
Dabei kommt auch bei mir nichts brauchbares: z.B.
"/o=AUVA/ou=LINZ-AUVA/cn=Recipients/cn=LINZ/cn=ulsld"
Danke jedefalls für die Mühe
Günter

301 Forumthreads zu ähnlichen Themen

Zeilen einfügen und kopieren
bug-i

Hallo, ich brauche eure Hilfe:
Folgende Beispietabelle:
Merkmal - Text
1 - Text1
3 - Text2
1 - Text3
1 - Text4
2 - Text5
1 - Text6
Ich möchte jetzt für jede Zeile, die ein Merkmal größer als 1 hat danach eine neue Zeile mit gleichem Inhalt einfügen.
Die T...
05.08.2009 10:11:39
Thread-ID: 1093668
2 Beiträge
Anzeige
aus E:E kopieren und am Ende von D:D einfügen
D:D

Hallo,
Ich habe in meiner Adressliste in D:D Straßennamen stehen, und in E:E die Hausnummern. Ich möchte die Hausnummern aber direkt hinter den Straßennamen in die selbe Zelle einfügen.
Da es sehr viele Zeilen sind möchte ich es ungern manuell machen.
Wie würdet Ihr das machen?
19.11.2009 11:46:47
Thread-ID: 1118567
3 Beiträge
Benutzten Bereich kopieren und einfügen
Babs

Hallo zusammen,
ich bin noch neu hier und konnte leider auf das thema von Dieter
"Benutzten Bereich kopieren von Dieter vom 19.10.2009 17:43:03 " keinen Beitrag schreiben, geht irgendwie nicht !
wenn es doch möglich ist da was reinzuschreiben dann würd ich gerne wissen wie ?
M...
07.12.2009 09:42:46
Thread-ID: 1122130
15 Beiträge
Anzeige
Tabelle in Intervallen per Mail verschicken
Universal

N`Abend zusammen! :-)
Ich würde gern meine Arbeit etwas erleichtern ... meine Kollegen und ich haben eine Excel-Tabelle, die jede Stunde mit Daten gefüllt wird. Wie ich Mails per VBA verschicken kann weiss ich. Leider fehlt mir aber das Wissen um die Tabelle in einem stündlichen Intervall a...
21.12.2009 23:03:13
Thread-ID: 1125480
7 Beiträge
Makro kopieren und einfügen fehlerhaft
Chris

Hallo und ein frohes Neues zusammen!
Letzte Woche habe ich folgenden Beitrag geschrieben (https://www.herber.de/forum/archiv/1124to1128/t1126236.htm) und von Jürgen eine schon recht gute Antwort bekommen. Er hat mir folgendes File mit einem Makro bereitgestellt, das glaube ich relativ nahe...
04.01.2010 09:49:22
Thread-ID: 1126968
12 Beiträge
kopieren und einfügen per makro
rolf

hallo
ich möchte in tabelle 1 - zeile a3 bis a79 kopieren und dann
in tabelle 2 per makro in die erste freie zeile einfügen.
spalte b wird immer ausgefüllt.
wäre dankbar für eure hilfe.
mfg rolf
10.01.2010 22:49:24
Thread-ID: 1128765
11 Beiträge
Kopierten Text in E-Mail einfügen | Herbers Excel-Forum
Urmila
Hallo alle zusammen,
und schon habe ich eine andere Frage...
Mit dem folgenden Code generiere ich eine E-Mail im Excel Dim OutLookJob As Object, mymail As Object, month As Integer, year As Integer month = Format(Date, "MM") year = Format(Date, "YYYY") Set OutLookJob = CreateObject("Outlook....
13.01.2010 15:44:58
Thread-ID: 1129549
5 Beiträge
Einfügen in neuem Tabellenblatt
Space

Hallo,
ich habe folgendes Problem. Über einen Button auf dem Tabellenblatt1 will ich das Tabellenblatt 3 (Outlook Kontakte) öffnen und die Outlook entnommenen Kontakte dort eintragen lassen. Der Zugriff auf Outlook funktioniert wunderbar. Die Werte die er dort heraus bekommt trägt er aber...
19.01.2010 14:06:41
Thread-ID: 1131048
7 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
8
2
14
4
6
11
10
4
6
1
8
9
11
12
2
5
2
4
2
3
4
3
2
1