Propriété MailItem.Sender (Outlook)

Renvoie ou définit un objet AddressEntry qui correspond à l’utilisateur du compte à partir duquel l’objet MailItem est envoyé. Lecture-écriture.

Syntaxe

expression. Sender

expression Variable qui représente un objet MailItem.

Remarques

Dans une session où plusieurs comptes sont définis dans le profil, vous pouvez définir cette propriété pour spécifier le compte à partir duquel envoyer un élément de courrier. Définissez cette propriété sur l’objet AddressEntry de l’utilisateur représenté par la propriété CurrentUser d’un compte spécifique.

Si vous définissez la propriété Sender avec un objet AddressEntry qui n’a pas les autorisations nécessaires pour envoyer des messages sur ce compte, Outlook génère une erreur.

Exemple

L’exemple de code suivant a été fourni par Michael Bauer. Michael, élu MVP Microsoft, exerce son savoir-faire dans le développement de solutions Outlook dans Visual Basic et Visual Basic pour Applications (VBA). Michael gère un site professionnel sur VBOffice.net.

L’exemple de code VBA suivant montre comment afficher les détails de l’expéditeur d’un e-mail. Si l'expéditeur correspond à un contact du carnet d'adresses Outlook de l'utilisateur, l'exemple de code affiche les informations de ce contact dans un inspecteur. Si l'expéditeur n'est pas un contact du carnet d'adresses de l'utilisateur, l'exemple de code affiche les détails de l'entrée d'adresse de l'utilisateur (extraits du conteneur de carnet d'adresses du fournisseur de transport) dans une boîte de dialogue.

Pour afficher des informations sur un expéditeur, l’utilisateur doit avoir sélectionné un élément MailItem dans l’explorateur. L’exemple de code vérifie également si l’élément MailItem sélectionné a été envoyé, car la propriété Sender est uniquement définie si l’élément MailItem a été envoyé. L'exemple accède ensuite à la propriété Sender pour obtenir l'objet AddressEntry qui correspond à l'expéditeur de l'élément de courrier, puis affiche les informations du contact, si elles existent ; sinon, l'exemple affiche les détails de l'entrée d'adresse.

 
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

Voir aussi

Objet MailItem

Procédure : Créer un élément pouvant être envoyé pour un compte spécifique à partir du dossier actif

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.