Partager via


Propriété MailItem.SendUsingAccount (Outlook)

Renvoie ou définit un objet Account qui représente le compte sous lequel l’objet MailItem doit être envoyé. Lecture-écriture.

Syntaxe

expression. SendUsingAccount

Expression Expression qui renvoie un objet MailItem .

Remarques

La propriété SendUsingAccount peut être utilisée pour spécifier le compte qui doit être utilisé pour envoyer l’objet MailItem lorsque la méthode Send est appelée. Cette propriété renvoie la valeur Null (Nothing en Visual Basic) si le compte spécifié pour l’objet MailItem n’existe plus.

Exemple

L’exemple de code suivant dans Microsoft Visual Basic pour Applications énumère la collection Accounts pour rechercher un compte Pop3. Si le compte est trouvé, un message est créé par programmation et la propriété SendUsingAccount est affectée au compte Pop3. Notez que vous devez affecter la propriété SendUsingAccount avant d'appeler la méthode Send.

Sub SendUsingAccount() 
 
 Dim oAccount As Outlook.account 
 
 For Each oAccount In Application.Session.Accounts 
 
 If oAccount.AccountType = olPop3 Then 
 
 Dim oMail As Outlook.MailItem 
 
 Set oMail = Application.CreateItem(olMailItem) 
 
     oMail.Subject = "Sent using POP3 Account" 
 
     oMail.Recipients.Add ("someone@example.com") 
 
     oMail.Recipients.ResolveAll 
 
 Set oMail.SendUsingAccount = oAccount 
 
     oMail.Send 
 
 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.