VBA从Office 365连接帐户发送电子邮件

Question

VBA创建的电子邮件已成功发送，但我只能从我的默认帐户发送。由于我有几个office365连接帐户，在Outlook 2016中我可以选择发送＆＃39; FROM＆＃39;超出可用连接帐户列表。这在VBA中是不可能的。 在Otutlook中，只有一个帐户（Office 365的交换），因此使用SendUsingAccount只会找到唯一的帐户。 SentOnBehalfOfName在安全问题上反弹。毕竟定义发送＆＃39; FROM＆＃39;是否可能？邮件地址？

Answer 1

是的，您可以，但您需要在Outlook中创建不同的帐户。完成后，请使用以下代码摘录：

Dim SendAccount As String
SendAccount = "MyDesiredAccountName"

Set MAPISession = objOutlook.Application.Session 
Set MAPIMailItem = objOutlook.CreateItem(olMailItem)  'Create a new mail message

'**********************************************
'* Find desired from-account
'* If not found, use default
'*
For Each Account In MAPISession.Accounts
  If Account = SendAccount Then
    MAPIMailItem.SendUsingAccount = Account
    Exit For
  End If
Next

这足以让你入门吗？