通过outlook发送 - 但默认情况下不使用交换

Question

我在前景中有一些账户。其中一个是交换账户。其他人是IMAP

我正在尝试默认使用IMAP ..前景选项似乎没有帮助...因为 - ＆gt;

我正在使用VBA代码加载电子邮件内容并从excel触发电子邮件发送过程。

即使我宣布IMAP帐户为默认帐户，电子邮件也会继续使用交换帐户。有什么想法吗？

Answer 1

Outlook对象模型为MailItem类提供SendUsingAccount属性，该属性允许设置一个Account对象，该对象表示要在其下发送MailItem的帐户。您只需在调用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 
      oMail.SendUsingAccount = oAccount 
      oMail.Send 
    End If 
  Next 
End Sub