Outlook中自動發送郵件時如何屏蔽掉提示窗口? (50分)

Sub SendMail()
'
'函数功能： 创建Outlook的MailItem，并发送邮件
Dim ItemUsageEmail As Outlook.MailItem
'创建MailItem对象
Set ItemUsageEmail = Application.CreateItem(olMailItem)
With ItemUsageEmail
.To = "winak@163.net" '设置收件人地址
.Subject = "Report" '邮件主题
.Body = "This is a example" '邮件正文
.Attachments.Add "e:/Report.doc"
.Display 显示邮件
.Send 发送邮件
End With
End Sub

在outlook中寫下上面這段代碼,就可以自動發送郵件了,但是總會出現一個提示窗口,請教眾位高手,如何能屏蔽掉它?找資料找了很久就得不到結果.

把那个display去掉呢

一樣不行,我的程序中就去掉了display.不知能否像在excel中一樣使用displayalernt=flase就可將提示窗口屏蔽掉,本來是自動化的,現在變成了半自動了.

heihei,,,你想干吗？[]

找个偷QQ密码的代码看看。。。

因我每天要向总公司寄RAR更新资料,在20多个之多,用OE中的附加很容易忘哪些寄了哪些没寄,而且每天早上也很烦这样做,所以就想利用OUTLOOK中的VBA来寄.你能说一下偷QQ密码的代码吗?

沒有人知道嗎

晕，自己写smtp发送代码得了
或者拿个发信组件

我沒有那麼高明呀,你老兄能指點一下嗎