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