Método ContactItem.RemovePicture (Outlook)

Remove uma imagem de um item de Contatos.

Sintaxe

expression. RemovePicture

Expressão Uma variável que representa um objeto ContactItem .

Exemplo

O seguinte exemplo do Microsoft Visual Basic for Applications (VBA) pede que o usuário especifique o nome de um contato e remove a imagem do item de contato. Se não existir uma imagem para o contato, o exemplo exibirá uma mensagem para o usuário.

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

Confira também

Objeto ContactItem

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.