Método ContactItem.AddPicture (Outlook)

Adiciona uma imagem a um item de contato.

Sintaxe

expression. AddPicture( _Path_ )

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Path	Obrigatório	String	Uma cadeia de caracteres que contém o caminho completo e o nome do arquivo da imagem a ser adicionada ao item de contato.

Comentários

Se o item de contato já possui uma imagem anexada a ele, este método substituirá a imagem existente.

A imagem pode ser um ícone ou um arquivo GIF, JPEG, BMP, TIFF, WMF, EMF ou PNG. O Microsoft Outlook executará automaticamente o redimensionamento necessário da imagem.

Exemplo

O exemplo a seguir do Microsoft Visual Basic for Applications (VBA) pede que o usuário especifique o nome de um contato e o nome do arquivo que contém a imagem do contato e adiciona a imagem ao item de contato. Se já existir uma imagem para o item, o exemplo pedirá ao usuário que especifique se a imagem existente deve ser substituída pelo novo arquivo.

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

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.