本人最近用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
%>
