查看: 8652|回复: 2

asp收发邮件的源码

[复制链接]

萧十一郎

电梯直达

1^#

发表于 2009-8-11 00:29:14 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

<% Set pop3 = Server.CreateObject( "JMail.POP3" )'pop3的连接用户名，密码，pop3地址
pop3.Connect "username", "password", "mail.mydomain.com"Response.Write( "你有" & pop3.count & " 封邮件。 " )if pop3.count > 0 then
Set msg = pop3.Messages.item(1)
ReTo = ""
ReCC = ""Set Recipients = msg.Recipients
separator = ", "' 现在得到所有的收件人，并且存储For i = 0 To Recipients.Count - 1
If i = Recipients.Count - 1 Then
separator = ""
End IfSet re = Recipients.item(i)
If re.ReType = 0 Then
ReTo = ReTo & re.Name & " (<a href=""mailto:"& re.EMail &""">" & re.EMail & "</a>)" &
separator
else
ReCC = ReTo & re.Name & " (<a href=""mailto:"& re.EMail &""">" & re.EMail & "</a>)" &
separator
End If
Next'这个程序得到附件，并且保存到服务器的硬盘上。也可以返回附件的详细连接
Function getAttachments()
Set Attachments = msg.Attachments
separator = ", "For i = 0 To Attachments.Count - 1
If i = Attachments.Count - 1 Then
separator = ""
End IfSet at = Attachments(i)
at.SaveToFile( "c:\EMail\attachments\" & at.Filename )
getAttachments = getAttachments & "<a href=""/EMail/attachments/" & at.Filename &""">" &_
at.FileName & "(" & at.Size & " bytes)" & "</a>" & separator
Next
End Function%>
<html>
<body>
<TABLE>
<tr>
<td>邮件标题</td>
<td><%= msg.Subject %></td>
</tr>
<tr>
<td>发件人</td>
<td><%= msg.FromName %></td>
</tr>
<tr>
<td>收件人</td>
<td><%= ReTO %></td>
</tr>
<tr>
<td>抄送</td>
<td><%= ReCC %></td>
</tr>
<tr>
<td>附件</td>
<td><%= getAttachments %></td>
</tr>
<tr>
<td>内容</td>
<td><pre><%= msg.Body %></pre></td>
</tr>
</TABLE>
</body>
</html><% end ifpop3.Disconnect%>
<%@ Language=VBScript %>

<%
Dim JMail

t=Request("Body1")
t1=Request("Body2")
Set JMail=server.createobject("JMail.Message")

JMail.silent = true
JMail.Logging = true
JMail.Charset = "gb2312"
JMail.MailServerUserName = "liuixao" '输入smtp服务器验证登陆名（邮局中任何一个用户的Email地址） -----改
JMail.MailServerPassword = "649" '输入smtp服务器验证密码（用户Email帐号对应的密码） -----改
JMail.From = Request.Form("email") '发件人Email
JMail.FromName = Request.Form("name") '发件人姓名
JMail.AddRecipient "liu@.sina.net" '收件人Email，多个收件人，就重复多行 -----改
'JMail.AddRecipient "info@cnkl.net" '第二个收信地址----改成7个地址

JMail.Subject = Request.Form("subject") '信件主题
JMail.Body ="内容1:" &t& vbcrlf & "内容2:"&t1 '换行符 & vbcrlf &
JMail.Send ("你的邮件服务器地址") 'smtp服务器地址（mail.您的域名）-----改
JMail.Priority=2
JMail.Close()
set JMail = nothing
%>
 
邮件发送成功，谢谢使用!

收藏0