如果想这样发送Email可以实现吗!!!

pollux66

条件:
环境  ：Win2K + Microsoft Office Outlook 2003
发件人：wangchuanwei@cn.saitek.com.hk
收件人：wangcw@cn.saitek.com.hk
附件  ：附件路径不变E:\Email folder\aa.zip


要求：
建立一个VbScript命名为：Send Mail.vbs；当每次点击该脚本的时候，发件人的E_Mail都能自动发送给收件人。

moumoulrc

原帖由 "pollux66" 发表：
条件:
环境  ：Win2K + Microsoft Office Outlook 2003
发件人：wangchuanwei@cn.saitek.com.hk
收件人：wangcw@cn.saitek.com.hk
附件  ：附件路径不变E:\Email folder\aa.zip


要求：
建立一个VbScript命..........

可以！

pollux66

原帖由 "moumoulrc" 发表：

可以！

请问怎么样实现，
可以写一下吗？
感谢!!!
^_^

moumoulrc

原帖由 "pollux66" 发表：


请问怎么样实现，
可以写一下吗？
感谢!!!
^_^

不会吧，程序还要我来写啊？？很容易的自己想想！以前写过!!

pollux66

原帖由 "moumoulrc" 发表：

不会吧，程序还要我来写啊？？很容易的自己想想！以前写过!!

呵呵，
请问在什么地方我找找看，
因为之前没有接触过Vbscript,
现在上面突然要求这样做,
没办法赶鸭子上架,
我们下面的人也只有想办法解决了,
所以就过来问问,
希望兄弟理解...
^_^

pollux66

???

pollux66

下面这个这段代码执行时为什么提示我 '@' 这个字符是非法的呢？

Set ol=CreateObject("Outlook.Application"
On Error Resume Next
Set Mail=ol.CreateItem(0)
Mail.to=ol.GetNameSpace("MAPI".wangcw@cn.saitek.com.hk
Mail.Subject="Betreff der E-Mail"
Mail.Body="Text der E-Mail"
Mail.Attachments.Add("C:\aa.rar"
Mail.Send
ol.Quit

moumoulrc

原帖由 "pollux66" 发表：
下面这个这段代码执行时为什么提示我 '@' 这个字符是非法的呢？

Set ol=CreateObject("Outlook.Application"
On Error Resume Next
Set Mail=ol.CreateItem(0)
Mail.to=ol.GetNameSpace("MAPI".wangcw@cn..........

只用java写过！

pollux66

哈哈哈...
中午就已经搞定了。
但是在执行的时候老是有个警告对话框弹出来.
等有时间再改进...
^_^