标题: 请教一个用Outlook发邮件的问题 [打印本页] 作者: gzj_06 时间: 2007-8-2 15:46 标题: 请教一个用Outlook发邮件的问题 当Outlook已打开时，将红色代码注释掉，运行时没有问题，邮件能成功发送，但当Outlook未打开时，蓝色部分就会报错：General run error!如果红色代码未注释，则无论Outlook是否已打开，均能成功运行。
我现在就想把红色代码注释掉（原因很简单：不想让发邮件的过程可见），还要无论Outlook是否已打开，都能成功运行，需要怎样修改脚本呢，谢谢！
Dim objOutlook
Dim objOutlookMsg
Dim olMailItem
Set objOutlook = CreateObject("Outlook.Application") ' Create the Outlook object and the new mail object.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
Set mapi = objOutlook.GetNameSpace("MAPI")
objOutlookMsg.To = "gzj08@126.com" ' Define mail recipients
objOutlookMsg.CC = "my@email.com" '抄送
objOutlookMsg.BCC = "my@email.com" '密送
objOutlookMsg.Subject = "QTP Test Mail" ' Body of the message
objOutlookMsg.Body = "This is a test mail"
objOutlookMsg.Display 'Display the email
objOutlookMsg.Send ' Send the message
'objOutlook.quit ' Release the objects
Set objOutlook = Nothing
Set mapi = Nothing作者: walker1020 时间: 2007-8-3 09:01
你在论坛上以“Outlook” 为关键词 搜索一下，我想应该能找到有用的资料作者: gzj_06 时间: 2007-8-3 11:29
