共用方式為

Outlook (的 ContactItem.HasPicture 屬性)

  • 發行項

會傳回Boolean值，如果連絡人專案有相關聯的圖片，則為True。 唯讀

語法

expression。 HasPicture

表達 代表 ContactItem 物件的 變數。

範例

下列 Microsoft Visual Basic for Applications (VBA) 範例會提示使用者指定連絡人的名稱以及包含連絡人圖片的檔案名稱，然後將圖片加入此連絡人項目中。 如果連絡人項目中已有圖片，則本範例會詢問使用者是否要以新檔案覆寫現有的圖片。

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

另請參閱

ContactItem 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。