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