MailItem. SendUsingAccount-Eigenschaft (Outlook)MailItem.SendUsingAccount property (Outlook)

Gibt ein Account -Objekt zurück, das das Konto darstellt, unter dem das MailItem gesendet werden soll, oder legt dieses fest. Returns or sets an Account object that represents the account under which the MailItem is to be sent. Lese-/Schreibzugriff.Read/write.

SyntaxSyntax

expression.expression. SendUsingAccountSendUsingAccount

Ausdruck Ein Ausdruck, der ein MailItem -Objekt zurückgibt.expression An expression that returns a MailItem object.

HinweiseRemarks

Die SendUsingAccount -Eigenschaft kann verwendet werden, um das Konto anzugeben, das zum Senden des MailItem-Objekts verwendet werden soll, wenn die Send -Methode aufgerufen wird.The SendUsingAccount property can be used to specify the account that should be used to send the MailItem when the Send method is called. Diese Eigenschaft gibt Null (Nothing in Visual Basic) zurück, wenn das für das MailItem-Objekt angegebene Konto nicht mehr vorhanden ist.This property returns Null (Nothing in Visual Basic) if the account specified for the MailItem no longer exists.

BeispielExample

Das folgende Codebeispiel in Microsoft Visual Basic für Applikationen listet die Accounts -Auflistung auf, um ein POP3-Konto zu finden.The following code sample in Microsoft Visual Basic for Applications enumerates the Accounts collection to find a Pop3 account. Wenn das Konto gefunden wird, wird eine Nachricht programmgesteuert erstellt, und die SendUsingAccount -Eigenschaft wird dem POP3-Konto zugewiesen.If the account is found, a message is created programmatically, and the SendUsingAccount property is assigned to the Pop3 account. Beachten Sie, dass die SendUsingAccount -Eigenschaft zugewiesen werden muss, bevor die Send -Methode aufgerufen wird.Note that you must assign the SendUsingAccount property before you call the Send method.

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

Siehe auchSee also

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.