通过

Outlook) (ContactItem.HasPicture 属性

  • 项目

返回一个 布尔 值， 如果 联系人项目具有与之关联的图片 。 只读

语法

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。