Outlook 2010:如何向打开的电子邮件添加默认签名

时间:2014-01-08 14:31:35

标签: vba outlook

不确定为什么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

1 个答案:

答案 0 :(得分:0)

当您调用MAilItem.Display或调用MailItem.GetInspector时,Outlook将添加默认签名(您可以忽略默认值)。