中国DOS联盟
-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
|
中国DOS联盟-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum |
| 游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟 |
|
中国DOS联盟论坛 现在时间是 2026-08-06 13:38 |
共 48,039 主题排行 / 350,124 发帖 / 今日 0 篇 / 48,251 会员排行 |
| DOS批处理 & 脚本技术（批处理室） » [求助]给我个VBS发Email的代码吧 |
| 可打印版本 790 / 8 |
| 第1楼 kich | 发表于 2007-11-18 15:27 |
| 中级用户 发帖 168 积分 397 | |
|
[求助]给我个VBS发Email的代码吧 给我个VBS发Email的代码吧
搜索过,也搜索出很多,但试了,总是哪里有问题 谁能给我段代码吗?能发成功就行,带附件,谢谢了. |
|
| 第2楼 zerocq | 发表于 2007-11-18 17:32 |
| 中级用户 发帖 196 积分 458 | |
|
mailto="******@163.com"
Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("mailbody.txt",1) mailbody=f.ReadAll f.Close NameSpace = "http://schemas.microsoft.com/cdo/configuration/" set Email = CreateObject("CDO.Message") Email.From = "******@163.com" Email.To = mailto Email.Subject = "你好" Email.Textbody = mailbody with Email.Configuration.Fields .Item(NameSpace&"sendusing") = 2 .Item(NameSpace&"smtpserver") = "smtp.163.com" .Item(NameSpace&"smtpserverport") = 25 .Item(NameSpace&"smtpauthenticate") = 1 .Item(NameSpace&"sendusername") = "*****" .Item(NameSpace&"sendpassword") = "*****" .Update end With Email.Send |
|
| 第3楼 kich | 发表于 2007-11-18 21:04 |
| 中级用户 发帖 168 积分 397 | |
|
这个发EMAIL还要我自己的邮箱密码啊??
有没有不用直接发的.带附件~~~!! 谢谢 |
|
| 第4楼 zh159 | 发表于 2007-11-18 21:18 |
| 金牌会员 发帖 1,467 积分 3,687 | |
|
没有发送端怎么发邮件？
|
|
| 第5楼 kich | 发表于 2007-11-18 21:58 |
| 中级用户 发帖 168 积分 397 | |
|
必须要有发送端吗?
直接发不可以吗? |
|
| 第6楼 zh159 | 发表于 2007-11-18 22:03 |
| 金牌会员 发帖 1,467 积分 3,687 | |
|
麻烦你用不带号码、电话卡的空手机给俺打个电话
当然，110、120等除外 |
|
| 第7楼 kich | 发表于 2007-11-19 08:33 |
| 中级用户 发帖 168 积分 397 | |
|
哦,原来发邮件还必须要有发送端啊,那病毒代码里不都有他自己邮箱的密码了??
当然可能那邮箱对他也不重要 |
|
| 第8楼 honghunter | 发表于 2007-11-19 13:20 |
| 中级用户 发帖 135 积分 321 | |
|
楼主不是想要发送那种信息吧？
|
|
| 第9楼 kich | 发表于 2007-11-19 17:21 |
| 中级用户 发帖 168 积分 397 | |
|
不是,就是想发个邮件,随便什么都OK,然后如果里面有我邮箱的密码,总感觉不爽,呵呵
|
|
|
[ 联系联盟系统管理团队 -
中国DOS联盟 -
标准版 ] Sponsored by ifanr Inc | © 2001–2023 |