outlook2007自动追加签名和日期

来源：互联网发布：网络禁书目录编辑：程序博客网时间：2024/05/17 08:31

outlook里的任务，日程，联系人等很是喜欢，而且能与我的手机同步信息，所以决定改用outlook2007。装上后发现一个问题，在个人签名里不能像foxmail一样自己添加发信日期，很是郁闷。google一番后决定用vba实现，步骤如下：

点"工具"->"宏"->"Visual Basic编辑器"，打开后点双击左边"Project1"下的"ThisOutlookSession"，在打开的空白页里添加如下代码

Dim myOlApp As New Outlook.ApplicationPrivate WithEvents myOlInspectors As Outlook.InspectorsPrivate myMailItem As Outlook.MailItemFunction Signature() As StringDim mDate As DatemDate = Format(Now, "yyyy-MM-dd")Signature = Signature & " --------------------------------------------------------------- "Signature = Signature & "某某某 "Signature = Signature & mDate & " "End FunctionPrivate Sub Application_Startup()'GetSignatureSet myOlInspectors = myOlApp.InspectorsEnd SubPrivate Sub myOlInspectors_NewInspector(ByVal Inspector As Inspector)Dim str As Stringstr = TypeName(Inspector.CurrentItem)If str = "MailItem" Then Set myMailItem = Inspector.CurrentItem With myMailItem .HTMLBody = .HTMLBody & Signature() End WithEnd IfEnd Sub

原来google到的代码没有对打开的窗体的类型进行判断，所以会导致打开任务或者日程时报错，我自己加上了这个判断。