Метод ContactItem.AddPicture (Outlook)

Статья
04/07/2023

Добавляет рисунок в элемент контакта.

Синтаксис

выражение. AddPicture( _Path_ )

Выражение Переменная, представляющая объект ContactItem .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Путь	Обязательный	String	Строка, содержащая полный путь и имя файла рисунка, добавляемого в элемент контакта.

Замечания

Если к элементу контакта уже прикреплен рисунок, этот метод перезапишет существующее изображение.

Изображение может быть значком, GIF, JPEG, BMP, TIFF, WMF, EMF или PNG-файлом. Microsoft Outlook автоматически выполнит необходимое изменение размера рисунка.

Пример

В следующем примере Microsoft Visual Basic для приложений (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 и обратная связь.

Share via