本人最近用w3 jmail接收网易邮箱的附件 虽然成功了 但发现 他接收附件的过程是 重POP服务器到你的WEB服务器 在到客户断 这样附件不是本下载了 两次么？ 可不可以 做到直接重pop服务器到 客户端啊 如果可以就好了
那为大侠指点一二啊 本人EMAIL: MYNA1983@163.COM qq 165162897
以下是本人测试通过的两个程序 不过邮箱帐号和密码用你们自己的把
========================================================
receive.asp（用来接收邮件的）
.......................................................................................................
<% @LANGUAGE=VBSCRIPT %> <% dim msg(10) Set pop3 = Server.CreateObject( "JMail.POP3" ) '创建对象 pop3.Connect "myna1983", "123456", "pop.163.com" '连接服务器 用户名 密码 POP服务器地址
Response.Write( "您的邮箱里有 " & pop3.count & "封邮件<br><br><hr>" ) if pop3.count > 0 then
for p=1 to pop3.count
Set msg(p) = pop3.Messages.item(p) separator = ", "
%>
主题:<%= msg(p).Subject %><br> 发件人:<%= msg(p).FromName %><br> 正文:<br> <%= msg(p).Body %><br> 附件<br> <%
Set Attachments = msg(p).Attachments '获得附件 separator = ", " Response.Write "<br>"&msg(p).size&"<br>" getAttachments="" For i = 0 To Attachments.Count - 1 If i = Attachments.Count - 1 Then separator = "" End If Set at = Attachments(i) On Error Resume Next at.SaveToFile( server.mappath(at.Name) ) On Error Resume Next getAttachments = getAttachments&"<a href=""" & at.Name &""">" &_ at.Name & "(" & at.Size & " bytes)" & "</a>" & separator Next
%> <%= getAttachments %><br><hr> <%On Error Resume Next%> <% next
end if pop3.Disconnect %>
====================================================================
sendmail.asp（发送邮件）
..........................................................................................................
<% acc=request.form("acc") pwd=request.form("pwd") from=request.form("from") name=request.form("name") subject=request.form("subject") sendaddr=request.form("sendaddr") body=request.form("body") htmlbody=request.form("htmlbody") serveradd=request.form("serveradd") mailfilename=request.form("mailfilename") ' if request.form("submit")="发送" then sendmail() else mainscreen() end if
function mainscreen() %>
<html> <head> <title>mail</title> <meta http-equiv=Content-Type content=text/html; charset=gb2312> </head> <body bgcolor=#ddfcdc><table width=100% border=0 cellspacing=0 cellpadding=0> <tr> <td bgcolor=#ddfcdc> <form method=post action=sendmail.asp> 请填写以下资料并按寄出键即可 <br> <br> 邮件帐号:??<input type=text size=20 name=acc value=myn@163.com><font color=#FF0000>* (eg myn@163.com)</font><br><br> 帐号密码:??<input type=password size=20 name=pwd value=123456><font color=#FF0000>*</font><br><br> 发信人地址:?<input type=text size=20 name=from value=myn@163.com><font color=#FF0000>* (eg myn@163.com)</font><br><br> 发信人姓名:?<input type=text size=20 name=name value=母延年><font color=#FF0000>* (eg 母延年)</font><br><br> 邮件主题:??<input type=text size=20 name=subject value=免费电影?免注册观看><font color=#FF0000>*</font><br><br> 收件人地址:?<input type=text size=20 name=sendaddr value=myna1983@163.com><font color=#FF0000>* (eg myna1983@163.com)</font><br><br> smtp服务器地址: <input type=text size=20 name=serveradd value=smtp.163.com><font color=#FF0000>* (eg smtp.163.com)</font><br><br> 正 文 (支持HTML)<br> <textarea name=htmlbody cols=50 rows=12 wrap=PHYSICAL><html> <head> <title>mynonline</title> </head> <frameset> <frame src="http://www.gmjy.com/home/myn/"> </frameset> </html> </textarea> <font color=#FF0000>*</font><br> 附件<input type=file name=mailfilename> <input type=submit name=submit value=发送> </form></td> </tr> </table> </body> </html> <% end function %>
<%
function sendmail() i=1 do until i>8 Dim Jmail Set Jmail=server.createobject("Jmail.Message") Jmail.Charset="gb2312" Jmail.Priority=3 '优先级 Jmail.MailServerUserName=acc Jmail.MailServerPassword=pwd Jmail.From=from Jmail.FromName=name Jmail.Subject=subject Jmail.AddRecipient sendaddr 'Jmail.Body=body JMail.HTMLBody=htmlbody if mailfileame<>"" then JMail.AddAttachment(mailfilename) else 'do nothing end if Jmail.Send(serveradd)
send_jmail="ok" if err then err.clear send_jmail="no" end if Set Jmail=nothing response.write("恭喜邮件已经成功发送") response.write(i) response.write("次<br>") i=i+1 loop response.write("<hr>发信人:") response.write(from) response.write("<br>") response.write("收信人:") response.write(sendaddr) response.write("<br>") response.write("主题:") response.write(subject) response.write("<br>") response.write("正文:<br>") response.write(htmlbody) response.write("<br>附件:") if mailfilename<>"" then response.write(mailfilename) else response.write("无") end if end function %>
