给自己发信件

haiqin

我最近在网上看了一个自动写入信箱的脚本，可是自己运行时，能成功发送，可是为什么在自己的信箱里却找不到啊，这是什么原因，有谁能告诉我吗？

Dim objOutlook
Dim objOutlookMsg
Dim olMailItem
' Create the Outlook object and the new mail object.
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
Set mapi = objOutlook.GetNameSpace("MAPI")
' Define mail recipients
objOutlookMsg.To = "[email=wang.haiqin@feg.cn]wang.haiqin@feg.cn[/email]"
objOutlookMsg.CC = "[email=wang.haiqin@feg.cn]wang.haiqin@feg.cn[/email]"
objOutlookMsg.BCC = "[email=wang.haiqin@feg.cn]wang.haiqin@feg.cn[/email]"
' Body of the message
objOutlookMsg.Subject = "QTP Test Mail"
objOutlookMsg.Body = "This is a test mail"
'Display the email
objOutlookMsg.Display
' Send the message
objOutlookMsg.Send
' Release the objects
objOutlook.quit
Set objOutlook = Nothing
Set mapi = Nothing

DeViLIvy

是不是到垃圾邮件里去了，呵呵