中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » vbs发送邮件 1）提取内容 2）判断附件

ooaf
中级用户

积分 313
发帖 162
注册 2007-4-2
状态离线

『楼主』: vbs发送邮件 1）提取内容 2）判断附件

用vbs发送邮件
1）请问有什么办法把C:\a.txt 的内容作为邮件内容发送？
2）如果附件C:\b.txt 不存在，vbs会出错，不用fso ，怎么判断是否存在"C:\b.txt"，如果存在则发送，如果不存在，则不发送邮件。
3）顺便问一下，vbs发邮件，附件的限制是不是所用发送的邮箱的限制？

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"

Set Email = CreateObject("CDO.Message")

Email.From = "x1@cn.com"

Email.To = "m2@mail.com"

Email.Subject = "标题"

Email.Textbody = "内容"

Email.AddAttachment "C:\b.txt"

With Email.Configuration.Fields

.Item(NameSpace&"sendusing") = 2

.Item(NameSpace&"smtpserver") = "tt.com"

.Item(NameSpace&"smtpserverport") = 25

.Item(NameSpace&"smtpauthenticate") = 1

.Item(NameSpace&"sendusername") = "xx"

.Item(NameSpace&"sendpassword") = "mail"

.Update

End With

Email.Send

Set Email=Nothing

2009-2-18 00:54

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 2 楼』:

不用fso ，怎么判断是否存在"C:\b.txt"

为什么不用？

如果非不用。。。就 on error resume next
if err then WSH.quit

S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore

2009-2-18 19:36

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: