Метод ContactItem.RemovePicture (Outlook)

Удаляет рисунок из элемента "Контакты ".

Синтаксис

выражение. RemovePicture

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

Пример

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