邮件群发源代码(邮件发送源码)
admin 发布:2022-12-19 22:21 1073
本篇文章给大家谈谈邮件群发源代码,以及邮件发送源码对应的知识点,希望对各位有所帮助,不要忘了收藏本站喔。
本文目录一览:
如何用outlook批量发邮件
outlook邮件群发技巧
在OUTLOOK“联系人”中选定所需收件人,从“工具”菜单中选择“邮件合并”命令。
在对话框中选择适当的选项后单击确定。在出现的WORD文档中输入邮件内容,从“邮件合并”工具栏中选择“合并到电子邮件”,再按“确定”。
OUTLOOK就会把您所想要发的文档发送出去了。
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"
pb 群发邮件系统/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="XXX@163.com" 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登录用户名: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 "htmlheadtitle"Massages"/titlemeta http-equiv='Content-Type' content='text/html; charset=gb2312'" vbCrLf
strMsg = strMsg "/headbodybrbr" 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'brb恭喜,成功用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
%
如何通过163,gmail等邮箱批量群发邮件
可以在双翼邮件群发软件上添加这些163等邮箱,然后自动轮流发送。
双翼邮件群发软件。
双翼邮件群发软件,是国内知名轻量级邮件群发软件,专适合于个人、中小企业使用,特点如下:
简洁界面,重要步骤提供操作提示,使用方便。
一对一发送:接收者只会看到这封邮件发给了自己,不会看到其他人的地址,没有任何群发痕迹。
模拟人工发送:并采取一定的反垃圾邮件措施,到达率比手工发送更高。
个性化邮件:邮件内容、邮件标题可插入接收者姓名,显示对收件人的尊重;自定义宏可以是邮件内容千变万化。
多内容发送:一封邮件可以设置多个内容,这些内容被循环(或随机)发给接收者,更接近于手工发送。
多账户发送:使用多邮件账户发送,发送速度更快。
多任务发送:可同时发送多个不同的邮件。
自定义发送数量:用户可自己设置每个发送邮箱账户每天的发送数量,避免发送过多造成邮箱被封。
自定义发送速度:用户可自己设置邮箱的发送速度,避免发送速度过快,而造成拥堵或被认定为垃圾邮件。
定时发送:在客户的工作时间发送,让客户第一时间看到你的邮件。
断点重发:没有完成的任务,下次启动后继续发送未发送的邮件。
失败重发:发送失败的邮件可单独重新发送。
重复地址检测:在导入地址时自动检测重复地址,避免重复发信被客户加入黑名单。
地址分组管理:强大的地址分组管理功能,方便客户群管理。
导入导出:很方便地导入、导出邮件地址,发送邮箱账户也可以方便的导入、导出。
自动关机:群发任务完成后可设置自动关机,低碳环保。
一次付费,终身使用:不限制发送次数和发送总量,终身使用。
自动换IP:群发邮件过程中自动换IP(本机ADSK拨号,路由器换IP),更适合使用免费邮箱发送。
VPN换IP:群发过程中自动控制VPN软件更换线路,实现换IP。
手工换IP:群发邮件过程中手工换IP,适合使用免费邮箱发,支持多种换IP方法:路由器,VPN等。
自动更换代理:群发过程中自动更换代理,突破免费邮箱IP限制。
安全保护:提供两级密码保护,管理员密码和用户密码;保护邮件地址信息不被他人窃取;软件锁定后邮件正常发送,解除锁定需要录入密码。
可视编辑:提供网页格式邮件编辑,支持网页源代码编辑。
黑名单:加入黑名单的邮件地址会自动过滤掉,不发送。
收集退信、退订邮件:自动从邮箱收集退信和退订邮件,以后不会向这些邮件地址发送邮件了。
邮件阅读跟踪:发出去的邮件谁看了,什么时候看的,看了几次。邮件中那个超链接被点击了,什么时候点击的,共点击了几次。
数据备份和回复:对收件人地址薄、发件人账户、邮件模板、任务日志进行备份和恢复。
邮件群发源代码的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于邮件发送源码、邮件群发源代码的信息别忘了在本站进行查找喔。
版权说明:如非注明,本站文章均为 AH站长 原创,转载请注明出处和附带本文链接;
相关推荐
- 05-04公众号分享接口代码怎么写入(公众号接口开发教程源码+工具)[20240504更新]
- 05-04html图片源代码(html代码生成图片)[20240504更新]
- 05-043d校园源代码(3D虚拟校园)[20240504更新]
- 05-03php源代码大全(php的源代码)[20240503更新]
- 05-03bbs论坛源代码论文(个人论坛源码)[20240503更新]
- 05-03黄金矿工安桌源代码(黄金矿工编程代码)[20240503更新]
- 05-03关于txt各种源代码大全的信息[20240503更新]
- 05-03微信二维码源代码(微信二维码源代码怎么弄)[20240503更新]
- 05-03打印机监控源代码(打印机监控源代码怎么看)[20240503更新]
- 05-03新闻发布平台源代码(新闻app源码)[20240503更新]
取消回复欢迎 你 发表评论:
- 标签列表
- 最近发表
- 友情链接