outlook 2003签名中自动更新日期，发新邮件时正常，但转发和答复时，签名无法得到正常

136211828

outlook 2003签名中自动更新日期，发新邮件时正常，但转发和答复时，签名无法得到正常信息，
请高手或版主帮忙修改代码，谢谢！（答复和转发，见红色字体部分）
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
Signature = "<p>&nbsp;</p>" '提供段落
Signature = Signature & "<font color=GRAY>" '设置字体"0000cc蓝色555555浅灰色gray pink粉红 royalblue宝蓝色
Signature = Signature & "<font size=2>" '设置字体大小,可填1~7；数字愈大字也愈大
mDate = Format(Now, "yyyy-MM-dd")
Signature = Signature & "姓名<br />"
         
Signature = Signature & mDate & mDate & " <br />"
Signature = Signature & "地址+邮编<br />"
Signature = Signature & "Office：&nbsp电话号码<br />"
Signature = Signature & "Mobile：&nbsp;手机号码<br />"
Signature = Signature & " E-mail：&nbsp;<ahref=""""mailto:邮箱地址"""">邮箱地址</a> <br />"
Signature = Signature & "</font>"
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
      
       If myMailItem.Subject = "" Then '当邮件名称为空，即发送邮件时，获取签名
       With myMailItem
              .HTMLBody = Signature()
              .Display '如果是outlook 2007 将此行注释掉
       End With

    Else'当邮件名称为空，即发送邮件时，获取签名,但不能得到正常的结果，请问如何修改
              With myMailItem
                .HTMLBody = Signature() & .HTMLBody
                .Display '如果是outlook 2007 将此行注释掉
            End With
      
       End If
End Sub

dsd999

但转发和答复时，签名无法得到正常信息，

具体描述一下。

我试了你的代码，转发和回复时，签名都有，就是位置不对。

136211828

多谢斑竹.
现象是：1、转发或答复时，并没有出现签名，且邮件发出去之后，别人也看不到签名；
        2、随后再单击别的邮件，然后再点击收件箱中刚刚转发的原邮件，发现邮件内容是我的签名开头，说明原
原邮件被破坏掉了。
请斑竹支持，非常感谢！

dsd999

版本是多少？

136211828

outlook 2003

136211828

dsd999 发表于 2012-12-19 09:34
版本是多少？

       outlook 2003

dsd999

我的也是2003，没有问题。

你单步调试下吧。