谁能给我一个jmail发送邮件的源程序

[loveprograms]

谁能给我一个jmail发送邮件的源程序

[sxsgssgs]

<%
Set JMail=Server.CreateObject("JMail.Message")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.MailServerUserName = "[e-mail]"
JMail.MailServerPassword = "dnyes031203"
JMail.From = "[e-mail]" '发件人的信箱
JMail.FromName = "master" '发件人的名字
JMail.Subject = "欢迎您在信网注册用户" '邮件的主题
JMail.Body = "test test ,ok" '邮件的内容
'==============================收件人的地址！
JMail.AddRecipient("[e-mail]") '收件人的地址
JMail.Priority=5 '邮件级别1-5数字越大级别越高---3为普通邮件
JMail.Send("218.244.47.25") '红色变量是邮件服务器地址
JMail.Close
Set JMail=nothing
%>


我试了很多次
最后才知是自己
的机开了问题
是自己开了防火墙
不开就可以发了
昭上代码不要必呀
哈哈
我接分了

[hxy2003]

壓堦槩

[monkeys]

坛子里已经有了

找不到给我留言，发给你

[nowfox]

http://www.nowfox.com/articlelook.asp?key=333

[equnasp]

你看看这个
http://www.126.net.cn/jmail.rar

可以看看测试,http://www.126.net.cn/sendmail.asp?mail=[e-mail]

把后面的sendmail.asp?mail=[e-mail] 改为你要接受信件的email地址就可以了

[equnasp]

可以用的,mail文件是发送mail的文件,在sendmail.asp中调用

在sendmail.asp中, call SendMail(email,subject,str,sender,sendername)

其中,email为接受人的邮箱地址,subject为邮件的标题,str为邮件的内容,sender为发送人的

邮件地址,sendername为发送人的姓名,你用用看

我这么耐心给你讲解,改多给我点分吧,谢谢,谢谢!急需分数,有什么问题还可以和我QQ联系:14572192,不过我不是高手哦

[rickylyu]

<%
Dim Jmail
mailtitle=trim(request.form("mailtitle"))
mailbody=trim(request.form("mailbody"))&"yaday.com"
mailaddr=trim(request.form("mailaddr"))
mailaddr1=trim(request.form("mailaddr1"))
'mailaddr=replace(mailaddr,",",";")

Set Jmail=server.createobject("Jmail.Message")

'For i=1 to request.form("mailaddr").count

Jmail.Charset = "gb2312"
Jmail.Silent = true
Jmail.Priority = 3
Jmail.MailServerUserName = "[e-mail]"
Jmail.MailServerPassword = "123456789"
Jmail.From = "[e-mail]"
Jmail.FromName = "亚特科技技术部"
Jmail.Subject = mailtitle

'JMail.AddRecipient request.form("mailaddr")(i)
'next

jmail.addrecipient mailaddr
jmail.addrecipientbcc mailaddr1

Jmail.Body = mailbody
Jmail.Send("mail.yaday.com")
Set Jmail=nothing

response.write "邮件发送成功!"
%>

[RichWcz]

index.asp表单填写页面

<table width="411" border="0" cellpadding="2" cellspacing="0">
<form name="form1" method="post" action="index_act.asp">
<tr>
<td width="133" align="right"> 联系人：</td>
<td width="315"> <input name="sentname" type="text" maxlength="28" size="28"> </td>
</tr>
<tr>
<td align="right"> 企业名称：</td>
<td> <input name="company" type="text" maxlength="28" size="28">
</td>
</tr>
<tr align="center">
<td colspan="2" valign="top"> <input name="submit" type="submit"></td>
</tr>
</form>
</table>

表单处理页面index_act.asp(包含mail.asp页面，你可以去下载jmail组件）
<!--#include file="mail.asp"-->
<%
sentname=request.Form("sentname")
company=request.Form("company")

body="联系人: "&sentname&"<br/>"
body=body&"企业名称: "&company&"<br/>"

per="主题"
%>
<%call sendmails("[e-mail]",per,body)%>


我想这样就可以了！！

main.asp页面

<%
function SendMails(sender,subject,msgtext)
mailserver="" '邮局服务器地址（smtp服务器地址）
username=sender 'smtp服务器验证登陆名（邮局中开设的任何一个信箱的地址）
'smtp服务器验证密码 （信箱密码）
receive="[e-mail]"
'receive="[e-mail]"
'接受反馈信息的email地址（可以是您的任何有效信箱）
'修改结束
on error resume next
if not err then
Set msg = Server.CreateObject("JMail.Message")

msg.Charset = "gb2312" '设定邮件的字符集，默认为"US-ASCII" 一般中文用"gb2312"
msg.ContentType = "text/html"
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.From = username
msg.FromName = username
msg.AddRecipient (receive)
msg.Subject = subject
msg.Body = msgtext
sendmails=msg.Send (mailserver)
msg.close
set msg = nothing
end if
end function

%>
我想这样一个程序3个页面,应该可以解决你的问题了!!