0

如何将 mailitem.sender 设置为帐户的邮箱..

每个帐户可以有多个邮箱。我能够访问所有 smtp 帐户,但无法将其邮箱设置为 mailitem.sender

我们可以使用 Outlook.Session.Folders 访问的 Outlook 邮箱

4

1 回答 1

0

MailItem 类的SendUsingAccount属性允许设置一个 Account 对象,该对象表示要发送 MailItem 的帐户。例如:

 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 
    oMail.SendUsingAccount = oAccount 
    oMail.Send 
   End If 
  Next 
 End Sub 
于 2015-07-01T11:21:47.897 回答