Speichern Sie das Foto eines Kontakts in Outlook

Speichern Sie alle Fotos aller Kontakte in Outlook

Gehen Sie wie folgt vor, um das Foto eines bestimmten Kontakts in Outlook zu speichern:

1. Öffnen Sie den Kontaktordner mit dem angegebenen Kontakt und ändern Sie die Ordneransicht durch Klicken auf Anzeigen > Ansicht ändern > Liste. Siehe Screenshot:

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

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

4. Setzen Sie den Cursor in die Notizen Box und drücken Sie Ctrl + V Tasten zum Einfügen des Fotos in die Notizen Box.

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

6. Bitte klicken Sie im Dialogfeld "Datei speichern" auf (1) Öffnen Sie den Zielordner, in dem Sie das Foto speichern möchten. (2) Geben Sie einen Namen für das neue Foto in das Feld ein Dateiname Box, (3) Geben Sie einen Bildtyp aus dem an Speichern als Typ Dropdown-Liste und schließlich (4) klicken Sie auf die Speichern Taste. Siehe Screenshot:

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

Bisher wurde das Foto des angegebenen Kontakts bereits als Einzelbild gespeichert.

Wenn Sie die Fotos aller Kontakte in einem Kontaktordner in Outlook speichern müssen, versuchen Sie es unter VBA.

1. Öffnen Sie den angegebenen Kontaktordner, in dem Sie alle Kontaktfotos speichern, und drücken Sie Andere + F11 Tasten zum Öffnen des Fensters Microsoft Visual Basic für Applikationen.

2. Klicken Sie Insert > Modulund fügen Sie dann den folgenden VBA-Code in das neue Modulfenster ein.

VBA: Stapelspeicherfotos aller Kontakte in Outlook

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

Note: Dieser VBA speichert alle Kontaktfotos als JPG-Bilder. Zum Speichern als anderer Bildtyp ändern Sie bitte die . Jpg im Code xPath = xFileName & xName & ".jpg" zu anderen Nebenstellennamen, wie z . Png, . Gif, usw.

3. Drücken Sie die F5 Schlüssel oder die Führen Sie Schaltfläche, um diese VBA auszuführen.

4. Wählen Sie im Dialogfeld Nach Ordner suchen den Zielordner aus, in dem Sie die Fotos speichern möchten, und klicken Sie auf OK Taste. Siehe Screenshot:

Jetzt werden alle Kontaktfotos im ausgewählten Kontaktordner als einzelne JPG-Bilder (oder ein anderer von Ihnen angegebener Bildtyp) in großen Mengen gespeichert.

Kontaktfotos in E-Mails in Outlook ausblenden

Hinzufügen, Ändern oder Entfernen von Bildern / Fotos für den Kontakt in Outlook