Wie speichert man Kontaktfotos in Outlook?

Speichern Sie das Foto eines Kontakts in Outlook

Speichern Sie alle Fotos aller Kontakte in Outlook

Um das Foto eines bestimmten Kontakts in Outlook zu speichern, gehen Sie wie folgt vor:

1. Öffnen Sie den Kontaktordner, der den betreffenden Kontakt enthält, und ändern Sie die Ordneransicht, indem Sie auf Ansicht > Ansicht ändern > Liste klicken. Siehe Screenshot:

2. Doppelklicken Sie auf den Kontakt, dessen Foto Sie speichern möchten, um ihn zu öffnen.

3. Klicken Sie im Kontaktfenster mit der rechten Maustaste auf das Kontaktfoto und wählen Sie im Kontextmenü Kopieren aus. Siehe Screenshot:

4. Setzen Sie den Cursor in das Notizen-Feld und drücken Sie die Tasten Strg+V, um das Foto in das Notizen-Feld einzufügen.

5. Klicken Sie mit der rechten Maustaste auf das eingefügte Foto im Notizen-Feld und wählen Sie im Kontextmenü Als Bild speichern aus. Siehe Screenshot:

6. Geben Sie im erscheinenden Dialogfeld „Datei speichern“ Folgendes an: (1) Öffnen Sie den Zielordner, in dem Sie das Foto speichern möchten, (2) geben Sie im Feld Dateiname einen Namen für das neue Foto ein, (3) wählen Sie aus der Dropdown-Liste Speichern im Format einen Bildtyp aus, und klicken Sie abschließend (4) auf die Schaltfläche Speichern. Siehe Screenshot:

7. Schließen Sie das Kontaktfenster, ohne Ihre Änderungen zu speichern.

Das Foto des angegebenen Kontakts wurde bereits als separates Bild gespeichert.

Möchten Sie die Fotos aller Kontakte in einem Outlook-Kontaktordner speichern, verwenden Sie bitte das folgende VBA-Skript.

1. Öffnen Sie den gewünschten Kontaktordner, in dem Sie alle Kontaktfotos speichern möchten, und drücken Sie Alt+F11, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie anschließend den unten stehenden VBA-Code in das neue Modulfenster ein.

VBA: Fotos aller Kontakte in Outlook stapelweise speichern

Sub SaveAllContactsPhotos()
Dim xNameSpace As NameSpace
Dim xFdrContacts As MAPIFolder
Dim xItemContact As ContactItem
Dim xAttachments As Outlook.Attachments
Dim xAttach As Attachment
Dim xItems As Outlook.Items
Dim xName As String
Dim xPath, xFileName As String
Set xFdrContacts = Application.ActiveExplorer.CurrentFolder
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
Set xFolderItem = xFolder.self
xFileName = xFolderItem.Path & "\"
Else
xFileName = ""
Exit Sub
End If
For I = 1 To xFdrContacts.Items.Count
Set xItemContact = xFdrContacts.Items(I)
Set xAttachments = xItemContact.Attachments
For Each xAttach In xAttachments
If xAttach.FileName = "ContactPicture.jpg" Then
xName = xItemContact.FirstName & xItemContact.LastName
xPath = xFileName & xName & ".jpg"
xAttach.SaveAsFile (xPath)
End If
Next
Next
Set xShell = Nothing
End Sub

Hinweis: Dieses VBA-Skript speichert alle Kontaktfotos als JPG-Bilder. Möchten Sie sie in einem anderen Bildformat speichern, ändern Sie einfach die Dateierweiterung „.jpg“ im Code „xPath = xFileName & xName & „.jpg"“ in eine andere Erweiterung wie z. B. .png, .gif usw.

3. Drücken Sie die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen, um dieses VBA-Skript auszuführen.

4. Wählen Sie im erscheinenden Dialogfeld „Ordner durchsuchen“ den Zielordner aus, in den Sie die Fotos speichern möchten, und klicken Sie auf die Schaltfläche OK. Siehe Screenshot:

Jetzt werden alle Kontaktfotos im ausgewählten Kontaktordner gleichzeitig als einzelne .jpg-Bilder (oder in einem von Ihnen festgelegten anderen Bildformat) gespeichert.

Kontaktfotos in E-Mails in Outlook ausblenden

Foto/Bild für einen Kontakt in Outlook hinzufügen, ändern oder entfernen