實現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:[email protected]"""">[email protected] </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，將工具－宏－安全性中設置為低

以後新建郵件將會用代碼中設置的簽名內容