VBA从第二个Outlook电子邮件地址发送电子邮件-Java 学习之路

我使用以下代码通过Excel在Excel中使用VBA发送电子邮件 . 我在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

1 回答

0

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

回复于 2024-04-28T22:56:46+08:00

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

1 回答

相关问题