jmail发邮件代码（邮箱jmail）

本篇文章给大家谈谈jmail发邮件代码，以及邮箱jmail对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、Jmail群发邮件的源码
• 2、php调用jmail组建发邮件，代码贴不出来，
• 3、求jmail发邮件完整asp代码
• 4、asp jmail 自动发送邮件 信箱是vip.163.com 代码怎么写
• 5、asp关于jmail发邮件的问题 代码不报错 但就是收不到邮件
• 6、jmail发送邮件 jmail.Message error '8000ffff' 急救

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

%

php调用jmail组建发邮件，代码贴不出来，

?

class Jmail

{

public $Username; //邮局用户名

public $Password; //密码

public $FormName ; //发件人姓名

public $From ; //发件人地址

public $Addrecipient ; //收件人地址

public $Ttile ; //邮件标题

public $Content; //邮件内容

public $Smtp; //邮件服务器

function Send(){

$Jmail = new com("Jmail.Message"); //实例化一个Jmail对象

$Jmail-SiLent=true; //设置成True的话Jmail不会提示错误只会返回True和False

$Jmail-LogGing = false; //是否开启日志

$Jmail-CharSet = "GB2312"; //设定字符串编码

$Jmail-ContentType = "Text/html"; //邮件的格式为HTML格式

$Jmail-MailServerUsername = $this-Username; //发信箱用户名

$Jmail-MailServerPassword = $this-Password; //发信箱密码

$Jmail-FromName = $this-FromName; //发件人姓名

$Jmail-From = $this-From; //发件人地址

$Jmail-AddRecipient($this-Addrecipient); //收件人地址

$Jmail-Subject = $this-Title;//Email标题

$Jmail-Body = $this-Content; //Email正文

$JmailError = $Jmail-Send($this-Smtp); //Smtp服务器

if($JmailError){ //判断邮件是否发送成功

return true;

}else{

return false;

}

}

}

//这里是调用代码

$jmail = new Jmail();

$jmail-Username = "lwf0757";

$jmail-Password = "0757";

$jmail-FromName = "梁";

$jmail-From = "lwf0757@163.com";

$jmail-Addrecipient = "313120799@qq.com";

$jmail-Title = "这是标题";

$jmail-Content = "这是内容";

$jmail-Smtp = "smtp.163.com";

if($jmail-Send()){

echo "成功哦!";

}else{

echo "失败哦!";

}

?

求jmail发邮件完整asp代码

Dim objMail

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

HTML = "信件的内容"

objMail.ContentType="text"

objMail.MailServerUserName="发信人邮箱帐号"

objMail.MailServerPassword="密码"

objmail.Priority =1

objMail.From = "发信人地址"

objMail.FromName = "显示名称"

objMail.Subject = "主题"

objMail.Body=HTML

objMail.Charset="GB2312"

objMail.AddRecipient "收信人"

objMail.AddRecipientCC "抄送"

objMail.Send("服务器域名")

objMail.close()

set objMail = nothing

asp jmail 自动发送邮件 信箱是vip.163.com 代码怎么写

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

jmail.Logging = true '记录日志

jmail.Charset = "gb2312" '邮件的文字编码为国标

jmail.ContentTransferEncoding = "base64" '邮件编码设为base64

jmail.Encoding = "gb2312"

jmail.ISOEncodeHeaders = false '邮件头不使用ISO-8859-1编码

jmail.AddHeader "Priority","3" '设置优先级，范围从1到5，越大的优先级越高，3为普通

jmail.AddHeader "MSMail-Priority","Normal" '添加邮件头,不要改动！

jmail.AddHeader "Mailer","Microsoft Outlook Express 6.00.2800.1437" '添加邮件头,不要改动！

jmail.AddHeader "MimeOLE","Produced By Microsoft MimeOLE V6.00.2800.1441" '添加邮件头,不要改动！

jmail.AddHeader "Originating-IP",request.ServerVariables("REMOTE_ADDR")

jmail.MailServerUserName = ServerEmail ' 身份验证的用户名（发送者）

jmail.MailServerPassword = ServerPswd ' 身份验证的密码（发送者）

jmail.From = ServerEmail ' 发送者地址

jmail.FromName = FromName ' 发送者姓名

jmail.Subject = Title ' 邮件主题

jmail.AddRecipientBCC(Email) '接收者地址

jmail.HTMLBody = Content '邮件内容

jmail.Send("smtp.163.com") '发送者的smtp服务器，到相应的邮箱网站上能查到

jmail.close()

Set jmail = Nothing

asp关于jmail发邮件的问题 代码不报错 但就是收不到邮件

呵呵

现在只有新浪的邮箱可以发送成功了

其他的邮件服务提供商似乎不允许这样做了已经

我以前还是像你这样

发了n次没成功

后来用新浪的邮箱才成功了

jmail发送邮件 jmail.Message error '8000ffff' 急救

我告诉你，现在支持jmail 的邮箱不多了，

我也是经过2天的实验才成功的。

我的经验是：

很早以前申请的163信箱 可以用jmail，sohu 的信箱要递交两边才可以传过去。

现在只有 .....的信箱最好用 。

给分我就告诉你，嘿嘿。

如果你感觉不是信箱的问题，就换个服务器试试，我记得我找到过一个免费的空间支持jmail。用asp探针可以测试出支不支持。

我的独立ip的主机，万网的，jmail没出现问题。

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