次の方法で共有

ContactItem.RemovePicture メソッド (Outlook)

  • [アーティクル]

連絡先アイテムの画像を削除します。

構文

式。 RemovePicture

式ContactItem オブジェクトを表す変数。

例

次の Microsoft Visual Basic for Applications (VBA) の例は、ユーザーに連絡先の名前の指定を求めるメッセージを表示し、その連絡先アイテムの画像を削除します。 連絡先の画像が存在しない場合は、ユーザーにメッセージが表示されます。

Sub RemovePictureFromContact() 
 
 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 = False Then 
 
 MsgBox "The contact does not have a picture associated with it." 
 
 Else 
 
 myContactItem.RemovePicture 
 
 myContactItem.Save 
 
 myContactItem.Display 
 
 End If 
 
End Sub

関連項目

ContactItem オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。