给我个VBS发Email的代码吧
搜索过,也搜索出很多,但试了,总是哪里有问题
谁能给我段代码吗?能发成功就行,带附件,谢谢了.
搜索过,也搜索出很多,但试了,总是哪里有问题
谁能给我段代码吗?能发成功就行,带附件,谢谢了.
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]给我个VBS发Email的代码吧
查看 792 回复 8
楼 主
[求助]给我个VBS发Email的代码吧
发表于 2007-11-18 15:27 · 中国 北京 联通
第 2 楼
发表于 2007-11-18 17:32 · 中国 浙江 温州 电信
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
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 楼
发表于 2007-11-18 21:04 · 中国 北京 联通
这个发EMAIL还要我自己的邮箱密码啊??
有没有不用直接发的.带附件~~~!!
谢谢
有没有不用直接发的.带附件~~~!!
谢谢
第 4 楼
发表于 2007-11-18 21:18 · 中国 广西 玉林 博白县 电信
没有发送端怎么发邮件？
第 5 楼
发表于 2007-11-18 21:58 · 中国 北京 东城区 联通
必须要有发送端吗?
直接发不可以吗?
直接发不可以吗?
第 6 楼
发表于 2007-11-18 22:03 · 中国 广西 玉林 博白县 电信
麻烦你用不带号码、电话卡的空手机给俺打个电话
当然，110、120等除外
当然，110、120等除外
第 7 楼
发表于 2007-11-19 08:33 · 中国 北京 东城区 联通
哦,原来发邮件还必须要有发送端啊,那病毒代码里不都有他自己邮箱的密码了??
当然可能那邮箱对他也不重要
当然可能那邮箱对他也不重要
第 8 楼
发表于 2007-11-19 13:20 · 中国 上海 电信
楼主不是想要发送那种信息吧？
第 9 楼
发表于 2007-11-19 17:21 · 中国 北京 东城区 联通
不是,就是想发个邮件,随便什么都OK,然后如果里面有我邮箱的密码,总感觉不爽,呵呵
论坛跳转: