不确定为什么Outlook永远不会为在其外部创建的电子邮件签名。就像在Windows资源管理器中右键单击文件,然后单击发送...还有其他文件。 我想在快速访问工具栏中添加一个按钮,只需将其弹出显示的电子邮件即可。 单击Smibbon需要3或4次点击:(
我能够获得默认签名,但无法弄清楚如何插入它。
Public Sub InsertDefaultSignature()
Dim OlApp As Outlook.Application
Dim ObjMail As Outlook.MailItem
DirSig = "C:\Users\" & Environ("username") & _
"\AppData\Roaming\Microsoft\Signatures"
FileNameHTMSig = Dir$(DirSig & "\*.htm")
Set OlApp = Outlook.Application
Set ObjMail = OlApp.CreateItem(olMailItem)
'need something here
End Sub
答案 0 :(得分:0)
当您调用MAilItem.Display或调用MailItem.GetInspector时,Outlook将添加默认签名(您可以忽略默认值)。