实现outlook的签名日期可以自动更新

 采用脚本生成签名的方式，二不是使用outlook自带的签名。

Outlook 支持签名，但是使用Word域方式在签名中加入日期，不能在创建邮件的时候自动更新为当前系统日期，必须按F9来更新，感觉很不方便，因为我用VBA写了一段脚本自动更具用户的需求添加签名内容，日期可以实现自动提取当前日期。

注意：

outlook的宏安全性必须设置为低

 

如果谁感兴趣可以按照下面的方式操作：

 

1.打开outlook，取消原来设置的签名

2.按照菜单（工具－宏－Visual Basic 编辑器）

3.在出现的编辑器，从左边选择：ThisOutlookSession，右边默认应该是空白。

4.将下面的代码复制到右边：

'------------------------------------------------------------------

 

Dim myOlApp As New Outlook.Application

Private WithEvents myOlInspectors As Outlook.Inspectors

Private myMailItem As Outlook.MailItem

Function Signature() As String

    Dim mDate As Date

    mDate = Format(Now, "yyyy-MM-dd")

    

    

Signature = "<font size=2>"

Signature = Signature & "<p>&nbsp;</p>"

Signature = Signature & "<p  style=""""font-size: 10px"""">" & mDate & " <br />"

Signature = Signature & "致礼！</p>"

Signature = Signature & "<p style=""""font-size: 10px"""">尚德明<br />"

Signature = Signature & "//---------------------------------------------------------------<br />"

Signature = Signature & "&nbsp;德国倍福自动化有限公司上海代表处<br />"

Signature = Signature & "  ADD.:&nbsp;上海市江场三路市北工业园区163 号5楼（200436 &nbsp;）<br />"

Signature = Signature & "  TEL: &nbsp;&nbsp; 021-66312666-837 <br />"

Signature = Signature & "  FAX: &nbsp;&nbsp; 021-66315696 <br />"

Signature = Signature & "  MAIL:&nbsp;&nbsp; <a href=""""mailto:d.shang@beckhoff.com.cn"""">d.shang@beckhoff.com.cn </a> <br />"

Signature = Signature & "  Web:&nbsp;&nbsp; <a href=""""http://www.beckhoff.com.cn/""""> www.beckhoff.com.cn </a><br />"

Signature = Signature & "  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href=""""http://www.pc-control.net/""""> www.pc-control.net </a><br />"

Signature = Signature & "  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href=""""http://www.ethercat.org/""""> www.ethercat.org </a>&nbsp; </p>"

Signature = Signature & "<span >//---------------------------------------------------------------</span>"

Signature = Signature & "</font>    "

    

    

End Function

Private Sub Application_Startup()

'GetSignature

Set myOlInspectors = myOlApp.Inspectors

End Sub

Private Sub myOlInspectors_NewInspector(ByVal Inspector As Inspector)

Set myMailItem = Inspector.CurrentItem

    With myMailItem

        .HTMLBody = Signature()

        .Display‘如果是outlook 2007 将此行注释掉

    End With

End Sub

'----------------------------------------------------------------------------------

中间部分是签名的HTML内容，可以修改为自己需要设置的。

 

5.保存，退出。重新启动outlook，将工具－宏－安全性中设置为低

以后新建邮件将会用代码中设置的签名内容

 

 

上面的代码还存在缺陷，没有检测是新建、回复还是阅读。实际使用要考虑这点。