Propiedad MailItem.SenderEmailAddress (Outlook)

Devuelve una cadena que representa la dirección de correo electrónico del remitente del elemento de Outlook. Solo lectura.

Sintaxis

expresión. SenderEmailAddress

expresión Variable que representa un objeto MailItem.

Comentarios

Esta propiedad corresponde a la propiedad PidTagSenderEmailAddress de MAPI.

Ejemplo:

En el siguiente ejemplo de Microsoft Visual Basic para Aplicaciones (VBA) se recorren en bucle todos los elementos de una carpeta denominada Test en la Bandeja de entrada y se establece la marca amarilla en los elementos enviados por ""someone@example.com. Para ejecutar este ejemplo sin errores, asegúrese de que la carpeta Prueba existe en la carpeta Bandeja de entrada predeterminada y reemplace "someone@example.com" por una dirección de correo electrónico de remitente válida en la carpeta Prueba.

Sub SetFlagIcon() 
 
 Dim mpfInbox As Outlook.Folder 
 
 Dim obj As Outlook.MailItem 
 
 Dim i As Integer 
 
 
 
 Set mpfInbox = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("Test") 
 
 ' Loop all items in the Inbox\Test Folder 
 
 For i = 1 To mpfInbox.Items.Count 
 
 If mpfInbox.Items(i).Class = olMail Then 
 
 Set obj = mpfInbox.Items.Item(i) 
 
 If obj.SenderEmailAddress = "someone@example.com" Then 
 
 'Set the yellow flag icon 
 
 obj.FlagIcon = olYellowFlagIcon 
 
 obj.Save 
 
 End If 
 
 End If 
 
 Next 
 
End Sub

Consulte también

Objeto MailItem

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.