通过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