VBA代码来select发件人和签名

在Excel中，我使用这样的代码通过Outlook开始一个电子邮件消息：

Set mOutlookApp = GetObject("", "Outlook.application") Set OutMail = mOutlookApp.CreateItem(0) With OutMail .To = "[e-mail]" .Subject = "More BLAH here" .HTMLBody = "Message Text" & .HTMLBody ' This preserves the Signature in the message. .Display End With 

通常，当我发送（手动）电子邮件时，我可以select从非常规地址发送（通过按“发件人”button）。

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

我怎样才能在VBA代码中完成这些壮举？

Answer 1

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

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

就签名而言，它们存储在%USERPROFILE%\Application Data\Microsoft\Signatures您可以循环签名并select相关的签名

Answer 2

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