Enregistrer la photo d'un contact dans Outlook

Enregistrer toutes les photos de tous les contacts dans Outlook

Pour enregistrer la photo d'un certain contact dans Outlook, procédez comme suit:

1. Ouvrez le dossier de contacts contenant le contact spécifié et modifiez la vue du dossier en cliquant sur Voir > Change de vue > Liste. Voir la capture d'écran:

2. Double-cliquez pour ouvrir le contact spécifié dont vous allez enregistrer la photo.

3. Dans la fenêtre de contact, cliquez avec le bouton droit sur la photo du contact et sélectionnez Copier dans le menu contextuel. Voir la capture d'écran:

4. Placez le curseur dans le Notes boîte et appuyez sur Ctrl + V touches pour coller la photo dans le Notes boîte.

5. Cliquez avec le bouton droit sur la photo collée dans le Notes et sélectionnez Enregistrer comme image dans le menu contextuel. Voir la capture d'écran:

6. Dans la boîte de dialogue Enregistrer le fichier, veuillez (1) ouvrez le dossier de destination dans lequel vous allez enregistrer la photo, (2) tapez un nom pour la nouvelle photo dans le Nom du fichier boîte, (3) spécifiez un type d'image à partir de Enregistrer en tant que type de liste déroulante, et enfin (4) cliquez sur le Épargnez bouton. Voir la capture d'écran:

7. Fermez la fenêtre Contact sans enregistrer les modifications.

Jusqu'à présent, la photo du contact spécifié a déjà été enregistrée en tant qu'image individuelle.

Si vous devez enregistrer les photos de tous les contacts dans un dossier de contacts dans Outlook, veuillez essayer ci-dessous VBA.

1. Ouvrez le dossier de contacts spécifié dans lequel vous enregistrerez toutes les photos de contacts et appuyez sur autre + F11 touches pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2Cliquez sur insérer > Module, puis collez sous le code VBA dans la nouvelle fenêtre de module.

VBA: Batch enregistre les photos de tous les contacts dans 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

Notes: Ce VBA enregistrera toutes les photos de contact sous forme d'images JPG. Pour enregistrer sous un autre type d'image, veuillez modifier le . Jpg dans le code xPath = xFileName & xName & ".jpg" à d'autres noms d'extension, tels que . Png, . Gif, etc.

3. appuie sur le F5 clé ou le Courir bouton pour exécuter ce VBA.

4. Dans la boîte de dialogue Rechercher un dossier, sélectionnez le dossier de destination dans lequel vous allez enregistrer les photos, puis cliquez sur le bouton OK bouton. Voir la capture d'écran:

Désormais, toutes les photos de contact dans le dossier de contacts sélectionné sont enregistrées en tant qu'images individuelles .jpg (ou d'un autre type d'image comme vous l'avez spécifié) en masse.

Masquer les photos de contact dans les e-mails dans Outlook

Ajouter, modifier ou supprimer une image / photo pour un contact dans Outlook