邮件群发器源代码（邮件群发器免费版）

今天给各位分享邮件群发器源代码的知识，其中也会对邮件群发器免费版进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、求一款邮件群发软件和网页自动邮件发送系统的源码?要下载地址?
• 2、求一个邮件群发的易语言源码
• 3、Jmail群发邮件的源码
• 4、javaweb怎么实现邮件的群发功能

求一款邮件群发软件和网页自动邮件发送系统的源码?要下载地址?

我倒是有个好地方推荐给你，希望能帮助到你。注册店店发营销总站的VIP会员，然后就可以下载到破解

版的带注册机的旺旺群发软件了，这个网

站上有各种类型的营销软件：旺旺群发软件、QQ群发软件、博

客群发软件，论坛群发软件，分类信息群发软件等，都是最新的破解版。这个网

站的软件更新很快，有

新版本出来后你重新下载最新版本，就可以保障连续使用，只要是VIP会员都可以任意下载不另收费。你

可以上他们网

站做进一步的了解。但愿我的回答能帮到你。

求一个邮件群发的易语言源码

.版本 2

.支持库 internet

.支持库 EThread

.支持库 spec

.程序集 窗口程序集1

.程序集变量 QQ, 整数型

.子程序 __启动窗口_创建完毕

QQ ＝ 88888888

连接发信服务器 (“smtp.163.com”, 25, “xiaojianyoujianqun@163.com”, “a123456”, )

.子程序 _按钮1_被单击, , , 开始发信息

启动线程 (发, , )

.子程序 发

.计次循环首 (213, ) ' 213是次数

延迟 (10) ' 这里是延迟、、如果卡。可以调大点

.判断开始 (QQ ≠ 123)

发送邮件 (“主题”, “正文”, 到文本 (QQ), , , “xiaojianyoujianqun@163.com”, “xiaojianyoujianqun@163.com”)

QQ ＝ QQ ＋ 1

_启动窗口.标题 ＝ 到文本 (QQ)

.默认

.判断结束

.计次循环尾 ()

——————————————————————————————————————————

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

%

javaweb怎么实现邮件的群发功能

import javax.activation.DataHandler;

import javax.activation.FileDataSource;

import javax.mail.Authenticator;

import javax.mail.Message;

import javax.mail.MessagingException;

import javax.mail.Multipart;

import javax.mail.PasswordAuthentication;

import javax.mail.Session;

import javax.mail.Transport;

import javax.mail.internet.InternetAddress;

import javax.mail.internet.MimeBodyPart;

import javax.mail.internet.MimeMessage;

import javax.mail.internet.MimeMultipart;

import javax.mail.internet.MimeUtility;

/**

* Title: 使用javamail发送邮件 Description: 演示如何使用javamail包发送电子邮件。这个实例可发送多附件

*

* @version 1.0

*/

public class SendMail {

String to = "";// 收件人

String from = "";// 发件人

String host = "";// smtp主机

String username = "";

String password = "";

String filename = "";// 附件文件名

String subject = "";// 邮件主题

String content = "";// 邮件正文

@SuppressWarnings("rawtypes")

Vector file = new Vector();// 附件文件集合

/**

* br

* 方法说明：默认构造器 br

* 输入参数： br

* 返回类型：

*/

public SendMail() {

}

/**

* br

* 方法说明：构造器，提供直接的参数传入 br

* 输入参数： br

* 返回类型：

*/

public SendMail(String to, String from, String smtpServer, String username,

String password, String subject, String content) {

this.to = to;

this.from = from;

this.host = smtpServer;

this.username = username;

this.password = password;

this.subject = subject;

this.content = content;

}

/**

* br

* 方法说明：设置邮件服务器地址 br

* 输入参数：String host 邮件服务器地址名称 br

* 返回类型：

*/

public void setHost(String host) {

this.host = host;

}

/**

* br

* 方法说明：设置登录服务器校验密码 br

* 输入参数： br

* 返回类型：

*/

public void setPassWord(String pwd) {

this.password = pwd;

}

/**

* br

* 方法说明：设置登录服务器校验用户 br

* 输入参数： br

* 返回类型：

*/

public void setUserName(String usn) {

this.username = usn;

}

/**

* br

* 方法说明：设置邮件发送目的邮箱 br

* 输入参数： br

* 返回类型：

*/

public void setTo(String to) {

this.to = to;

}

/**

* br

* 方法说明：设置邮件发送源邮箱 br

* 输入参数： br

* 返回类型：

*/

public void setFrom(String from) {

this.from = from;

}

/**

* br

* 方法说明：设置邮件主题 br

* 输入参数： br

* 返回类型：

*/

public void setSubject(String subject) {

this.subject = subject;

}

/**

* br

* 方法说明：设置邮件内容 br

* 输入参数： br

* 返回类型：

*/

public void setContent(String content) {

this.content = content;

}

/**

* br

* 方法说明：把主题转换为中文 br

* 输入参数：String strText br

* 返回类型：

*/

public String transferChinese(String strText) {

try {

strText = MimeUtility.encodeText(new String(strText.getBytes(),

"GB2312"), "GB2312", "B");

} catch (Exception e) {

e.printStackTrace();

}

return strText;

}

/**

* br

* 方法说明：往附件组合中添加附件 br

* 输入参数： br

* 返回类型：

*/

@SuppressWarnings("unchecked")

public void attachfile(String fname) {

file.addElement(fname);

}

/**

* br

* 方法说明：发送邮件 br

* 输入参数： br

* 返回类型：boolean 成功为true，反之为false

*/

@SuppressWarnings("rawtypes")

public boolean sendMail() {

// 构造mail session

Properties props = System.getProperties();

props.put("mail.smtp.host", host);

props.put("mail.smtp.auth", "true");

Session session = Session.getDefaultInstance(props,

new Authenticator() {

public PasswordAuthentication getPasswordAuthentication() {

return new PasswordAuthentication(username, password);

}

});

try {

// 构造MimeMessage 并设定基本的值

MimeMessage msg = new MimeMessage(session);

msg.setFrom(new InternetAddress(from));

InternetAddress[] address = { new InternetAddress(to) };

msg.setRecipients(Message.RecipientType.TO, address);

//subject = transferChinese(subject); ##修改过原来显示成乱码 注释掉这行 腾讯企业邮箱显示良好

msg.setSubject(subject);

// 构造Multipart

Multipart mp = new MimeMultipart();

// 向Multipart添加正文

MimeBodyPart mbpContent = new MimeBodyPart();

mbpContent.setText(content);

// 向MimeMessage添加（Multipart代表正文）

mp.addBodyPart(mbpContent);

// 向Multipart添加附件

Enumeration efile = file.elements();

while (efile.hasMoreElements()) {

MimeBodyPart mbpFile = new MimeBodyPart();

filename = efile.nextElement().toString();

FileDataSource fds = new FileDataSource(filename);

mbpFile.setDataHandler(new DataHandler(fds));

mbpFile.setFileName(fds.getName());

// 向MimeMessage添加（Multipart代表附件）

mp.addBodyPart(mbpFile);

}

file.removeAllElements();

// 向Multipart添加MimeMessage

msg.setContent(mp);

msg.setSentDate(new Date());

// 发送邮件

Transport.send(msg);

} catch (MessagingException mex) {

mex.printStackTrace();

Exception ex = null;

if ((ex = mex.getNextException()) != null) {

ex.printStackTrace();

}

return false;

}

return true;

}

/**

* br

* 方法说明：主方法，用于测试 br

* 输入参数： br

* 返回类型：

*/

public static void main(String[] args) {

SendMail sendmail = new SendMail();

sendmail.setHost("smtp.exmail.qq.com");// smtp.mail.yahoo.com.cn

sendmail.setUserName("1@qq.com");// 您的邮箱用户名

sendmail.setPassWord("XXX");// 您的邮箱密码

sendmail.setFrom("1@qq.com");// 发送者

//这里可以从数据库动态读取要发送的邮箱，为了测试，先写死

sendmail.setTo("TO1@qq.com");// 接收者

sendmail.setSubject("测试群发邮件");

sendmail.setContent("这是群发邮件测试");

//sendmail.attachfile("d:/me.jpg");

sendmail.sendMail();

sendmail.setTo("TO2@nxp.cn");// 接收者

sendmail.sendMail();

}

邮件群发器源代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于邮件群发器免费版、邮件群发器源代码的信息别忘了在本站进行查找喔。