在VBA宏中为Outlook电子邮件使用签名

Question

基于多种资源，我在Excel上具有以下VBA代码，可以使用VBA从我的Outlook帐户发送电子邮件：

Sub SendEmail()
Dim OA As Object
Dim msg As Object

Set OA = CreateObject("Outlook.Application")
Set msg = OA.CreateItem(0)

sig = msg.HtmlBody

msg.To = "[email protected]"
msg.Subject = "Subject Line!"
msg.HtmlBody = "<p>Body</p>" & sig
msg.Send
End Sub

但是，我的电子邮件签名未添加到电子邮件正文的末尾。

关于为什么会这样的任何想法？

Answer 1

尝试保存邮件项以添加签名：