用于选择发件人和签名的 VBA 代码

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您可以遍历签名并选择相关的签名