Comment faire pour définir par programme l'image de contact dans Outlook 2007?

Question

Comment pourrions-nous définir automatiquement/par programme l'expéditeur/l'image de contact dans Outlook 2007? Ce sont des collègues et toutes les photos des employés sont stockées dans netshare.

Answer 1

Je vois que Outlook.ContactItem a une méthode AddPicture. Voici un exemple tiré directement du fichier d'aide:

Sub AddPictureToAContact() 
    Dim myNms As Outlook.NameSpace 
    Dim myFolder As Outlook.Folder 
    Dim myContactItem As Outlook.ContactItem 
    Dim strName As String 
    Dim strPath As String 
    Dim strPrompt As String 

    Set myNms = Application.GetNamespace("MAPI") 
    Set myFolder = myNms.GetDefaultFolder(olFolderContacts) 
    strName = InputBox("Type the name of the contact: ") 
    Set myContactItem = myFolder.Items(strName) 
    If myContactItem.HasPicture = True Then 
     strPrompt = MsgBox("The contact already has a picture associated with it. Do you want to overwrite the existing picture?", vbYesNo) 
     If strPrompt = vbNo Then 
      Exit Sub 
     End If 
    End If 
    strPath = InputBox("Type the file name for the contact: ") 
    myContactItem.AddPicture (strPath) 
    myContactItem.Save 
    myContactItem.Display 
End Sub