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
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.