通过VBA在Outlook中添加非默认签名

Question

关于VBA在Outlook中起草新电子邮件中如何添加默认签名的文章很多。

但是，有什么方法可以选择在电子邮件中插入哪个签名？ 我正在编写一个VBA，用于从excel复制数据，然后在Outlook中使用非默认签名起草新电子邮件。

非常感谢！

Answer 1

为了包括非标准签名，您需要从%AppData%\\Microsoft\\Signatures文件夹中打开签名模板，并将适当文件的内容附加到邮件正文中。

.... 'Your other code to create the mailitem "msg" goes here.'

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(Environ("AppData") & "\Microsoft\Signatures\mySig2.htm", ForReading)
strText = objTextFile.ReadAll
objTextFile.Close

msg.HTMLBody = msg.HTMLBody & strText