MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 09.01.2019, 12:40   #1
Lycius
Neuer Benutzer
Neuer Benutzer
Standard VBA - Outlook Adressliste in VBA Excel ändern

Guten Tag liebe Forum,

ich habe folgendes Problem. Ich bin in meinem Büro in Outlook 2013 mit 2 Email-Adressen angemeldet. Eine Zentrale und eine Persönliche E-Mail.

In Excel 2013 möchte ich nun auf die Adressliste der Zentralen E-Mail zugreifen. Um dann bei den Kontakten Namen, Straße, Plz...etc. auszulesen.

Ich komme aber immer nur auf die Adressliste der Persönlichen Mail-Adresse.

Code:

Sub KontakteVonOutlookNachExcel()
Dim KontaktOrdner As Object
Dim l As Long
Dim outl As New Outlook.Application
Dim myAddrList As Object

Sheets("Projekt").Select
Range("A4").Select
Set olcontacts = outl.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
Set myAddrList = myNameSpace.AddressLists("Kontakte")


For l = 1 To olcontacts.Items.Count
Set outobj = olcontacts.Items(l)
With outobj
ActiveCell.Value = .FirstName
ActiveCell.Offset(0, 1).Value = .LastName
ActiveCell.Offset(0, 2).Value = .FirstName
ActiveCell.Offset(0, 3).Value = ""
ActiveCell.Offset(0, 4).Value = .BusinessFaxNumber
ActiveCell.Offset(0, 5).Value = .HomeAdressPostalCode
ActiveCell.Offset(0, 5).Value = .LastName
ActiveCell.Offset(0, 6).Value = .Birthday
ActiveCell.Offset(0, 7).Value = .HomeTelephoneNumber
ActiveCell.Offset(0, 8).Value = .Email1Adress

End With
ActiveCell.Offset(4, 0).Select
Next l

Set outobj = Nothing
Set olcontacts = Nothing
Set outl = Nothing
End Sub
Ich stehe gerade auf dem Schlauch und hoffe auf Hilfe.
Vielen Dank schon einmal im Voraus.

Geändert von Lycius (09.01.2019 um 12:45 Uhr).
Lycius ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.01.2019, 13:17   #2
EarlFred
MOF Guru
MOF Guru
Standard

Hallo,

Fragen zu Outlook sind eigentlich kein Excel-Problem...

Anstelle dem Standardort...
Code:

Set olcontacts = outl.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
beschreibst Du den Pfad zu dem Kontakteorder:
Code:

Set olcontacts = outl.GetNamespace("MAPI").Folders("Dein anderes Konto").Folders("Kontakte")
Den korrekten Pfad im Zweifel bitte selbst ermitteln (Ansicht "Ordner").

Grüße
EarlFred

__________________

Datum und Uhrzeit, Makrorekorder-Code entschlacken, {Matrixformeln}
Tutorials zu Pivottabellen: Kurzeinstieg; Dynamischer Datenbereich; Daten und Zeiten gruppieren
Für 7 meiner Beiträge haben sich die Hilfesuchenden mit einer Spende an Wikipedia, die Tafeln oder Hilfe für krebskranke Kinder eV bedankt (das entspricht 0,049% per 19.12.2018) - eine tolle Geste!
EarlFred ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.01.2019, 09:17   #3
Lycius
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Vielen dank. Und klar hast du recht das es eigentlich kein Excel Problem ist. Aber da ich die Liste ja dann in Excel ausgeben wollte habe ich gedacht vielleicht ist es besser wenn ich es hier hinein schreibe.

Sorry.
Lycius ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:49 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.