中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-06 22:28 		共 48,039 主题排行 / 350,124 发帖 / 今日 0 篇 / 48,252 会员排行
DOS批处理 & 脚本技术（批处理室） » 请大虾们解答一下，谢谢！
可打印版本 　768 / 5
第1楼　ajon911 发表于 2007-12-16 11:29
初级用户　发帖 24　积分 49
请大虾们解答一下，谢谢！
D盘下有文件夹“10000”，内有10个“TXT类型文件”，文件名未确定，我想用下面这个vbs把这10个文件分10次发送出去(单次一个)，请问该如何实现？

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
set Email = CreateObject("CDO.Message")
Email.From = "发件箱"
Email.To = "收件箱"
Email.Subject = "邮件标题"
Email.Textbody = "邮件内容"
Email.AddAttachment "附件"
with Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "服务器"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "用户名"
.Item(NameSpace&"sendpassword") = "密码"
.Update
end with
Email.Send
第2楼　ajon911 发表于 2007-12-16 11:48
初级用户　发帖 24　积分 49
还有一问题。。。
我运行以下BAT文件时，请问如何不让winrar的压缩画面出现（如果文件体积大），命令该如何修改？
"c:\program files\winrar\winrar.exe" a "F:\001.rar" d:\10000.txt
第3楼　lxmxn 发表于 2007-12-17 02:41
版主　发帖 4,938　积分 11,386
TO ajon911:

1、写个遍历文件夹“10000”中所有文本文件的循环，然后进一步处理；

2、用“c:\program files\winrar\rar.exe”命令。
第4楼　lxmxn 发表于 2007-12-17 02:57
版主　发帖 4,938　积分 11,386
VBS 获取文件的例子:
第5楼　ajon911 发表于 2007-12-17 20:56
初级用户　发帖 24　积分 49
真是太感谢啦....
Originally posted by lxmxn at 2007-12-17 02:57 AM:
VBS 获取文件的例子:
第6楼　andy21017 发表于 2007-12-18 14:48
初级用户　发帖 11　积分 26
呵呵，要认真学习才行了，退步了
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023