Método ContactItem.AddPicture (Outlook)

Agrega una imagen a un contacto.

Sintaxis

expresión. AddPicture( _Path_ )

Expresión Variable que representa un objeto ContactItem .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Path	Obligatorio	String	Cadena que contiene la ruta de acceso completa y el nombre de archivo de la imagen que se va a agregar al elemento de contacto.

Comentarios

Si el contacto ya tiene una imagen adjunta, este método sobrescribirá la imagen existente.

La imagen puede ser un icono, un archivo GIF, JPEG, BMP, TIFF, WMF, EMF o PNG. Microsoft Outlook ajustará automáticamente la imagen.

Ejemplo:

En el siguiente ejemplo de Microsoft Visual Basic para Aplicaciones (VBA) se solicita al usuario que especifique el nombre de un contacto y el nombre de archivo que contiene una imagen del contacto y, a continuación, agrega la imagen al elemento de contacto. Si ya existe una imagen para el elemento de contacto, el ejemplo solicita al usuario que especifique si el nuevo archivo debe sobrescribir la imagen existente.

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

Consulte también

Objeto ContactItem

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.