MailItem.SendUsingAccount 属性 (Outlook)

返回或设置一个 Account 对象,该对象代表用来发送 MailItem 的帐户。 读/写。

语法

expression。 SendUsingAccount

表达 返回 MailItem 对象的表达式。

备注

SendUsingAccount 属性可以用于指定应使用调用 Send 方法时发送 MailItem 的帐户。 如果为 MailItem 指定的帐户不再存在,则此属性将返回 Null(在 Visual Basic 中为 Nothing)。

示例

下面的代码示例在 Microsoft Visual Basic for Applications 枚举 帐户 集合以找到 Pop3 帐户。 如果找到帐户,则会以编程方式创建一条消息,并将 SendUsingAccount 属性分配给 Pop3 帐户。 请注意,调用 Send 方法之前,必须将 SendUsingAccount 属性。

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

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。