我写了一个调用OUTLOOK的，但是出错不知道为什么 ？？？

[mainone]

Dim objOutlook As New Outlook.Application()
Dim objOutlookMsg As Outlook.MailItem
objOutlookMsg = objOutlook.CreateItem(Outlook.OlItemType.olMailItem)

objOutlookMsg.Send()
上面的这一行报错，以下是错误原因，不知道如何该啊 ！！而且我点击 send按钮e_mail发不出去？？？
“Send”在继承接口“Outlook._MailItem”和“Outlook.ItemEvents_Event”之间不明确。

[skyfly123]

Item 没定义吧？
Private Sub Send()

Dim outObj As New Outlook.Application()

Dim Item As Outlook.MailItemClass

Item = outObj.CreateItem(0)

Item.To = "[e-mail] "

Item.Subject = "hello"

Item.Body = "hell"

Item.Attachments.Add("C:\abc.txt")

Item.Send()

End Sub

[mainone]

你的代码我试了，但是为什么我发出的邮件，别人收不到那！！

[thelostman]

收不到时别人的事喽！不过借花献佛问一下，office xp有没有在遇上跳出一个窗体要求验证，好像是 加上防治病毒扩散作用的，是不是没有办法不让他跳出来？

[ganenpingsohucom]

设置为office的outlook试试