怎样制作发送HTML邮件 JMail组件

利用JMail来发送HTML邮件需要指定组件的以下几个属性

指定smtp服务器验证登陆名msg.MailServerUserName = "xxx@xxx.com"

指定smtp服务器验证密码　msg.MailServerPassword = "******"

指定发件人的Email地址 msg.From ="xxx@xxx.com"

指定收件人的Email地址 msg.AddRecipient="xxx@xxx.com"

指定发送邮件的主题 msg.Subject ="xxxxxx"

指定发送邮件的正文　msg.Body ="xxxxxx"

指定发送邮件的HTML正文　msg.HTMLBody ="xxxxxx"

1.首先下载jmail控件，然后安装（其实不安装也行，只要你能找到jmail.dll文件，然后注册该dll文件。这里不支持上传附件，否则我就把我下载的传上来了）。

附上手工注册它的批处理：

echo off

copy jmail.dll C:/windows/system32

regsvr32 jmail.dll

echo 执行完毕!

pause

2.使用tlbimp c:/Program Files/Dimac/w3JMail4/jmail.dll /out:myJmail.dll /namespace:myJmail生成myJmail.dll后，copy到web的根目录的bin目录。

在ASP.Net页面中，用using myjmail方法引用，例程如下：

protected void Page_Load(object sender, EventArgs e)

{

myjmail.Message jmail = new myjmail.Message()

DateTime t=DateTime.Now

string subject = "jmail test from web"

string body= "<center>jmail test from web<br>test</center>"//tbContent.Text.Replace("/n","<br>")

string fromemail="xxxx@e165.com "

string toEmail= "xxxx@e165.com "

//silent属性：如果设置为true,jmail不会抛出例外错误. jmail. send( () 会根据操作结果返回true或false

jmail.Silent = true

//jmail创建的日志，前提loging属性设置为true

//jmail.Logging=true

//字符集，缺省为"us-ascii"

jmail.Charset="gb2312"

//信件的contentype. 缺省是"text/plain"） : 字符串如果你以html格式发送邮件, 改为"text/html"即可。

jmail.ContentType="text/html"

//添加收件人

jmail.AddRecipient(toEmail,"","")

jmail.From = fromemail

//发件人邮件用户名

jmail.MailServerUserName="xxxx"

//发件人邮件密码

jmail.MailServerPassWord="xxxx"

//设置邮件标题

jmail.Subject=subject

// 邮件添加附件,(多附件的话，可以再加一条jmail.addattachment( "c://test.jpg",true,null))就可以搞定了。［注］：加了附件，讲把上面的 jmail.contenttype="text/html"删掉。否则会在邮件里出现乱码。

//jmail.addattachment( "c://test.jpg",true,null)

//邮件内容

jmail.Body=body

//jmail发送的方法

if(jmail.Send("smtp.e165.com",false))

lbResult.Text = "已成功发送邮件。"

else

lbResult.Text = "发送邮件失败！！！"

jmail.Close()

}

是你没配置好吧，我用ASP配置的就可以，下面是我写的JMAIL发送邮件的函数

<%

response.addHeader "content-type","text/htmlcharset=utf-8"

Sub SendMail

On Error Resume Next

Dim msg

set msg = Server.CreateObject("JMail.Message")

If err<>0 Then

Err.clear

'response.write("Jmail组件没有被安装，请联系系统管理员")

'response.End()

End If

msg.charset="gb2312"

msg.From = "service@qkweb.net"

msg.FromName = "启科网络"

msg.MailServerUserName="service@qkweb.net"

msg.MailServerPassWord="123456"

msg.AddRecipient mailto

msg.Subject = mailtitle

msg.htmlBody = mailbody &vbCrLf

msg.appendText ""&vbCrlf

msg.appendText Now()&vbCrLf

msg.Send("smtp.qq.com")

End Sub

%>

调用方法就是 ,先设置收件人，和内容，再call调用

如：

<%

mailto = "test@qkweb.net"

mailbody = "请问一个网站程序设计的问题"

Call SendMail

%>

---