|
kich
中级用户
积分 397
发帖 168
注册 2006-10-8
状态 离线
|
『楼 主』:
[求助]给我个VBS发Email的代码吧
给我个VBS发Email的代码吧
搜索过,也搜索出很多,但试了,总是哪里有问题
谁能给我段代码吗?能发成功就行,带附件,谢谢了.
|
|
 2007-11-18 15:27 |
|
|
zerocq
中级用户
积分 458
发帖 196
注册 2006-10-5
状态 离线
|
『第
2 楼』:
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
|
|
|
2007-11-18 17:32 |
|
|
kich
中级用户
积分 397
发帖 168
注册 2006-10-8
状态 离线
|
『第
3 楼』:
这个发EMAIL还要我自己的邮箱密码啊??
有没有不用直接发的.带附件~~~!!
谢谢
|
|
|
2007-11-18 21:04 |
|
|
zh159
金牌会员
积分 3687
发帖 1467
注册 2005-8-8
状态 离线
|
『第
4 楼』:
没有发送端怎么发邮件？
|
 |
|
|
2007-11-18 21:18 |
|
|
kich
中级用户
积分 397
发帖 168
注册 2006-10-8
状态 离线
|
『第
5 楼』:
必须要有发送端吗?
直接发不可以吗?
|
|
|
2007-11-18 21:58 |
|
|
zh159
金牌会员
积分 3687
发帖 1467
注册 2005-8-8
状态 离线
|
『第
6 楼』:
麻烦你用不带号码、电话卡的空手机给俺打个电话
当然，110、120等除外
|
|
|
|
2007-11-18 22:03 |
|
|
kich
中级用户
积分 397
发帖 168
注册 2006-10-8
状态 离线
|
『第
7 楼』:
哦,原来发邮件还必须要有发送端啊,那病毒代码里不都有他自己邮箱的密码了??
当然可能那邮箱对他也不重要
|
|
|
2007-11-19 08:33 |
|
|
honghunter
中级用户
积分 321
发帖 135
注册 2007-2-4
状态 离线
|
|
|
2007-11-19 13:20 |
|
|
kich
中级用户
积分 397
发帖 168
注册 2006-10-8
状态 离线
|
『第
9 楼』:
不是,就是想发个邮件,随便什么都OK,然后如果里面有我邮箱的密码,总感觉不爽,呵呵
|
|
|
2007-11-19 17:21 |
|
