Outlook) (ContactItem.AddPicture 方法
將圖片新增至連絡人項目。
語法
expression。 AddPicture( _Path_ )
表達 代表 ContactItem 物件的 變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| Path | 必要 | 字串 | 字串，包含要新增至連絡人項目之圖片的完整路徑和檔案名。 |
註解
如果連絡人項目已附加圖片，這個方法將會覆寫現有的圖片。
圖片可以是圖示、GIF、JPEG、BMP、TIFF、WMF、EMF 或 PNG 檔案。 Microsoft Outlook 會自動執行圖片的必要調整大小。
範例
下列 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
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。