ContactItem.HasPicture プロパティ (Outlook)

連絡先アイテムに関連付けられている画像がある場合は、 true を指定 する ブール 値を返します。 読み取り専用

構文

式。 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 のサポートおよびフィードバックを参照してください。