怎么自动发邮件? - ASP - 新微赢技术网

满天星

电梯直达

1^#

发表于 2010-1-19 23:45:09 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

就是说,浏览的人给我填了信息(包括他的电子邮件).然后存到数据库中
我怎么做才能自动给他发邮件?

或有什么别的方法,也行,只要能自动发就了
[知识问答ωωω.χiuGoo.сom]

收藏0

使用道具举报

ぷぷ

2^#

发表于 2010-1-19 23:45:13 | 只看该作者

Call SendMail(mailtoaddress,mailtoname,subject,mailbody,fromname,mailfrom)

Function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom)

'函数参数说明（收件人地址,收件人姓名(可选),主题,邮件内容,发件人姓名(可选),发件人地址）
MailtoAddress=rs("m_email") '收邮件的人
mailtoname=rs("m_firstname") '收件人的姓名
subject="你在三人行注册的账号信息" '邮件标题
mailbody="你的账号为"&rs("M_name")&"密码为"&rs("M_password") '邮件的内容
fromname="管理员" '发件人姓名
mailfrom="你的邮箱@163.com" '发件人邮箱

'on error resume next
Dim JMail,MailServer,Flag
Set JMail=Server.CreateObject("JMail.Message")
If err Then
SendMail = False
err.clear
Exit Function
End if
JMail.Charset="gb2312" '邮件编码
JMail.silent=True
JMail.ContentType = "text/html" '邮件正文格式
MailServer = "smtp.163.com" '用来发送邮件的SMTP服务器
JMail.MailServerUserName = "你的邮箱名" '登录用户名
JMail.MailServerPassWord = "你的密码" '登录密码
JMail.MailDomain = "163.com" '域名（如果用"name@domain.com"这样的用户名登录时，请指明domain.com），可选
JMail.AddRecipient MailtoAddress,MailtoName '收信人邮箱和收信人名称
JMail.Subject = Subject '主题
JMail.AppendHTML(MailBody)
JMail.FromName = FromName '发信人姓名
JMail.From = MailFrom '发信人Email
JMail.Priority = 3 '邮件等级，1为加急，3为普通，5为低级
Flag=JMail.Send(MailServer)
If Flag Then
SendMail=True
Else
SendMail=False
End If
JMail.Close
Set JMail=nothing
End Function

回复支持反对

使用道具举报

毅歌

3^#

发表于 2010-1-19 23:45:18 | 只看该作者

==
这个怎么调用呢??
我以前没接触过,麻烦你能不能说的还明白,详细点??
谢谢

回复支持反对

使用道具举报

┗白觀喑

4^#

发表于 2010-1-19 23:45:22 | 只看该作者

你通过一个表单把人家注册的信息传到处理页面上去

我给你代码前面加上查询把收件人的邮箱、内容、等信息改成你数据库里对应的字段就行了

回复支持反对

使用道具举报

兲外☆飛唬

5^#

发表于 2010-1-19 23:45:26 | 只看该作者

subject="你在三人行注册的账号信息" '邮件标题
mailbody="你的账号为"&rs("M_name")&"密码为"&rs("M_password") '邮件的内容
fromname="管理员" '发件人姓名
mailfrom="你的邮箱@163.com"

你在三人行注册的账号信息??什么意思

回复支持反对

使用道具举报

		自动登录	找回密码
密码			注册