OutLook 2010 怎么用VBA实现：当你写完一封邮件，点击发送时，判断有没有附件

dsd999

奇怪了，有Attachments属性，你点Attachments，看它有什么属性。

madoca

点它了，没什么反应啊，我截了个图，上来看看。

dsd999

你启用宏了吧。

madoca

启用宏了，有些代码就能用，
比如您发的《Outlook VBA开发第四讲-全部回复时带附件》，
可以很好的运行，
就是有些代码不能用，
就是用Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
开头的代码不能用，
Item变量没法使用。

dsd999

我回去试试，家里有2007，按理应该没问题的啊。

dsd999

还是代码的问题。
这句
Set myItem = myOlApp.CreateItem(olMailItem)
改成
Set myItem = Item

madoca

版主，把这句
Set myItem = myOlApp.CreateItem(olMailItem)
改成
Set myItem = Item
之后，
代码一点儿效果都没有了，连对话框都不会弹出了。
照您的改了之后的代码：
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim myOlApp As New Outlook.Application
    Dim myItem As Outlook.MailItem
    Dim myAttachments As Outlook.Attachments
    Dim cancelsend As Long
    Set myItem = Item
    Set myAttachments = myItem.Attachments
    If myItem.Attachments.Count = 0 Then
    cancelsend = MsgBox("  是否忘记粘贴附件了 ！" & vbNewLine & vbNewLine & "      确定要发送吗?", _
    vbYesNo + vbDefaultButton2 + vbQuestion, "忘记粘贴附件提示")
    If cancelsend = vbNo Then Cancel = True
    End If
End Sub


改之前的代码：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim myOlApp As New Outlook.Application
    Dim myItem As Outlook.MailItem
    Dim myAttachments As Outlook.Attachments
    Dim cancelsend As Long
    Set myItem = myOlApp.CreateItem(olMailItem)
    Set myAttachments = myItem.Attachments
    If myItem.Attachments.Count = 0 Then
    cancelsend = MsgBox("  是否忘记粘贴附件了 ！" & vbNewLine & vbNewLine & "      确定要发送吗?", _
    vbYesNo + vbDefaultButton2 + vbQuestion, "忘记粘贴附件提示")
    If cancelsend = vbNo Then Cancel = True
    End If
End Sub

dsd999

不会吧，你看看myItem.Attachments.Count 的值。

昨天试过这个不是0啊。

madoca

谢谢版主，现在这个myItem.Attachments.Count确实不是0了，如果没有附件，这个值是1，加入一个附件，则加1，
感谢您的帮助，
我把代码改好了，希望能跟大家分享：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim myOlApp As New Outlook.Application
    Dim myItem As Outlook.MailItem
    Dim myAttachments As Outlook.Attachments
    Dim cancelsend As Long
    Set myItem = Item
    Set myAttachments = myItem.Attachments
    If myItem.Attachments.Count = 1 Then
    cancelsend = MsgBox("  是否忘记粘贴附件了 ！" & vbNewLine & vbNewLine & "      确定要发送吗?", _
    vbYesNo + vbDefaultButton2 + vbQuestion, "忘记粘贴附件提示")
    If cancelsend = vbNo Then Cancel = True
    Else:
    Exit Sub
    End If
End Sub

代码效果是，发送邮件时，如果没有附件，则提示是否粘贴附件，如果有了附件，则直接发送。
谢谢版主的帮助！

dsd999

你用签名没？