Question

我有一个使用VBA自动发送电子邮件的宏。在我的Outllok上，我有3个不同的帐户/电子邮件设置，我可以从中发送电子邮件。

这是我的宏

Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
    msg.To = Sheets("CONFIRM").Range("G2")
    msg.Subject = Subj
    msg.BodyFormat = olFormatHTML
    msg.HTMLBody = "<p style='font-family:calibri;font-size:15'>" & Body & "</p>"
    msg.Attachments.Add (DestinationFile1)
    msg.Send

如何指定用于发送电子邮件的帐户....谢谢

Answer 1

制作3个宏，每个帐户一个，然后根据条件调用您想要的一个。或者根据G1 G2或G3 I的标准包括选择声明

如何使用VBA指定要从中发送电子邮件的帐户

1 个答案: