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

Objeto MailItem

Procedimiento para crear un elemento que puede enviarse para una cuenta específica que se basa en la carpeta actual

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.