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

实现outlook的签名日期可以自动更新2011-07-05 csdn博客 ch21st采用脚本生成签名的方式，二不是使用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，将工具－宏－安全性中设置为低

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