Partager via


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

Objet MailItem

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.