Question

在Excel中，我使用这样的代码通过Outlook开始发送电子邮件：

Set mOutlookApp = GetObject("", "Outlook.application")
Set OutMail = mOutlookApp.CreateItem(0)

With OutMail
    .To = "blahblah@blah.com"
    .Subject = "More BLAH here"
    .HTMLBody = "Message Text" & .HTMLBody ' This preserves the Signature in the message.
    .Display
End With

通常情况下，当我发送（手动）电子邮件时，我可以选择从正常地址以外的地址发送（通过按“发件人”按钮）。

另外，我可以从我保存的几个签名中选择一个。

如何在VBA代码中完成这些专长？

Answer 1

设置MailItem.SendUsingAccount属性，调用Display（此时Outlook将插入签名），读取HTMLBody属性（它现在将包含签名），将其与您合并自己的数据（请注意，2个HTML字符串不能简单连接），设置HTMLBody属性。

Answer 2

将1更改为您要发送的帐号

.SendUsingAccount = OutApp.Session.Accounts.Item(1)

就签名而言，它们存储在%USERPROFILE%\Application Data\Microsoft\Signatures中，您可以遍历签名并选择相关的签名

VBA代码选择发件人和签名

2 个答案: