Propriété MailItem.SenderEmailAddress (Outlook)
Renvoie une valeur de type String qui représente l’adresse e-mail de l’expéditeur de l’élément Outlook. En lecture seule.
Syntaxe
expression. SenderEmailAddress
expression Variable qui représente un objet MailItem.
Remarques
Cette propriété correspond à la propriété MAPI PidTagSenderEmailAddress.
Exemple
L’exemple Microsoft Visual Basic pour Applications (VBA) suivant montre comment boucler tous les éléments d’un dossier nommé Test dans la boîte de réception et définir l’indicateur jaune sur les éléments envoyés par « ».someone@example.com Pour exécuter cet exemple sans erreur, vérifiez que le dossier Test existe dans le dossier Boîte de réception par défaut et remplacez «someone@example.com » par une adresse e-mail de l’expéditeur valide dans le dossier Test.
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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.