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