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

madoca

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

如果已经有附件了，则直接发送出去；如果没有附件，则弹出一个对话框，询问是否忘记粘贴附件了，点击是，返回继续写邮件，点击否，则发送出去。

我用了有没有人经常忘加附件？（VBA提醒）这篇文章里的代码，没有任何效果，跟直接发送邮件一样。

我写了一段代码，但是无法判断有没有附件，不论粘贴没粘贴附件，总是提醒，

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

现在的问题是，If myItem.Attachments.Count = 0 Then 这条语句里的值始终为0，不管粘贴多少附件，还是0，怎么办？谢谢回答！

dsd999

调试下看myItem的值。

madoca

感谢版主回答，我现在的问题是，为什么别人用
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
开头之后，
下面就可以用Item.Attachment.Count了，
但是我就不行，
我打完Item.之后，不会弹出选择属性的下拉列表。
说明Item变量不可用，
所以本论坛上的好多代码，我都无法使用，
请版主指点。
我的操作系统是Win7 + OutLook 2010
谢谢！

dsd999

我没2010，你会用对象浏览器吗?

madoca

不会啊，对象浏览器，怎么用啊？

madoca

我还有个操作系统，是WinXP + OutLook 2007
就是我在ThisOutlookSession里写上
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
之后，再写If Item.Attachments.Count = 0 Then
Item.写完了，没有出现属性列表，就是说Item这个变量不管用，怎么回事儿啊，为什么别人的代码都管用呢。
用的就是http://club.excelhome.net/thread-138626-1-1.html里的代码，怎么都不起作用。

dsd999

代码没问题。
我只有2003。
在工具栏里找对象浏览器。

madoca

找到了，按F2可以打开对象浏览器，但是它只不过显示了所有的对象，然后怎么用呢？

dsd999

搜mailitem，看看有什么属性。

madoca

Actions
AlternateRecipientAllowed
Applicaion
Attachments
AutoForwarded
AutoResolvedWinner
BCC
BillingInformation
Body
BodyFormat
Categories
CC
Class
Companies
Conflicts
ConversationIndex
ConversationTopic
CreationTime
DeferredDeliveryTime
DeleteAfterSubmit
DownloadState
EntryID
ExpiryTime
FlagRequest
FormDescription
GetInspector
HTMLBody
Importance
InternetCodepage
IsConflict
IsMarkedAsTask
ItemProperties
LastModificationTime
Links
MarkForDownload
MessageClass
Mileage
NoAging
OriginatorDeliveryReportRequested
OutlookInternalVersion
OutlookVersion
Parent
Permission
PermissionService
PropertyAccessor
ReadReceiptRequested
ReceivedByEntryID
ReceivedByName
ReceivedOnBehalfOfEntryID
ReceivedOnBehalfOfName
ReceivedTime
RecipientReassignmentProhibited
Recipients
ReminderOverrideDefault
ReminderPlaySound
ReminderSet
ReminderSoundFile
ReminderTime
RemoteStatus
ReplyRecipientNames
ReplyRecipients
Saved
SaveSentMessageFolder
SenderEmailAddress
SenderEmailType
SenderName
SendUsingAccount
Sensitivity
Sent
SentOn
SentOnBehalfOfName
Session
Size
Subject
Submitted
TaskCompletedDate
TaskDueDate
TaskStartDate
TaskSubject
To
ToDoTaskOrdinal
UnRead
UserProperties
VotingOptions
VotingResponse

有上面这些属性，好多啊……