求助用VBS调用OUTLOOK发邮件问题.

springcm

我利用下列VBS代码调用OUTLOOK发邮件,但OUTLOOK会弹出确认框,必须点Yes后才能发送.有没有办法让OUTLOOK不提示直接发送,谢谢!

1. set out=WScript.CreateObject("Outlook.Application")   
   
2. Set oitem = out.CreateItem(olMailItem)
   
3. With oitem
   
4. .Subject =test
   
5. .To = "****@126.com"
   
6. .Body = "test"&chr(13)&"  test"&chr(13)&"test"&chr(13)&MONTH(DATE())&"?"&day(DATE())&"?"
   
7. .Send
   
8. End With

复制代码

springcm

若大一个社区,怎么会没有人回答这个问题呀?
我都等了一个周了!

各位大侠们,是我的问题提的不够清楚吗?

youxi01

呵呵，实在对不起，至于outlook我从来没用过,所以....

不过这里我有个建议,可以向outlook发送enter键来避免手动按确认键

springcm

谢谢youxi01的建议, 其实我的目的是想用VBS在后台以当前OUTLOOK用户的名义发送邮件,由于许多病毒代码利用这个传播自己.
所以在新的outlook2003或打了补丁包的outlook2000都会出现这个问题.(outlook安全特性).
我用的是outlook exchange server由于我不是域管,所以没有权利在outlook中设置改安全选项.
最后找了一个名叫Express ClickYes的小软件.但也不能避免确认框的出现.

1. If you use VBScript, JavaScript or any other scripting language that does not provide Windows API calls you can  manage Express ClickYes too by means of command line switches. A lot of Visual Basic developers will find this way more convenient too.

复制代码

youxi01

你用vbs模拟按键，因为非常快，或许也看不到确认界面的

springcm

不行的,原因有以下几个方面:
1. 该确认框默认值为否.
2. 对话框要延迟几秒才能点Y 或 N
3. 如果该对话框当前不是激活状态,发送ENTER也没用.(用户在做别的工作)

另外,请教用VBS能模拟发送Y键值吗?

xiaoxx

第三方小工具 操纵鼠标点击。