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

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

时间: 2024-10-26 05:49:30

实现outlook的签名日期可以自动更新的相关文章

Word 2007自动更新 让操作速度加倍

现在很多软件只要是一打开运行,首先便是自动检测.更新,升级程序,以使程序保持最新状态.其 实在Word某些地方也有自动更新功能,只是我们没有加以利用罢了,如果能将这些自动更新功能充分利用 的话,那带给我们的将不只是惊喜,更重要的是工作效率的飞速提高. 一.让Word中的落款日期自动更新 每当我们用Word编辑完文档后,都是存盘保存,以备不时之需,然而,有的文档保存后,只是作为一 个存档备份资料,而有的文档保存后,使用率还是蛮高的,比如说某些特殊的模板文件,有时一天不知要 调用多少次.至于档案类文

wps表格怎样设置自动更新日期

  wps表格设置自动更新日期的方法: 打开(或新建)要自动填充日期的表格.如下图所示: 选择需要设置日期的单元格,鼠标在此单元格上单击,选中此单元格.如下图所示单元格既是将要设置日期的单元格. 鼠标在需要设置日期的单元格上右击鼠标键,在弹出的选项栏中选择"设置单元格格式",如下图所示: 在弹出的[单元格格式]对话框中,选择[日期]-[2000/01/11],选择好合适的格式后,单击[确定]即可. 接下来,选择函数的快捷按钮(如下图所示),单击进入. 在点击函数的快捷按钮后,会弹出&q

原生javascript实现自动更新的时间日期_javascript技巧

能够动态变化的事物总比静态的更能够吸引人,甚至更有实用效果,比如能够自动变化的时间日期效果就是如此,下面就通过代码实例介绍一下如何实现此效果,代码实例如下:一.具体代码 <html> <head> <meta charset="gb2312"> <title></title> <script type="text/javascript"> var t = null; function time(

实现.NET应用程序的自动更新

程序 应用程序更新的方法一般有两种:一是通知用户(比如发E-mail),让用户到指定的网站地址下载更新的程序:二是将更新的职责从用户那边转移到应用程序自身,由应用程序自身取代用户获取并安装一个软件的更新,客户端应用程序自身负责从一个已知服务器下载并安装更新,用户唯一需要进行干预的是决定是否愿意现在或以后安装新的更新.显然,后者比前者更友好.你现在可以看到类似后一种方法的实际产品,比如Windows XP和Microsoft Money.本文所介绍的.NET应用程序更新组件就可以提供类似的功能.

Windows 7自动更新开启/升级包卸载方法

  本文介绍Windows 7自动更新开启及Windows 7自动升级包的卸载方法,同样适用于Vista,如果想卸载Windows XP升级补丁包,请参考文末的步骤及注意事项,平时遇到不小心安装的补丁程序,可以通过本文的方法卸载掉,另外由于卸载升级包需要考虑到先后次序问题,所以,应该尽可能的优先考虑Windows 7系统保护功能,只要开启保护,Windows 7会自动创建还原点,系统还原比手动卸载更有效. 一.开启Windows 7自动更新 使用Windows 7的用户建议全部开启自动更新,天缘

asp.net自动更新组件分享

一. 摘要 前两天在博客上发布了一篇英文的自动更新组件文章Release a AutoUpdater tool,那么在这篇文章中,我们也对其功能进行一些简单说明,这个组件非常简单,所以大家可以下载进行一些改进.众所周知,对于一般的软件开发,在开始的时候都会有一个技术选型的阶段,最大的选型就是首先要确定是选择Client/Server模式还是Browser/Server模式.综合而论:两者各有优劣,在很多方面都不能被对方互相取代,如在适用Internet.维护工作量等方面,B/S比C/S要强很多:

Excel输入新数据时图表自动更新

我有一朋友,是做销售的.他利用Excel图表来记录每天的销售成绩.那天,他打来电话问了这样一个 问题:用Excel来记录每天的销售非常的方便,能够直观地表示出每天的销售成绩,但是因为每天都有新 的数据,所以我不得不每天手动更改图表来使其包含新的数据.有没有一种方法可以让我输入新的数据时 ,图表能自动更新.下面的方法将为他来解决这个问题. 在Excel 97及以后版本中,当选中一个图表数据系列时,工作表中与该数据系列对应的数据区域周围 就会出现边框,这时可以通过简单地拖拽区域边框的角点来扩展数据区

C#利用批处理实现正在运行的程序自动更新

关于自动更新,在.NET下面已经是很普通的事情,无非就是在服务器端保存配置好要更新的程序,然后客 户端再写一个小程序来检测,有更新的则复制过来.就这么个思路,这么个简单的问题还要占一篇首页?但你 可别急,看看我的标题,再慢慢的看下去,或许哪一天,你可能还真的会用得着呢,就算用不着,相信对各位回 头温习一下久违的Command也是不错呀! 利用ShareDevelop的ICSharpCode.Core实现了一个插件应用程序,这两天想要弄个自动更新,将更新功 能作为插件包括在应用程序中,本来以为按照

MySQL timestamp自动更新时间

  通常表中会有一个Create date 创建日期的字段,其它数据库均有默认值的选项.MySQL也有默认值timestamp,但在MySQL中,不仅是插入就算是修改也会更新timestamp的值! 这样一来,就不是创建日期了,当作更新日期来使用比较好! 因此在MySQL中要记录创建日期还得使用datetime 然后使用NOW() 函数完成! 1,TIMESTAMP DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP 在创建新记录和修改现有