VBA从第二个Outlook电子邮件地址发送电子邮件

Question

我使用以下代码在Excel中使用VBA通过Outlook发送电子邮件。我在Outlook中设置了两个电子邮件地址。我想从我的辅助电子邮件帐户发送电子邮件。我该怎么做？

 Dim objOL
Dim objAppt
Const olAppointmentItem = 1
Const olMeeting = 1
    Set objOL = CreateObject("Outlook.Application")
    Set objAppt = objOL.CreateItem(0)
     With objAppt
    .display
    End With
     signature = objAppt.HTMLBody
    With objAppt
        .to = Range("H3").Value
        .Subject = Range("L3").Value
        .CC = Range("K3").Value
        .HTMLBody = Body
        .display 'display not send
    End With
    Set objAppt = Nothing
    Set objOL = Nothing

Answer 1

将MailItem.SendUsingAccount属性设置为Namespace.Accounts集合中的一个Account对象。