VBScript Outlook 2016从特定的IMAP帐户发送新邮件

Question

直到Outlook 2013，我能够通过宏使用特定的IMAP帐户发送新邮件。

自Outlook 2016以来，我收到一条错误消息： “运行时错误'9'：下标超出范围”

这是代码：

Sub createMailIMAP()
    Dim MyMail As MailItem, _
        olkInspector As Outlook.Inspector, _
        olkSendThroughBtn As CommandBarPopup, _
        olkSendAccount As CommandBarButton
    Set MyMail = Application.CreateItem(olMailItem)
    MyMail.BodyFormat = olFormatPlain
    MyMail.Body = ""
    MyMail.Display
    Set olkSendThroughBtn = Application.ActiveInspector.CommandBars("Standard").Controls(3)
    Set olkSendAccount = olkSendThroughBtn.Controls(2)
    olkSendAccount.Execute
End Sub

Nota bene：Outlook配置了Exchange帐户，并有一个额外的共享邮箱。

对于Outlook 2016，此代码是否已弃用？ 干杯 POY。

Answer 1

控件集合现在为空（Controls.Count == 0）。 - Outlook 2016使用色带。

改为设置MailItem.SendUsingAccount属性。