Comment enregistrer les photos de vos contacts dans Outlook ?

Enregistrer la photo d’un contact dans Outlook

Enregistrer toutes les photos de tous les contacts dans Outlook

Pour enregistrer la photo d’un contact spécifique dans Outlook, procédez comme suit :

1. Ouvrez le dossier Contacts contenant le contact concerné, puis modifiez l’affichage du dossier en cliquant sur Affichage > Modifier l’affichage > Liste. Voir la capture d’écran :

2. Double-cliquez pour ouvrir le contact dont vous souhaitez enregistrer la photo.

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

4. Placez le curseur dans la zone Notes, puis appuyez sur les touches Ctrl + V pour coller la photo dans la zone Notes.

5. Cliquez avec le bouton droit sur la photo collée dans la zone Notes, puis sélectionnez Enregistrer sous l’image dans le menu contextuel. Voir la capture d’écran :

6. Dans la boîte de dialogue Enregistrer le fichier qui s’ouvre, (1) accédez au dossier de destination où vous souhaitez enregistrer la photo, (2) saisissez un nom pour la nouvelle photo dans la zone Nom du fichier, (3) choisissez un format d’image dans la liste déroulante Spécifier le format d'enregistrement, puis cliquez enfin (4) sur le bouton Enregistrer. Voir la capture d’écran :

7. Fermez la fenêtre du contact sans enregistrer vos modifications.

La photo du contact spécifié a désormais été enregistrée en tant qu’image individuelle.

Si vous souhaitez enregistrer les photos de tous les contacts d’un dossier Contacts dans Outlook, essayez la macro VBA ci-dessous.

1. Ouvrez le dossier Contacts dans lequel vous souhaitez enregistrer toutes les photos de vos contacts, puis appuyez sur les touches Alt+F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insertion > Module, puis collez le code VBA ci-dessous dans la nouvelle fenêtre de module.

VBA : Enregistrer par lots 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

Remarque: cette macro VBA enregistre toutes les photos des contacts au format JPG. Pour les enregistrer dans un autre type d’image, modifiez l’extension « .jpg » dans la ligne de code suivante : xPath = xFileName & xName & «.jpg», en la remplaçant par une autre extension, comme .png, .gif, etc.

3. Appuyez sur la touche F5 ou sur le bouton Exécuter pour exécuter cette macro VBA.

4. Dans la boîte de dialogue « Parcourir les dossiers » qui s’ouvre, veuillez sélectionner le dossier de destination où vous souhaitez enregistrer les photos, puis cliquez sur le bouton OK. Voir la capture d’écran :

Toutes les photos des contacts du dossier sélectionné sont désormais enregistrées en masse sous forme d’images individuelles au format .jpg (ou dans un autre type d’image selon votre choix).

Masquer les photos des contacts dans les e-mails dans Outlook

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