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