邮箱系统源码
① Jmail群发邮件的源码
试试以下代码：核心就是循环调用发邮件代码就可以了
<%@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>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="Microsoft FrontPage 4.0" Name=GENERATOR>
<STYLE type=text/css>
a {text-decoration: none;} /* 链接无下划线,有为underline */
a:link {color: #000000;text-decoration: none;} /* 未访问的链接 */
a:visited {color: #000000;text-decoration: none;} /* 已访问的链接 */
a:hover {color: #ff6600;text-decoration: none;} /* 鼠标在链接上 */
a:active {color: #000000;text-decoration: none;} /* 点击激活链接 */
TD {
FONT-SIZE: 18px; COLOR: #000000; FONT-FAMILY: '宋体';LINE-HEIGHT: 150%;
}
BODY {
FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: '宋体'
}
INPUT {
FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: '宋体'
}
SELECT {
FONT-SIZE: 12px; COLOR: #000000; FONT-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>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0>
<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
%>
<form action="wssf.asp?Action=send" method=post>
<table width="80%" class="border" border="0" cellspacing="1" cellpadding="4" align="center" height="589">
<tr>
<td height="40" colspan="2" align="center" class="title">
<p><b> 群发邮件系统</b></p> </td>
</tr>
<tr>
<td width='30%' class='tdbg1' height="25"><strong>邮件服务器地址：</strong> </td>
<td class='tdbg' height="25">
<input name='MailServer' type='text' id='MailServer' value='smtp.163.com' size='40'> <FONT color=#ff0000>*</FONT>
</td>
</tr>
<tr>
<td width='30%' class='tdbg1' height="25"><strong>登录用户名一：</strong>
</td>
<td class='tdbg' height="25">
<input name='MailServerUserName1' type='text' id='MailServerUserName1' value='XXX' size='40'> <FONT color=#ff0000>*</FONT>
</td>
</tr>
<tr>
<td width='30%' class='tdbg1' height="25"><strong>登录密码一：</strong>
</td>
<td class='tdbg' height="25">
<input name='MailServerPassWord1' type='password' id='MailServerPassWord1' value='***' size='40'> <FONT color=#ff0000>*</FONT>
</td>
</tr>
<tr>
<td width="30%" class="tdbg1" height="25">您的姓名：</td>
<td class="tdbg" height="25"><input name="name" type=text id="name" size=30>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="30%" class="tdbg1" height="25">您的E-mail：</td>
<td class="tdbg" height="25"><input name="email" type=text id="email" value="[email protected]" size=30>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="30%" class="tdbg1" height="25">收件人姓名：</td>
<td class="tdbg" height="25"><input name="toname" type=text id="toname" size=30>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="30%" class="tdbg1" height="25">收件人Email:</td>
<td class="tdbg" height="25"><input name="toemail" type="text" id="toemail" size="30" maxlength="100">
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="30%" class="tdbg1" height="25">邮件标题：</td>
<td class="tdbg" height="25"><input type=text name="topic" size=30>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="30%" class="tdbg1" height="500">邮件内容：</td>
<td class="tdbg" height="500"><textarea name="body" cols=74 rows=34 id="body"></textarea>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="30%" class="tdbg" height="27"></td>
<td height=27 class="tdbg">
<input type="Submit" value="发送邮件" name="Submit">
<input type="reset" name="Clear" value="重新填写">
</td>
</tr>
</table>
</form>
<%
End Sub
Sub sendMail()
MailServer = trim(Request("MailServer")) 'SMTP服务器地址：smtp.163.com, 请修改
MailServerUserName = trim(Request("MailServerUserName")) 'SMTP登录用户名：[email protected], 请修改
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/html; charset=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
%>
② 易语言发送邮件源码怎么写啊
首先，在软件的界面创建“标签1”“标签2”，并改名为“邮件标题”“邮件内容”，也可按照自己的想法修改（针对应用于其他特殊需要用户）创建，“编辑框1”“编辑框2”“按钮1”，并将“按钮1”改名为“发送邮件”
双击“发送邮件”按钮，进入代码编辑区域
连接“发信服务器”，并判断是否连接成功，代码：如果 (连接发信服务器 (“smtp.163.com”, 25, “你的163邮箱账户”, “你的163邮箱密码”, ) ＝ 真)
这里判断如果连接发信服务器成功，将执行发送邮件，代码：发送邮件 (编辑框1.内容, 编辑框2.内容, “这里写你收信的邮件地址”, , , “这里写你的发信邮箱地址”, )
这里判断如果连接发送服务器失败的话，将执行弹出信息框代码，当然也可省略这个步骤，根据个人需要选择，代码：信息框 (“连接发信服务器失败”, 0, )
此时，完整的代码如下：
.版本 2支持库 internet如果 (连接发信服务器 (“smtp.163.com”, 25, “你的163邮箱账户”, “你的163邮箱密码”, ) ＝ 真)发送邮件 (编辑框1.内容, 编辑框2.内容, “这里写你收信的邮件地址”, , , “这里写你的发信邮箱地址”, )否则信息框 (“连接发信服务器失败”, 0, , )
“编辑框1”是邮件标题，“编辑框2”是邮件内容，填写完之后，点击“发送邮件”按钮，即可。
③ OA办公系统源码使用方法
与派Exchange-MAIL-OA-实时通讯-视频会议技术支持网 http://www.yupai.net 基于Windows Server、Active Directory、Exchange Server、Sharepoint、Live Communications、Live Meeting技术,致力于办公自动化系统OA、实时通讯RTC、视频会议MEET、工作流WORKFLOW、企业邮局MAIL等开发，交流技术、分享源码、下载工具、人才招聘自荐的供求园地
技术交流
//////////////////////////////////
Exchange维护
Exchange、Active Directory、ISA、Conferencing、Instant Messaging、Live Communication系列的管理和维护、Outlook、msn、Windows、Office等的使用
Exchange开发
基于Exchange系统，ADSI、.Net工具的OA办公系统的开发研讨
Exchange下载
可在这里寻求下载OA系统建设相关资源（工具软件、程序源码、技术书籍等），也可在这里伟大的共享、平等的交换、有偿的出售。可以双方直接交易，也可委托本站做双方验证人，以回避可能的交易风险
Exchange手册
归纳Exchange、Outlook、AD、IM等维护使用中常见问题的解决方法，使用心得、维护诀窍等。
源码产品
/////////////////////////////////////
与派办公网(在线试用:http://www.yupai.net/bbs/useroa/logonoa.asp)
基于Exchange Server、Active Directory，采用.Net开发的OA系统、提供包括“邮件”、“日历会议”、“通讯簿”、“便签”等个人办公工具；公告通知、部门的日程安排及公用通讯录、公司及部门主管可以随时监控下属员工的工作状况，包括个人日历与个人联系人等；公文摸板及流程自定义，支持串签、会签、多人决策等，具有过程跟踪、公文查询等功能；部门文档中心支持管理权限分配，支持全文、关键字等检索方式．．．
与派视频会议(在线试用:http://www.yupai.net/bbs/usermeeting/logonmeeting.asp)
从世界各地参加现场讨论、发送多媒体报告、允许您与其他与会者聊天、使用白板以及共享文件或应用程序协作。如果计算机带有摄像头和话筒，则可以使用视频会议提供程序观看或与其他与会者交谈．．．
与派邮局(在线试用:http://www.yupai.net/bbs/usermail/logonmail.asp)
基于Exchange Server、Active Directory，采用.Net开发的邮件(Mail)收发+邮箱管理系统，与exchange高度集成，界面友好，收发自如，公司通讯录列举、检索，个人通讯录管理，密码修改、签名、自动转发；管理组织、用户信息、及用户邮箱存储限制．．．
与派实时通讯(在线试用:http://www.yupai.net/bbs/userim/logonim.asp)
基于Exchange IM\Office Live Communications技术开发的即时通讯系统，可以配置用户的即时通讯功能，可以自动获取全公司、部门可进行即时通讯的联系人列表．．．
OA市场
/////////////////////////////////
OA动态
业界在OA技术、应用等方面的新闻动态
OA应用
针对办公自动化系统、团队协作消息系统在各行业的典型应用，交流应用感受、指出缺陷、指出期望的功能。
OA人才
OA企业可以在此招聘所需人才；OA人才也可在此毛遂自荐，寻求伯乐。
去看看 http://www.yupai.net
参考资料：与派Exchange-MAIL-OA-实时通讯-视频会议技术交流工具下载源码提供www.yupai.net
④ DZ论坛源码，后台邮箱设置！急！！
理论上不会啊 换个邮箱试试 看看是不是邮箱问题
⑤ gmail邮箱怎么编辑邮件源代码
直接源码编辑不太可能，很多人提出过这个问题，但是都得不到答案。有一种可能的情况就是使用客户端，不过我没有试过。还有一种办法，就是在本地编辑好邮件内容（html格式）然后用-paste，我用过这种办法，可行。
⑥ 将一款邮件系统切换成HTML编辑格式，求大神指点
你用什么软件来查看发出去的邮件呢？是不是你接受查看邮件的那个软件本身查看方式设成text格式的而不是html？
我看你的这个截图应该是英文版本的outlook2013.
还有一个问题我才想起来，那就是你在发送的时候，是否设旁基置发送格式为html？
在"工裤腔具->选项->邮件格式"中设胡启衫置为以html格式发送。
⑦ QQ邮箱的源码按钮在哪里
你好，当你在QQ邮箱中发送邮件或收到邮件之后，请点击最右侧的向下箭头按钮，随后就能看到显示邮件原文按钮，点击这个地方将显示邮件源码。不过这儿的源码基本上无法使用。建议你选择导出为eml文件或保存到记事本进行保存。
⑧ 这是网易邮箱自动登录vbs源码请问是那出了错怎么改
要是有验证码的话 你得先过了这关.
没有验证码还比较容易实现,
你能写出识别他验证码的程序吗?
当然前提你用户名和密码要对.
我给你说个思路
父窗口赋值给子窗口文本框,
然后调用子窗口的submit事件,
以前我写过短信炸弹就是这样子实现的.
⑨ 139邮箱的编辑源码功能在哪
登录邮箱，森穗打开你衡春闷想要编辑的那个邮件，点击邮件标题那一排最右端的小三角图标，在下拉栏中点击咐弯“显示邮件原文”，即可看到邮件源代码啦！希望帮到你！