到网上下载个jmail组件，注册一下， 这里有个基础案例（发信时必须要设置一个可以使用的邮箱做为代发，修改下面的邮箱
地址和密码，以及希望收信的地址即可使用）： 我给你个基础版的， 首先，要确定你个JMAIL已经安装！ <%responsecharset="gb2312"%> <HTML> <BODY> <form action="sentaspgo=sent" method="post"> <table> <tr><td>用户名:</td><td><input type="text" name="name" id="name" value=""></td></tr> <tr><td>邮箱:</td><td><input type="text" name="email" id="email" value="@msncom"></td></tr> <tr><td>主题:</td><td><input type="text" name="subject" id="subject" value="Jmail中文
邮件发送测试" ></td></tr> <tr><td>反馈信息:</td><td width="650"> <TEXTAREA NAME="content" ROWS="5" COLS="50"></TEXTAREA> </td></tr> <tr><td colspan="2" align="center"><INPUT TYPE="submit" value="提交"></td></tr> </table> </form> <% If request("go")<>"sent" Then responseEnd dim CLStr,msg,mailserver,username,password,receive CLStr=Chr(13) & Chr(10) '请在此修改相关信息 mailserver="smtp163com" '邮局
服务器地址（smtp服务器地址） username="@163com" 'smtp服务器验证登陆名（邮局中开设的任何一个信箱的地址） password="" 'smtp服务器验证密码 （信箱密码） receive="@qqcom" '接受反馈信息的email地址（可以是您的任何有效信箱） '修改结束 Set msg = ServerCreateObject("JMailMessage") msgCharset = "gb2312" msglogging = true '启用邮件日志 msgsilent=True'屏蔽例外错误，返回False或True 'msgContentType = "text/html"'邮件的格式为HTML格式 msgPriority = 1 '邮件等级，1为加急，3为普通，5为低级 msgMailServerUserName = username msgMailServerPassword = password msgFrom = username msgFromName = username msgAddRecipient (receive) 'msgAddURLAttachment " >
微信扫一扫
支付宝扫一扫
评论列表（0条）