Propiedad MailItem.Sender (Outlook)
Devuelve o establece un objeto AddressEntry que corresponde al usuario de la cuenta desde la cual se envía MailItem. Lectura y escritura.
Sintaxis
expresión. Sender
expresión Variable que representa un objeto MailItem.
Comentarios
En una sesión en la que hay varias cuentas definidas en el perfil, puede establecer esta propiedad para especificar la cuenta desde la que quiere que se envíe un elemento de correo. Establezca esta propiedad en el objeto AddressEntry del usuario representado en la propiedad CurrentUser de una cuenta específica.
Si establece la propiedad Sender en un AddressEntry que no tiene permisos para enviar mensajes en esa cuenta, Microsoft Outlook generará un error.
Ejemplo:
Michael Bauer proporcionó el siguiente ejemplo de código. Michael es uno de los profesionales más valorados de Microsoft y tiene experiencia en el desarrollo de soluciones de Outlook en Visual Basic y Visual Basic para Aplicaciones (VBA). Michael mantiene un sitio profesional en VBOffice.net.
En el siguiente ejemplo de código VBA vemos cómo se muestran los detalles del remitente de un correo electrónico. Si el remitente coincide con un contacto de la Libreta de direcciones de contactos (CAB) de Outlook, el ejemplo de código muestra la información sobre ese contacto en un inspector. Si el remitente no aparece como contacto en la CAB del usuario, el ejemplo de código muestra detalles de la entrada de dirección del usuario (que se toman del contenedor de la libreta de direcciones del proveedor de transporte) en un cuadro de diálogo.
Para mostrar información sobre un remitente, el usuario debe haber seleccionado un Objeto MailItem en el explorador. El ejemplo de código también comprueba si el elemento MailItem seleccionado se ha enviado porque la propiedad Sender se define únicamente si se ha enviado Mailtem. En el ejemplo, después, se obtiene acceso a la propiedad Sender para obtener el objeto AddressEntry que corresponde al remitente de ese elemento de correo y se muestra la información de contacto si existe. Si no, el ejemplo muestra los detalles de la entrada de dirección.
Public Sub DisplaySenderDetails()
Dim Explorer As Outlook.Explorer
Dim CurrentItem As Object
Dim Sender As Outlook.AddressEntry
Dim Contact As Outlook.ContactItem
Set Explorer = Application.ActiveExplorer
' Check whether any item is selected in the current folder.
If Explorer.Selection.Count Then
' Get the first selected item.
Set CurrentItem = Explorer.Selection(1)
' Check for the type of the selected item as only the
' MailItem object has the Sender property.
If CurrentItem.Class = olMail Then
Set Sender = CurrentItem.Sender
' There is no sender if the item has not been sent yet.
If Sender Is Nothing Then
MsgBox "There's no sender for the current email", vbInformation
Exit Sub
End If
Set Contact = Sender.GetContact
If Not Contact Is Nothing Then
' The sender is stored in the contacts folder,
' so the contact item can be displayed.
Contact.Display
Else
' If the contact cannot be found, display the
' address entry in the properties dialog box.
Sender.Details 0
End If
End If
End If
End Sub
Vea 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.