当前位置：首页 → 问答吧 → 关于outlook签名中包括自动更新日期的问题

关于outlook签名中包括自动更新日期的问题

时间：2010-09-13

来源：互联网

我在论坛上看到dsd999转发的“实现outlook的签名日期可以自动更新”，但实践后发现有两个问题：1.对原存档的邮件会更改邮件内容；2.我对答复或转发邮件时是设置另一个签名。

于是根据以上两个情况进行了修改，第一个目的实现了，但第二个目的失败了。

问题出在下方红色的代码处，请各位大大指教！代码如下：

Dim myolapp As New Outlook.Application
Public WithEvents myOlInspectors AsOutlook.Inspectors
Public WithEvents myMailItem AsOutlook.MailItem

Private Sub Application_Startup()
'GetSignature
Set myOlInspectors = myolapp.Inspectors
End Sub

Private SubmyOlInspectors_NewInspector(ByVal Inspector As Inspector)
rq = Replace(Replace(Date, "#",""), "/", "-")
Set myMailItem = Inspector.CurrentItem
If myMailItem.Class = olMail Then
If myMailItem.EntryID = "" Then
'EntryID为空，表明是新建的邮件（包括答复或转发）
If myMailItem.Body = "" Then
'说明是新邮件
myMailItem.HTMLBody ="<HTML><BODY><br>要输入的文本” & rq & “</BODY><HTML>"
Else
'说明是答复或转发的邮件
'
myMailItem.HtmlBody = "<HTML><BODY><br>要输入的文本” & rq & “</BODY><HTML>"& myMailItem.Body
'此处我想更改"新建的答复邮件"的htmlbody内容，但实际被更改的却是被答复邮件的内容！
myMailItem.Subject = "测试" ‘此处是检测myMailItem是否正确。"新建的答复邮件"的主题的确被更改了。
'对myMailItem对象的htmlbody和subject的操作发生在两个不同的邮件上。
End If
End If
End If
End Sub

[ 本帖最后由 zhqxhy 于 2010-9-13 17:17 编辑 ]

作者: zhqxhy 发布时间: 2010-09-13

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。

为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

作者: Admin 发布时间: 2010-09-15

关于outlook签名中包括自动更新日期的问题

热门阅读

热门下载