Mit diesem Codebeispiel wird ein Word-Dokument erstellt, das den Namen, die Adresse, die Telefonnummer und das Kontaktfoto des ausgewählten Kontakts enthält. In diesem Beispiel wird ein neues, leeres Word-Dokument verwendet. Sie können jedoch auch eine Word-Vorlage mit Lesezeichen oder Seriendruckfeldern für die Kontaktdaten verwenden.
Unten finden Sie ein einfaches Codebeispiel, das ein neues Word-Dokument erstellt und Informationen über den ausgewählten Kontakt in Outlook einfügt. Der Code setzt voraus, dass Sie bereits einen Kontakt in Outlook ausgewählt haben:
Sub KontaktInfosInWord()
Dim olItem As Object
Dim olContact As Outlook.ContactItem
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Set olItem = Application.ActiveExplorer.Selection.Item(1)
If olItem.Class = olContact Then
Set olContact = olItem
' Word-Application erstellen
Set wdApp = New Word.Application
wdApp.Visible = True
' Neues Word-Dokument erstellen
Set wdDoc = wdApp.Documents.Add
With wdDoc
.Content.InsertAfter "Name: " & olContact.FullName
.Content.InsertParagraphAfter
.Content.InsertAfter "Adresse: " & olContact.BusinessAddress
.Content.InsertParagraphAfter
.Content.InsertAfter "Telefon: " & olContact.BusinessTelephoneNumber
.Content.InsertParagraphAfter
.Content.InsertAfter "Bild: "
.Content.InsertParagraphAfter
' Kontaktbild einfügen, wenn vorhanden
If olContact.HasPicture Then
olContact.GetPicture.SaveAsFile "temp.jpg"
.Content.InlineShapes.AddPicture "temp.jpg"
Kill "temp.jpg" ' Temporäre Datei löschen
End If
End With
End If
Set wdDoc = Nothing
Set wdApp = Nothing
Set olContact = Nothing
Set olItem = Nothing
End Sub
Die Funktion KontaktInfosInWord nimmt das erste ausgewählte Element (angenommen, es handelt sich um einen Kontakt) und speichert dessen Informationen in Word. Bitte beachten Sie, dass dieser Code nur funktioniert, wenn ein Kontakt ausgewählt ist.
Die Informationen, die wir von dem Kontakt sammeln, sind der vollständige Name, die Geschäftsadresse und die Geschäftstelefonnummer. Danach fügen wir diese Informationen in das Word-Dokument ein.
Wenn ein Kontaktbild vorhanden ist, wird es als “temp.jpg” gespeichert und danach in das Word-Dokument eingefügt. Nach dem Einfügen wird die temporäre Datei gelöscht.
Beachten Sie, dass dieses einfache Beispiel keine Fehlerprüfung oder -behandlung enthält. Sie sollten sicherstellen, dass das ausgewählte Element tatsächlich ein Kontakt ist und die erforderlichen Informationen enthält, bevor Sie den Code ausführen. Außerdem sollten Sie sicherstellen, dass Sie Berechtigungen zum Speichern von Dateien und Zugriff auf das Word-Objektmodell haben.
