邮件服务器源码_服务器知识

推荐：WinWebMail 3.7.5.1 企业正式版

3.7 版本累积改进说明

1 新增日程管理功能

2 新增邮件采集功能

3 增加了支持从Exchange、MDaemon、IMail等其他邮件系统中导入帐号资料的功能

4 新增支持HELO/EHLO主机名过滤功能

5 新增WebMail下的随机提醒功能

6 新增邮件收、发的问题诊断功能

7 新增用户外发邮件自动限制功能(针对帐号)

8 新增信任帐号功能

9 增加了独立的帐号管理员功能

10 增加了新建帐号的WebMail模板订制功能

11 新增加了支持中文域名邮件的收、发功能(如：中国.cn)

12 增加了相同内容邮件超限额过滤功能

13 新增SMTP接收邮件时域名反向验证功能

14 新增垃圾邮件陷阱功能

15 新增中继转发功能

16 新增系统/域/用户级节日设置功能

17 新增回复模板和转发模板功能

18 新增快速联系人创建功能

19 WebMail下发信也记入日志中

20 新增加帐号到期提醒信功能

21 新增对记事本主题和内容进行搜索的功能

22 优化了WebMail下的listmail功能，提高了响应速度

23 新增加了多种回复邮件完成后的处理方式(如：删除原邮件/回到原邮件/下一封邮件等...)

24 修正了在Becky!下使用IMAP4的bug

25 增加了可选Catch All后是否退信的选项

26 修正了在上传和下载超大附件时可能引起的CPU和内存资源占用过高的bug

27 WebMail支持Netscape和Firefox

28 支持在WebMail下的域名控制中进行目标域名搜索功能

29 修正了外发邮件监控中的bug

30 修正了系统中一处可能引起CPU资源100%占用的bug

31 修正了发送到多个邮件地址时，因为其中一个出错而中断发送的bug

32 修正了DNS缓冲池中的一处bug，有效提高了外发邮件的成功率

33 增强了SMTP身份认证功能，可设置对于来自系统内用户的邮件进行强制身份认证的功能

34 修正了首次登录WebMail时CPU 100%占用的问题

35 修正了SSL SMTP认证发信时的一处bug

36 查看邮件内容时增加下载邮件的功能

37 增加了自动回复可设置有效时间的功能

38 新增加可直接显示超文本邮件内容的功能

39 修正了在草稿箱中显示收件人名称的bug

40 通过加密问题与回答部分的数据，增强了安全性，即使黑客在服务器端修改了这些资料也无法进入用户的邮箱

41 修正了 3.7.0.1 版本中，WebMail下回复/转发邮件时的一处脚本错误

42 修正了WebMail下进行多用户禁用或删除时的一处bug

43 修正了创建私人文件夹数量限制的一处bug

44 修正了SMTP发信给多个内部邮箱时，当其中一个邮箱已满时将中断发信的bug

45 增强了对WebMail发送地址的分析处理能力

46 清空垃圾箱时，增加了确认功能

47 修正了向地址簿中添加新地址时，可能出现乱码的bug

48 修正了一处sender为NULL时，将引起 501 input error 错误的bug

49 修正了一处可能引起地址簿被清空的bug

50 修正了存储文件夹共享功能的一处bug

51 修正了在发件箱中显示收件人名称的bug

52 修正了CNAME的识别bug，提高了外发邮件的成功率

53 修改了McAfee查毒设置文件，以确保可以取出邮件病毒的名称

54 修正了IMAP4的一些bug，增强了IMAP4的兼容性

55 修改了对SMTP域名进行反向验证不通过时，如设置为拒收状态，将在日志中记录相关信息

56 修正了WebMail下对保存的邮件进行再次发送时会应用转发模板的bug

57 增加了从Merak Mail Server和VisNetic MailServer中导入帐号信息的功能

3.7.0.7 版本

58 提高了外发邮件（特别是对国外邮件）的发送成功率

59 修复了接收邮件时有时会附件损坏的bug

60 修复了有时会收到自己所发送邮件的bug

61 修复了发往网易邮局有时会出现 try again 错误，而无法发送的问题

62 修复了部分WebMail页面对Firefox的支持问题

63 修复了忘记密码处理时的一处bug

64 修复了在管理大量域名时，域管理员有时不显示域控制面板的bug

65 增强了批量修改邮箱大小的功能

66 修改缺省设置为：SMTP身份认证发信选项被启用

67 增加了域名管理可以进行查询的功能

68 对匿名转发重新做了解释

69 修复了通过WebMail无法设置超过10G以上邮箱大小的问题

70 修复了公开申请邮箱为审批或激活方式时，接入方式设置的一处bug

71 增加了从 Ocean Mail Server 中导入帐号信息的功能

3.7.1.1 版本

72 修正了在处理超大邮件时CPU会在一段时间内达到100%的问题

73 修正了3.7版本中可能引起内存占用率持继上升的bug

74 大幅优化了服务程序工作时的CPU占用率，优化率可达: 20%至50%

75 修正了一处可能引起socket保持Fin_Wait_2状态不退出的bug

3.7.3.1 版本

76 支持SPF反垃圾邮件协议

77 增加了可自动转发到多个邮件地址的功能

78 增加了垃圾箱邮件数据统计信功能

79 修改了系统投递失败退信的格式

80 新增支持用户级别对于相同内容邮件的处理方式

81 增加了(域)管理员对于域剩余空间数信息的显示

82 新增允许对公共文件夹访问的帐号或域名进行限制的功能

83 修正了恢复为缺省设置时，最大抄送人数未能恢复到缺省值的bug

84 提高了邮件服务程序的启动速度

85 允许在WebMail的用户管理列表中显示用户注释信息

86 增加了企业地址簿功能

87 修复了一处在处理pop3的list命令时的bug

88 优化了多pop3收信功能

89 记事本支持对html格式内容的处理

90 修复了系统邮件不支持过滤到指定私人文件夹的bug

91 修复了限定WebMail管理员登录IP有时会失效的bug

92 修复了无法使用微软.net组件发信的bug

93 增大了通过WebMail允许发送的附件总长度限制值

94 修复了抄送到多个邮址时可能引起SMTP端口不能正常响应的bug

95 修复了在管理大量域名（超过5000个域名）时，域管理员有时不显示域控制面板的bug

3.7.5.1 版本

96 优化了内存占用，相对老版本内存占用数量减少了约 20%左右

97 新增加快速启动功能，对于超过几千甚至几万帐号的环境下，可以在几十秒钟内完成启动

98 彻底修复了老版本中SMTP端口可能会down掉的问题

99 新增加增强型中继转发功能

100 新增加用户级接收所有邮件到收件箱的功能

101 修复了在关闭垃圾邮件投诉过滤功能后会导致垃圾邮件确认信失效的bug

102 修复了html邮件编辑器换行过大的bug

103 修改了处理垃圾邮件统计信失败时的响应信息

104 新增加WebMail邮箱中邮件按日期列表显示的功能

105 新增加允许接收来自空帐号(Mail From: <NULL>)邮件到收件箱的功能

106 修正了POP3服务中UIDL命令的处理bug

107 新增加WebMail转递邮件时也支持快捷地址栏功能

108 新增加企业地址薄支持从系统帐号、私人地址薄、域公共地址薄或系统公共地址薄中导入的功能

109 修正了效率手册中的多处bug

110 新增加可测试防毒设置是否有效的功能

111 新增加防中继功能，对于试图利用系统内帐号进行中继发信的情况进行处理

112 修正了showatt.asp文件中一处可能引起安全问题的bug

113 修正了控制台中用户管理界面下一处可能引起安全问题的内存溢出bug

114 新增加WebMail下对于来自不同IP的相同帐号登录时提供安全警示，并支持踢除功能

115 新增加对于地址薄支持按中文拼音进行排序的功能

116 新增加撰写邮件超时前，可由系统自动进行保存的功能

117 修正了以SSL方式收、发邮件时可能引起附件损坏的bug

118 修正了在显示Apple Mail邮件时不能正常显示相应附件的bug

119 新增加允许关闭垃圾箱统计信的功能

120 修改了撰写邮件的界面

121 修正了在新版ie浏览器中不能显示附件的bug

122 升级 OpenSSL 到 0.9.8e 版

123 修正了邮件发送队列中一处可能引起堵塞的bug

http://code.knowsky.com/down/183.html

更多不错的邮件服务器原码自已去 http://code.knowsky.com/ndown.asp?ntypeid=91 找

试试以下代码：核心就是循环调用发邮件代码就可以了

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

Server.ScriptTimeOut=9999999

Response.Buffer = True

dim FoundErr, ErrMsg, Action

dim MailServerUserName, MailServerPassWord, MailDomain, MailServer

dim MailtoAddress, MailtoName, Subject, MailBody, FromName, MailFrom, Priority

FoundErr = False

ErrMsg = ""

Action = Trim(Request("action"))

ComeUrl = ""

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML>

<HEAD>

<TITLE>群发邮件系统</TITLE>

a {text-decoration: none} /* 链接无下划线,有为underline */

a:link {color: #000000text-decoration: none} /* 未访问的链接 */

a:visited {color: #000000text-decoration: none} /* 已访问的链接 */

a:hover {color: #ff6600text-decoration: none} /* 鼠标在链接上 */

a:active {color: #000000text-decoration: none} /* 点击激活链接 */

TD {

FONT-SIZE: 18pxCOLOR: #000000FONT-FAMILY: '宋体'LINE-HEIGHT: 150%

}

BODY {

FONT-SIZE: 12pxCOLOR: #000000FONT-FAMILY: '宋体'

}

INPUT {

FONT-SIZE: 12pxCOLOR: #000000FONT-FAMILY: '宋体'

}

SELECT {

FONT-SIZE: 12pxCOLOR: #000000FONT-FAMILY: '宋体'

}

.title

{

background:#0DB432

color: #ffffff

font-weight: normal

}

.border

{

border: 1px solid #0DB432

}

.tdbg{

background:#f0f0f0

line-height: 120%

}

.tdbg1{

background:#A3E2B1

line-height: 120%

}

</STYLE>

</HEAD>

<br>

Select Case Action

Case "send"

Call sendMail()

Case Else

Call Main()

End Select

If FoundErr = True Then

Response.Write WriteErrMsg(ErrMsg, ComeUrl,"错误信息")

End If

Response.write"</BODY></HTML>"

sub main()

If Not IsObjInstalled("JMail.Message") Then

FoundErr=True

ErrMsg = "服务器不支持JMail组件，请正确安装"

Exit Sub

End If

<tr>

<p><b>群发邮件系统</b></p> </td>

</tr>

<tr>

<td width='30%' class='tdbg1' height="25"><strong>邮件服务器地址：</strong></td>

</td>

</tr>

<tr>

<td width='30%' class='tdbg1' height="25"><strong>登录用户名一：</strong>

</td>

</td>

</tr>

<tr>

<td width='30%' class='tdbg1' height="25"><strong>登录密码一：</strong>

</td>

</td>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

<td width="30%" class="tdbg1" height="25">收件人姓名：</td>

</tr>

<tr>

<td width="30%" class="tdbg1" height="25">收件人Email:</td>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</td>

</tr>

</table>

</form>

End Sub

Sub sendMail()

MailServer = trim(Request("MailServer")) 'SMTP服务器地址：smtp.163.com, 请修改

MailServerUserName = trim(Request("MailServerUserName")) 'SMTP登录用户名：XXX@163.com, 请修改

MailServerPassWord = trim(Request("MailServerPassWord")) 'SMTP登录密码：***, 请修改,注意大小写

MailDomain = trim(Request("MailDomain")) 'SMTP域名：163.com, 请修改

FromName = trim(Request("name")) '发件人名字

MailFrom = trim(Request("email")) '发件人邮箱

MailtoName = trim(Request("toname")) '发件人名字

MailtoAddress=trim(Request("toemail")) '收件人邮箱

Subject = trim(Request("topic"))

MailBody = trim(Request("body"))

Priority=3

If FromName="" or MailFrom="" or MailtoName="" or Subject="" or MailBody="" then

FoundErr = True

ErrMsg = "请填写完整每一项信息！"

Exit Sub

End If

ErrMsg = JSendMail()

If ErrMsg<>"" Then

FoundErr = True

Exit Sub

Else

Response.Write WriteErrMsg("", ComeUrl,"成功信息")

End If

End Sub

Function JSendMail()

On Error Resume Next

JSendMail = ""

Dim JMail,tempMessage

Set JMail = Server.CreateObject("JMail.Message")

JMail.silent=true

JMail.Logging = True

JMail.Charset = "gb2312"'邮件编码

JMail.silent = True

JMail.ContentType = "text/html" '邮件正文格式

JMail.ServerAddress=MailServer '用来发送邮件的SMTP服务器

'如果服务器需要SMTP身份验证则还需指定以下参数

JMail.MailServerUserName = MailServerUserName1'登录用户名

JMail.MailServerPassWord = MailServerPassWord1'登录密码

JMail.AddRecipient MailtoAddress, MailtoName'收信人

JMail.Subject = Subject '主题

JMail.HtmlBody = MailBody '邮件正文（HTML格式）

JMail.Body = MailBody'邮件正文（纯文本格式）

JMail.FromName = FromName '发信人姓名

JMail.From = MailFrom '发信人Email

JMail.Priority = Priority'邮件等级，1为加急，3为普通，5为低级

Dim emailArray

If MailtoAddress="" then

set fsObj = Server.CreateObject("Scripting.FileSystemObject")

FilePath = Server.MapPath("email.txt")

set txtsObj = fsObj.OpenTextFile(FilePath, 1, false)

i = 0

Do While Not txtsObj.atEndOfStream

emailArray(i)=txtsObj.ReadLine

JMail.AddRecipient Trim(emailArray(i)),MailtoName

i=i+1

loop

Else

JMail.AddRecipient MailtoAddress, MailtoName

End If

JMail.Send (MailServer)

tempMessage = JMail.ErrorMessage

JMail.Close

Set JMail = Nothing

If tempMessage<>"" then

FoundErr = True

JSendMail = tempMessage

end if

Set JMail = Nothing

End Function

Function IsObjInstalled(strClassString)

On Error Resume Next

IsObjInstalled = False

Err = 0

Dim xTestObj

Set xTestObj = CreateObject(strClassString)

If Err.Number = 0 Then IsObjInstalled = True

Set xTestObj = Nothing

Err = 0

End Function

Function WriteErrMsg(sMsg, sComeUrl,Massages)

Dim strMsg

strMsg = strMsg &"<html><head><title>"&Massages&"</title><meta http-equiv='Content-Type' content='text/htmlcharset=gb2312'>" &vbCrLf

strMsg = strMsg &"</head><body><br><br>" &vbCrLf

strMsg = strMsg &"<table cellpadding=2 cellspacing=1 border=0 width=400 class='border' align=center>" &vbCrLf

strMsg = strMsg &" <tr align='center' class='title'><td height='22'><strong>"&Massages&"</strong></td></tr>" &vbCrLf

if FoundErr=True Then

strMsg = strMsg &" <tr class='tdbg'><td height='100' valign='top'><b>产生错误的可能原因：</b>" &sMsg &"</td></tr>" &vbCrLf

Else

strMsg = strMsg &" <tr class='tdbg'><td height='100' valign='top'><br><b>恭喜，成功用JMail发送邮件！</b>" &sMsg &"</td></tr>" &vbCrLf

End If

strMsg = strMsg &" <tr align='center' class='tdbg'><td>"

If sComeUrl <>"" Then

strMsg = strMsg &"<a href='javascript:history.go(-1)'><<返回上一页</a>"

Else

strMsg = strMsg &"<a href='javascript:window.close()'>【关闭】</a>"

End If

strMsg = strMsg &"</td></tr>" &vbCrLf

strMsg = strMsg &"</table>" &vbCrLf

strMsg = strMsg &"</body></html>" &vbCrLf

WriteErrMsg = strMsg

End Function

欢迎分享，转载请注明来源：夏雨云

原文地址:https://www.xiayuyun.com/zonghe/122430.html

邮件服务器源码

发表评论

评论列表（0条）