asp自动发送邮件

来源:百度知道 编辑:UC知道 时间:2024/07/02 10:50:24
我想搞一个自动发送邮件的ASP网页,上面的文本框输入需要被发送人的邮箱,然后点击提交,之后就可以发送到他本人的邮箱中。
请教各位ASP代码如何写。
问题点:
1:我的电脑是不是需要安装什么组件之类的,我的电脑没有安装邮件服务器,邮件服务器是安装在别的电脑上面的。
2:我这个有两个asp文件,一个是填写资料的,另一个是发送邮件的mail.asp
,那我还需要增加别的asp吗?请教各位有源代码吗、有程序最好了,请大家不要见笑。
我的邮箱是hoppyzha@163.com

sendemail="gt23233@126.com"
sendname="xxxxxx" '发送者
sendobject="cxxx" '发送主题
checkname="gtlyq79" '验证用户名
checkpwd="001129" '验证密码
stmp="smtp.126.com" 'stmp服务器
on error resume next
Dim JMail,contentId
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" ' 邮件字符集,默认为'US-ASCII'
'JMail.ISOEncodeHeaders = False ' 是否进行ISO编码,默认为True
' 发送者信息(可用变量方式赋值)
JMail.From = ""&sendemail&"" ' 发送者地址
JMail.FromName = ""&sendname&"" ' 发送者姓名
JMail.Subject = ""&sendobject&"" ' 邮件主题
' 身份验证
JMail.MailServerUserName = ""&checkname&"" ' 身份验证的用户名
JMail.MailServerPassword = ""&checkpwd&"" ' 身份验证的密码

' 设置优先级,范围从1到5,越大的优先级越高,3为普通