次の方法で共有

ContactItem.AddPicture メソッド (Outlook)

  • [アーティクル]

連絡先アイテムに画像を追加します。

構文

式。 AddPicture( _Path_ )

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

パラメーター

名前 必須 / オプション データ型 説明
パス 必須 String 連絡先アイテムに追加する画像の完全なパスとファイル名を含む文字列。

注釈

連絡先アイテムに既に画像が追加されている場合は、このメソッドによって既存の画像が上書きされます。

使用できる画像は、アイコン、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

関連項目

ContactItem オブジェクト

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

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