自动更新签名日期（转）

dsd999

实现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，将工具－宏－安全性中设置为低

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

yijin

一直在找办法解决此问题，没想到楼主已经解决了，谢谢分享！我试一试！

yijin

楼主：我把你的代码复制过去了，但是为什么总是提醒有一段是无效的呢？
Private WithEvents myOlInspectors As Outlook.Inspectors
请楼主帮忙解释，谢谢！

dsd999

原帖由 yijin 于 2010-8-27 11:45 发表
楼主：我把你的代码复制过去了，但是为什么总是提醒有一段是无效的呢？
Private WithEvents myOlInspectors As Outlook.Inspectors
请楼主帮忙解释，谢谢！

你是把代码复制到ThisOutlookSession下吗？

你outlook什么版本？

nicholas_he

我也学习了，多谢！！！！

ybf5186

问下，这个方法设置的签名，怎么自定义字体的颜色

ddr-160

下需要，谢谢分享！！！！

ddr-160

如何设置成回复邮件和转发邮件都带呢，现在回复和转发邮件都不会有的？？？

hxhgxy

谢谢分享，代码值得学习！
但是，邮件本身就有发送和接收时间，有什么理由非要在签名中加上时间呢？

136211828

答复时会将邮件本体全部替换并且破坏了原文，不知道问题在那