asp Jmail发送邮件的示例2把以下全部代码内容保存为jmail.asp文件，里面的邮箱信息修改为自己的即可 <%@ Language=VBScript %> <% '================================================== ' 参 数 设 置 '================================================== '修改收信人电子邮件地址，表单里的内容将发送到这个信箱中 myemail ="test@test.com" '修改收信人姓名 myname ="我的公司" '修改SMTP服务器 smtpserver ="smtp.test.com" '修改SMTP服务器的用户名和密码 smtpuser ="test@test.com" smtppwd ="123456" '与相应SMTP服务器对应的邮件地址 '很多SMTP服务器除了要验证用户名和密码外，还要验证发件人地址， '比如163.net的SMTP服务器在检查发信人邮件地址是不是以163.net '结尾，否则不予发送，因此，使用相应的信箱做为发信人信箱是必要的 smtpemail ="test@test.com" '================================================== ' 程 序 开 始 '================================================== tname =Request("t1") temail =Request("t2") tother =Request("t3") tsubject =Request("t4") tbody =Request("t5") if tname <> "" and temail <> "" then set jmail=server.CreateObject ("jmail.message") jmail.Silent =true jmail.Charset ="gb2312" if smtpemail <> "" then jmail.From ="test@test.com" else jmail.From =temail end if jmail.FromName =tname jmail.ReplyTo =temail jmail.Subject ="网上提交：" & tsubject jmail.Body =tbody & vbcrlf & vbcrlf & "联系方式：" & tother jmail.AddRecipient myemail,myname jmail.MailServerUserName =smtpuser jmail.MailServerPassWord =smtppwd isgo=jmail.Send(smtpserver) if isgo then msg="提交成功！谢谢您的支持。" else msg="发送失败！请检查您的邮件地址是否填写正确。" end if jmail.Close set jmail=nothing end if %> <html>
|
||||||
