古詩詞大全網 - 藝術簽名 - OUTLOOK6中如何在簽名中顯示日期?

OUTLOOK6中如何在簽名中顯示日期?

采用腳本生成簽名的方式,二不是使用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>?</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 & "?德國倍福自動化有限公司上海代表處<br />"

Signature = Signature & " ADD.:?上海市江場三路市北工業園區163 號5樓(200436 ?)<br />"

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

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

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

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

Signature = Signature & " ? <a href=""""/""""> www.pc-control.net </a><br />"

Signature = Signature & " ? <a href=""""http://www.ethercat.org/""""> www.ethercat.org </a>? </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,將工具-宏-安全性中設置為低

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