请教一个高手:
老板要我做一个“文件传输系统”,主要是为了让各地的用户可以方便的把文件传到我们的服务器上,同时可以在注册用户之间发送信息。现在老板又提出了一个新的要求:希望加上一个电子邮件的功能。就是本系统以外的用户,比如某人不是我们的注册用户,他用***@163.com给我们的用户发了个邮件,我们的用户就可以在这个“文件传输系统”的收件箱里找到这个不是通过我们的系统发送的邮件。我们的用户也可以给别的邮箱发邮件。这种功能要怎么实现啊?
请教一个高手:
老板要我做一个“文件传输系统”,主要是为了让各地的用户可以方便的把文件传到我们的服务器上,同时可以在注册用户之间发送信息。现在老板又提出了一个新的要求:希望加上一个电子邮件的功能。就是本系统以外的用户,比如某人不是我们的注册用户,他用***@163.com给我们的用户发了个邮件,我们的用户就可以在这个“文件传输系统”的收件箱里找到这个不是通过我们的系统发送的邮件。我们的用户也可以给别的邮箱发邮件。这种功能要怎么实现啊?
其它的不知道,jmail同时具有“收”和“发”邮件的功能。
下面是我找到的一个JMAIL的例子:
Jmail组件
一. 表单mail.htm,首先要保证服务器空间那方装有JMAIL组件,并提供该业务
<!DOCTYPE HTML PUBLIC -//W3C//DTD HTML 4.01 Transitional//EN>
<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=name>
<font color=#FF0000>*</font><br><br>
电子邮件: <input type=text size=20 name=email>
<font color=#FF0000>*</font><br><br>
联系方式:
<input type=text size=40 name=other><br><br>
主 题:
<input type=text size=40 name=subject>
<br><br>
正 文 <br>
<textarea name=body cols=50 rows=12 wrap=PHYSICAL></textarea>
<font color=#FF0000>*</font><br>
<input type=submit value=寄出>
</form></td>
</tr>
</table>
</body>
</html>
(二)通过JMAIL发送E-mail程序:sendmail.asp
<%@LANGUAGE = VBscript%>
<html>
<body>
<%recipient = info@123.com '此为收信人电子邮箱
' 取得表单资料
name = Request.Form(name)
senderEmail = Request.Form(email)
other=request.Form(other)
subject = Re: & Request.Form(subject)
body = Request.Form(body) if name <> and senderEmail <> and body<> then ' 建立 JMail 组件
set msg = Server.CreateOBject( JMail.Message ) ' 设定将寄信的过程记录下来
msg.Logging = true
msg.silent = true ' 中文编码设定
msg.Charset = gb2312
' 将表单资料存入组件中
msg.From = senderEmail
msg.FromName = name
' smtp认证的关键
msg.mailserverusername=info@123.com ‘邮箱账户,需完整地址
msg.mailserverpassword=password '输入你的邮箱密码 ' 将收信人的资料加入组件
msg.AddRecipient recipien ' 设定信件的主题
msg.Subject = subject ' 设定信件的主体内容
msg.body = body & vbcrlf & vbcrlf & 其他联系方式: & other '送出表单资料为电子邮件 ,并指定发信服务器 SMTP
if not msg.Send(mail.123.com ) then
Response.write <pre> & msg.log & </pre>
else
Response.write 信件成功寄出,谢谢您的留言!!
Response.write <a href=javascript:history.go(-1)>返回</a>
end if msg.Close
set msg=nothing
else
response.write 请将内容填写完整!!
end if
%>
</body>
</html>