请教一个用Outlook发邮件的问题

gzj_06

当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

你在论坛上以“Outlook” 为关键词 搜索一下，我想应该能找到有用的资料

gzj_06

原帖由 walker1020 于 2007-8-3 09:01 发表
你在论坛上以“Outlook” 为关键词 搜索一下，我想应该能找到有用的资料

谢谢，真的搜到一个很不错的帖子：http://bbs.51testing.com/thread-79991-1-18.html，值得向大家推荐。

[ 本帖最后由 gzj_06 于 2007-8-3 12:17 编辑 ]

kaddy

怎样改变Body里字体的颜色?