寻找ASP通过JMail发送email邮件高手

hulihudu 2003-12-04 08:49:01

我用的是win98的pws从网上下载了一个JMail组件，可是我用asp 编写的发送email的程序却总是发不到测试的邮箱中，请各位帮忙。
<%
toemail=request.form("toemail")
subject=request.form("subject")
content=request.form("content")
'response.write toemail&" "&subject&" "&content&" "
message=""
if toemail<>"" and subject<>"" and content<>"" then
set jmail=server.createobject("Jmail.Message")
jmail.charset="gb2312"
jmail.silent=true
jmail.priority=3
jmail.mailserverusername="***" ------如果我在本机上测试此处该怎么写
jmail.mailserverpassword="***" --------此处同上
jmail.From="liuxing80513@163.com"
jmail.Addrecipient toemail
jmail.Subject=subject
jmail.Body=content
jmail.Send("****") -----------------------此处同上

set jmail=Nothing
message="发送成功！"
end if
%>

谢谢！

...全文

38 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

eliphe 2003-12-10

打赏
举报

HSkyXSmtp Web邮件群发组件 1.5

下载地址:http://www.skyec.com/U_View_cpxz_detail.asp?ProductID=11

简介:
HSkyXSmtp Web邮件群发专家，使用简单，功能强大。
　　同时支持匿名和身份验证，适用于多种服务器环境，更方便使用。
　　率先支持用户名和密码加密保护机制，更加安全可靠。
　　采用多文本编辑模式，可直接添加字符和调入文本文件，信件格式更随心所欲。
　　支持html编码超文本信件，让你的信件别出心裁，更具亮点。
　　可同时发送多个附件，操作简单，速度极快。
　　采用了标准的Com组件方式，只需服务器端注册即可，而再也不用担心客户机是否支持。
　　本组件经过多种平台环境负荷压力测试，运行稳定、速度快、资源占用低。

用HSkyXSmtp Web邮件群发 1.5 只需安装即可，无需设置其他项，附带完整的asp,C#,VBNet的演示代码。

hulihudu 2003-12-04

打赏
举报

请问海鸥，我这样写代码哪里错了，我的测试邮箱里总是收不到测试的邮件。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<%
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = "liuxing80513@163.com" '输入smtp服务器验证登陆名（邮局中任何一个用户的Email地址）
msg.MailServerPassword = "******" '输入smtp服务器验证密码（liuxing80513@163.com 的密码）
msg.From = "liuxing80513@163.com" '发件人Email
msg.FromName = "流星" '发件人姓名
msg.AddRecipient "caixingnanhai@hotmail.com" '收件人Email
msg.Subject = "test send email" '信件主题
msg.Body = "test send email!"
msg.Send ("mail.163.com") 'smtp服务器地址（企业邮局地址）
set msg = nothing
response.write "发送成功！"

%>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>

</body>
</html>

jeasoyang 2003-12-04

打赏
举报

我的Email：yglzzh@163.com ，请把你的Jmail使用手删发到我的信箱里可以吗？谢谢！

hulihudu 2003-12-04

打赏
举报

我的Email：liuxing80513@163.com ，请把你的Jmail使用手删发到我的信箱里可以吗？谢谢！

Pandaxm 2003-12-04

打赏
举报

我这有Jmail的使用手册，要的话发就留下E-mail我发给你

sky9705 2003-12-04

打赏
举报

告诉你吧，
你先要在本机上装个具有发送邮件功能的Jmail组件。
如果需要去下载个，安装一下。
jmail.mailserverusername="***" ------如果我在本机上测试此处该怎么写
jmail.mailserverpassword="***" --------此处同上

jamil.from="liuxing80513@163.com"
jmail.mailserverusername="liuxing80513"
jmail.mailserverpassword="邮箱密码"

加上这几个，绝对没有问题。
我的邮件是sky9705@163.net，有需要找我

甘泉123 2003-12-04

打赏
举报

本机测试跟服务器上测试有区别吗？？
都要有smtp服务器的登陆名和密码呀

海鸥 2003-12-04

打赏
举报

jmial4.3版
<%
dim email,title,msg,smtpserver,smtpuser,smtppwd,smtpemail,jmail,isgo
'收件人信息
email="jerbee@163.com" '//收信人地址
title="你好！" '//标题
msg="我的测试邮件！" '//信件内容

'发送邮件参数设置
smtpserver = "smtp.sina.com.cn" '//邮件服务器（我使用的是新浪的）
smtpuser = "lsqteng" '//你的用户名
smtpemail = "lsqteng@sina.com" '//你的邮箱
smtppwd = "password" '//你的密码

'发送邮件
Set jmail= server.CreateObject ("jmail.message")
jmail.Silent = true
jmail.Charset = "gb2312"
jMail.ContentType = "text/html"
jmail.From = "lsqteng@sina.com" '//这里成你的发信人地址
jmail.FromName = "lsqteng" '//发信人姓名

jmail.Subject = title '//标题
jmail.AddRecipient email '//地址
jmail.Body = msg '//内容

jmail.MailServerUserName = smtpuser
jmail.MailServerPassWord = smtppwd
isgo = jmail.Send(smtpserver)

if err then
SendMail= err.description
err.clear
else
SendMail="发送成功"
end if
jmail.Close
set jmail = nothing

Response.Write SendMail
%>

---------------------------------------------------------------

我用这样的发送成功

Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = "a@a.net" '输入smtp服务器验证登陆名（邮局中任何一个用户的Email地址）
msg.MailServerPassword = "abc" '输入smtp服务器验证密码（用户Email帐号对应的密码）
msg.From = "a@a.net" '发件人Email
msg.FromName = "aaa" '发件人姓名
msg.AddRecipient "b@b.net" '收件人Email
msg.Subject = "test" '信件主题
msg.Body = "testbody"
msg.Send ("mail.a.net") 'smtp服务器地址（企业邮局地址）
set msg = nothing