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

Daten aus Outlook in Excel exportieren

Daten aus Outlook in Excel exportieren
27.02.2009 13:56:40
Hans
Hallo Forum,
ist es möglich die Daten aus dem Outlook 2003 Programm in ein Excel Tabellenblatt zu übernehmen, (kein Datenexport) so das bei einem neuen Eintrag in Outlook auch die Adressdaten in dem Tabellenblatt immer aktuell sind !
Freue mich auf eure Antworten
MfG
Hans

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus Outlook in Excel exportieren
27.02.2009 14:11:20
Hans
Hallo Harry,
ist ja eine schöne Macrosammlung; leider kann ich da so nicht recht viel mit anfangen, denn ich weiß ja nicht wohin mit den Macros:
Dieses hab ich mir mal rausgesucht:

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 2003
'.AutoResolvedWinner
'.HasPicture
'.AddPicture
'.RemovePicture
'---Outlook 2000 / 2002
'.Actions
'.Anniversary
'.AssistantName
'.AssistantTelephoneNumber
'.Birthday
'.Business2TelephoneNumber
'.BusinessAddress
'.BusinessAddressCity
'.BusinessAddressCountry
'.BusinessAddressPostalCode
'.BusinessAddressPostOfficeBox
'.BusinessAddressState
'.BusinessAddressStreet
'.BusinessFaxNumber
'.BusinessHomePage
'.BusinessTelephoneNumber
'.CallbackTelephoneNumber
'.CarTelephoneNumber
'.Categories
'.Children
'.Companies
'.CompanyAndFullName
'.CompanyMainTelephoneNumber
'.CompanyName
'.CreationTime
'.CustomerID
'.Department
'.DownloadState
'.Email1Address
'.Email1AddressType
'.Email1DisplayName
'.Email1EntryID
'.Email2Address
'.Email2AddressType
'.Email2DisplayName
'.Email2EntryID
'.Email3Address
'.Email3AddressType
'.Email3DisplayName
'.Email3EntryID
'.EntryID
'.FirstName
'.FTPSite
'.FullName
'.FullNameAndCompany
'.Gender    'Geschlecht
'.GovernmentIDNumber    'Passnummer
'.Hobby
'.Home2TelephoneNumber
'.HomeAddress
'.HomeAddressCity
'.HomeAddressCountry
'.HomeAddressPostalCode
'.HomeAddressPostOfficeBox
'.HomeAddressState
'.HomeAddressStreet
'.HomeFaxNumber
'.HomeTelephoneNumber
'.IMAddress    'Microsoft Instant Messenger Adresse
'.Importance    'Wichtigkeitsstufe des Kontakt
'.Initials
'.InternetFreeBusyAddress    'Frei/Gebucht-Informationen
'.ISDNNumber
'.JobTitle
'.Language
'-----Wird automatisch generiert
'.LastFirstAndSuffix    'Vor und Zuname und Suffix zusammen
'.LastFirstNoSpace    'Vor und Zuname ohne Leerzeichen
'.LastFirstNoSpaceAndSuffix
'.LastFirstNoSpaceCompany
'.LastFirstSpaceOnly
'.LastFirstSpaceOnlyCompany
'.LastNameAndFirstName
'.LastModificationTime
'.LastName
'.MailingAddress
'.MailingAddressCity
'.MailingAddressCountry
'.MailingAddressPostalCode
'.MailingAddressPostOfficeBox
'.MailingAddressState
'.MailingAddressStreet
'.ManagerName
'.MiddleName
'.MobileTelephoneNumber
'.NetMeetingAlias
'.NetMeetingServer
'.NickName
'.NoAging
'.OfficeLocation
'.OrganizationalIDNumber
'.OtherAddress
'.OtherAddressCity
'.OtherAddressCountry
'.OtherAddressPostalCode
'.OtherAddressPostOfficeBox
'.OtherAddressState
'.OtherAddressStreet
'.OtherFaxNumber
'.OtherTelephoneNumber
'.PagerNumber
'.PersonalHomePage
'.PrimaryTelephoneNumber
'.Profession
'.RadioTelephoneNumber
'.ReferredBy    'Kontakt empfohlen von
'.Saved
'.SelectedMailingAddress
'.Sensitivity    'Vertraulichkeitsstatus des Elements
'.Size    'Grösse in Byte der Kontaktdaten
'.Spouse    'Partnername des Kontakt
'.Suffix
'.TelexNumber
'.Title
'.Delete
'.Display
'.ForwardAsVcard
'.Move
'.PrintOut
'.Save
'.SaveAs
'.ShowCategoriesDialog
'.AttachmentAdd
End With
ActiveCell.Offset(1, 0).Select
Next
Set myOlkContact = Nothing
Set myOlk = Nothing
End Sub


Schaltbutton hab ich schon erstellt, aber wohin mit dem Macro ?
Vielen Dank für die Hilfe
Hans

Anzeige
AW: Daten aus Outlook in Excel exportieren
27.02.2009 14:20:33
harry
Sorry Hans,
hab nicht gelesen, dass Du Anfänger bist,
also:
- Mit Alt+F11 Entwicklungsumgebung öffnen
- rechte Maustaste neues Modul einfügen
- Dort Code einfügen
- unter Extras-Verweise musst Du den Verweis auf "Microsoft Outlook xxx Object Library" aktivieren
zurück auf das Sheet
- dann kannst Du über das Menü Ansicht-Symbolleisten-Steuerelemente einen neuen Button auf Deinem
Sheet platzieren und über rechte Maustaste das Makro zuweisen
dann kann's losgehen
Gruß
harry
AW: Daten aus Outlook in Excel exportieren
27.02.2009 14:42:47
Hans
Hallo,
so weit, so gut. Hab ich alles gemacht und es funktioniert auch prima.
Vielen Dank für deine Hilfe!
MfG
Hans
Anzeige

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige