Outlook2003中的代码在2007中使用！

GUCHENGRONG

请问，此段代码在2007中使用为何无效呢？谢谢！
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Dim lngres As Long

'检查邮件是否添加附件
If InStr(1, Item.Body, "附件") Or InStr(1, Item.Body, "attachment") Or InStr(1, Item.Body, "enclosed file") _
Or InStr(1, Item.Body, "Enclosed file") Or InStr(1, Item.Body, "Attachment") <> 0 Then

  If Item.Attachments.Count = 0 Then

      Application.Explorers(1).Activate

             lngres = MsgBox("邮件内容中包含“附件”，但是没有发现附件！" & Chr(10) & "仍然发送？", _
             vbYesNo + vbDefaultButton2 + vbQuestion, "提示")

     If lngres = vbNo Then
     Cancel = True
     Item.Display
     Exit Sub
     End If

  End If

End If

'检查是否写主题
If Item.Subject = "" Then
Application.Explorers(1).Activate
lngres = MsgBox("邮件还没有写主题呢！" & Chr(10) & "仍然发送？", _
vbYesNo + vbDefaultButton2 + vbQuestion, "提示")
If lngres = vbNo Then
Cancel = True
Item.Display
Exit Sub
End If
End If
End Sub

aaaaabbbbb

把这句
If Item.Attachments.Count = 0 Then

改成

  If Item.Attachments.Count < 2 Then

GUCHENGRONG

兄弟啊！好像不行，改了后照样能发！
还有要是主题没有写，这段代码该怎么修改呢！
现在是放在2007版本中！

aaaaabbbbb

我在2007下试了可以。你可以调试一下看为何不行。

GUCHENGRONG

在家里面，改后，重启了一下子，可以了使用了，感谢！这是什么原因啊？

但是单位的好像还是不行！下周再次试试看！是否和POP3与Exchange模式的区别有关系呢？
单位是Exchange的。您的服务器是什么啊？

aaaaabbbbb

没有试过在EXCHANGE下的编程。所以不是太清楚。

建议你调试一下，如用msgbox Item.Attachments.Count, 设一下断点，进行调试，可以试着没有附件，加1个附件，你就可以看到Item.Attachments.Count的值是多少了。

yoking

我也是2007，改了参数之后可以用了。
谢谢斑竹~

GUCHENGRONG

确定了，可以使用了！看来改好后需要，重启OL的！?感谢版主哦！

gloomly

不行，没有提示，就直接发出去了

292847014

好帖子啊！真实不错哦，我经常忘附件和主题。。。结果被经理批。。。哈哈。不错