Vba 通过outlook发送-但默认情况下不使用exchange

我在outlook中有几个帐户。其中之一是一个外汇帐户。其他的是IMAP

我正在尝试默认使用IMAP选项。outlook选项似乎没有帮助…因为->

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

---

即使我将IMAP帐户声明为默认帐户，电子邮件仍会使用exchange帐户发送。有什么想法吗？

Outlook对象模型为MailItem类提供了属性，该类允许设置一个Account对象，该对象表示要发送邮件的帐户。您只需要在调用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