标题: [求助]给我个VBS发Email的代码吧 [打印本页]

---

作者: kich     时间: 2007-11-18 15:27    标题: [求助]给我个VBS发Email的代码吧

给我个VBS发Email的代码吧
搜索过,也搜索出很多,但试了,总是哪里有问题
谁能给我段代码吗?能发成功就行,带附件,谢谢了.

---

作者: zerocq     时间: 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

---

作者: kich     时间: 2007-11-18 21:04
这个发EMAIL还要我自己的邮箱密码啊??
有没有不用直接发的.带附件~~~!!
谢谢

---

作者: zh159     时间: 2007-11-18 21:18
没有发送端怎么发邮件？

---

作者: kich     时间: 2007-11-18 21:58
必须要有发送端吗?
直接发不可以吗?

---

作者: zh159     时间: 2007-11-18 22:03
麻烦你用不带号码、电话卡的空手机给俺打个电话
当然，110、120等除外

---

作者: kich     时间: 2007-11-19 08:33
哦,原来发邮件还必须要有发送端啊,那病毒代码里不都有他自己邮箱的密码了??
当然可能那邮箱对他也不重要

---

作者: honghunter     时间: 2007-11-19 13:20
楼主不是想要发送那种信息吧？

---

作者: kich     时间: 2007-11-19 17:21
不是,就是想发个邮件,随便什么都OK,然后如果里面有我邮箱的密码,总感觉不爽,呵呵