Propriedade ContactItem.HasPicture (Outlook)
Retorna um valor Boolean que será True se um item de Contatos possui uma imagem associada a ela. Somente leitura
Sintaxe
expression. HasPicture
Expressão Uma variável que representa um objeto ContactItem .
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.