0

我们如何在 Outlook 2007 中自动/以编程方式设置发件人/联系人图像?他们是同事,所有员工的照片都存储在netshare中。

4

1 回答 1

1

I see that Outlook.ContactItem has an AddPicture method. Here's an example straight out of the help file:

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
于 2009-11-04T21:14:43.347 回答