采用脚本生成签名的方式,二不是使用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,将工具-宏- 安全性中设置为低
    以后新建邮件将会用代码中设置的签名内容