编程语言

img ch21st

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

发表于2008/12/23 8:29:00  3353人阅读

分类: Office 应用

 采用脚本生成签名的方式,二不是使用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,将工具-宏-安全性中设置为低

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

 

 

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

 

阅读全文
0 0

相关文章推荐

img
取 消
img