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