Question

OUTLOOK6中如何在签名中显示日期？

要能操作的，不要网上CTRL+V的"觉很不方便，因为我用VBA写了一段脚本自动更具用户的需求添加签名内容，日期可以实现自动提取当前日期"。本人小白，这种看不懂的;第二位，要的是OUTLOOK 6，且USE CHINESE.TKS!

Answer 1

采用脚本生成签名的方式，二不是使用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=""""http://www.beckhoff.com.cn/""""> www.beckhoff.com.cn </a><br />"
Signature = Signature & "        <a href=""""http://www.pc-control.net/""""> 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，将工具－宏－安全性中设置为低
以后新建邮件将会用代码中设置的签名内容

Answer 2

新建一个word文档，选择Insert-Field，左边选Date，右边选合适的格式，确定。日期作为动态域插入。选择整个Field，Ctrl+C，关闭文档不用保存。
Outlook 2k3新建邮件，Tools-Options-General-Email Options，新建一签名，在签名内容处，Ctrl-V，把Field Paste进来。
更新Field的shortcut是F9。