asp提交表单到邮箱的代码
看看asp提交表单到邮箱的代码
主要代码 我用的是我的163邮箱 yzyemai@163.com
sendmail.asp
<%
dim jmail
set jmail=server.createobject("Jmail.message")
jmail.silent=true
jmail.charset="gb2312"
jmail.fromname=request("fname") '这里是发件人名称,可以从数据库或表单中取值
jmail.from="yzyemai@163.com" '这里是发件人邮箱,可以从数据库或表单中取值,但格式一定要正确 :我填写的还是自己的163邮箱
Jmail.AddRecipient("yzyemai@163.com")'这里是邮件要到达的邮箱地址
jmail.subject=request("title") '这是邮件标题,该值可以从数据库或表单中取值
jmail.Body =request("content")&vbLf&"邮件来自:"&request("femail") '这是邮件内容
jmail.mailserverusername="yzyemai@163.com" '我选用的是163邮箱
jmail.mailserverpassword="nihaoma" '163邮箱密码
jmail.maildomain="smtp.163.com" '邮件发送服务器域名
sendok=jmail.send("smtp.163.com") 'smtp服务器名称
if sendok then
response.write "恭喜您,邮件发送成功"
else
response.write "对不起,邮件发送失败,可能由于服务器登录设置配置不当造成或填写的信息有误,请确认正确后再进行发送!"
end if
%>
前台
<form name="form" method="post" action="sendmail.asp">
<div align="center">
联系我们
</div>
<table width="385" border="0" align="center" cellpadding="0" cellspacing="3">
<tr>
<td width="83" height="35" bgcolor="#F3F3F3">发件人名称:</td>
<td width="223" height="35"><input type="text" name="fname"></td>
</tr>
<tr>
<td height="35" bgcolor="#F3F3F3">发件人邮箱:</td>
<td height="35"><input type="text" name="femail"></td>
</tr>
<tr>
<td height="35" bgcolor="#F3F3F3">邮件标题:</td>
<td height="35"><input type="text" name="title"></td>
</tr>
<tr>
<td bgcolor="#F3F3F3">邮件内容:</td>
<td><textarea rows="9" cols="40" name="content"></textarea></td>
</tr>
</table>
<br>
<div align="center"><input type="submit" name="submit" value="发送"></div>
</form>
点击发送后总是提示:对不起,邮件发送失败,可能由于服务器登录设置配置不当造成或填写的信息有误,请确认正确后再进行发送!