我邮件服务器用WebEasyMail, ASP发信组件用jmail,但发不了信?

Xuezhihua1

奇怪了,我测试的别的SMTP,唯独我装有WebEasyMail的服务器SMTP不可以,用Jmail发信, 百思不得其解,万望帮助,在线等待及讨论,谢谢! ASP代码如下:<br>
<br>
<br>
<%<br>
<br>
'发送电子邮件设置<br>Function SendMail(FromEmail, Email, Subject, Content)<br>
Dim MyMail<br>
Dim MailBody<br>
Dim MailContent<br>
Dim TopEmaiSetting<br>
Dim BottomEmailSetting<br>
TopEmailSetting=""<br>
<br>
BottomEmailSetting=""<br>
<br>
MailContent = Content<br>
MailBody = TopEmailSetting<br>
MailBody = MailBody &" <P align=center class=Title>"&Subject&"</P>"<br>
MailBody = MailBody &" <HR size=1><P class=Content>"<br>
MailContent = MailBody &MailContent<br>
MailContent = MailContent &BottomEmailSetting<br>
<br>
MailContent = Replace(MailContent, vbCrLf, "<BR>")<br>
MailContent = Replace(MailContent, chr(13), "")<br>
Set msg = Server.CreateObject("JMail.Message")<br>
msg.silent = true<br>
msg.Logging = true<br>
msg.ContentType = "text/html"<br>
msg.MailServerUserName = "XXXX@XXX.com" '输入smtp服务器验证登陆名 （邮局中任何一个用户的Email地址）<br>
msg.MailServerPassword = "123456" '输入smtp服务器验证密码 （用户Email帐号对应的密码）<br>
msg.From = FromEmail '发件人Email<br>
msg.AddRecipient Email '收件人Email<br>
msg.Subject = Subject '信件主题<br>
msg.Body = MailContent '正文<br>
msg.Send ("mail.XXX.com") 'smtp服务器地址（企业邮局地址）<br>
set msg = nothing<br>
<br>
'Response.Write MailContent<br>
End Function<br>
<br>
Call SendMail("tech@XXX.com.cn", "uming@XXX-XXX.com", "test email", "test email")<br>
%><br>

电脑报

我没有相关的经验可以分享，有请高手～～～<br>
<br>
楼主能否联系下作者，了解是否支持JMAIL或具体的设置办法<br>

Xuezhihua1

我用的是盗版,作者会回答我的问题吗?<br>
<br>
而且他的FAQ上边写着可以用的,但我却无法使用.<br>
<br>
4、为什么我安装了WinWebMail后就无法使用微软的CDO对象通过ASP对外发信了，有什么其他解决办法？ <br>
1. 因为在安装了WinWebMail后，会自动停止微软IIS中自带的SMTP功能，所以无法用CDO发信。<br>
<br>
2. 您可以直接使用WinWebMail的对象进行网页发信（实例）。当然，也可以使用其他的第三方客户端组件发信。<br><br>

电脑报

WINWEBMAIL本来就是一个免费的软件（25个用户以下是不需要注册的）<br>
你上述的问题是可以直接联系软件的作者的<br>
我无能为力<br>
实在抱歉

Xuezhihua1

这个问题已解决,将JMail.Message改为调用Jmail.Smtpmail方法即可解决.如我的:<br>
<br>
<%<br>
<br>
'发送电子邮件设置<br>Function SendMail(FromEmail, Email, Subject, Content)<br>
Dim MyMail<br>
Dim MailBody<br>
Dim MailContent<br>
Dim TopEmaiSetting<br>
Dim BottomEmailSetting<br>
TopEmailSetting="<link rel='stylesheet' href='"&MyHomepage&"/style/Style.css' type='text/css'><table width='640' border='0' cellspacing='0' cellpadding='5'><tr><td width='150' valign='bottom'><a href='"&MyHomepage&"' target=""_blank""><IMG src='"&MyHomepage&"/image/"&HomeName&"/t_"&MyLogoPath&"' border='0'></a></td><td width='470' valign='bottom'></td></tr></table><table width='640' border='0' cellspacing='1' cellpadding='0' bgcolor='#666666'> <tr> <td valign='top'> <table width='100%' border='0' cellspacing='0' cellpadding='15'> <tr> <td valign='top' class='TitleFont' bgcolor='#FFFFFF'> <Div class='Content'> "<br>
<br>
BottomEmailSetting="<P> "&HomeTitle&"--- <A href="&MyHomepage&" target=""_blank"">"&MyHomepage&"</A>, "&MyAdvertising&"</td> </tr> </table> </td> </tr></table>"<br>
<br>
MailContent = Content<br>
MailBody = TopEmailSetting<br>
MailBody = MailBody &" <P align=center class=Title>"&Subject&"</P>"<br>
MailBody = MailBody &" <HR size=1><P class=Content>"<br>
MailContent = MailBody &MailContent<br>
MailContent = MailContent &BottomEmailSetting<br>
<br>
MailContent = Replace(MailContent, vbCrLf, "<BR>")<br>
MailContent = Replace(MailContent, chr(13), "")<br>
<br>
<br>
'Response.Write MailContent<br>
'---------------------------------------------------------------------------------------------<br><br>'发信<br>Set newmail=Server.CreateObject("JMail.SMTPMail")<br><br>newmail.ContentType = "text/html" <br><br>newmail.Charset = "gb2312"<br>newmail.Sender = FromEmail<br>newmail.Subject = Subject<br>newmail.AddRecipient(""&Email&"")<br>newmail.Body = MailContent<br>newmail.Execute<br>newmail.Close<br>Set newmail = Nothing<br>'end if <br><br>End Function<br>
%><br>
<br>

rayer

活活，路过，好复杂