邮件服务器-邮件系统-邮件技术论坛(BBS)

标题: 我邮件服务器用WebEasyMail, ASP发信组件用jmail,但发不了信? [打印本页]

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

作者: 电脑报 时间: 2004-11-13 16:08
标题: re:我没有相关的经验可以分享，有请高手～～～...
我没有相关的经验可以分享，有请高手～～～ 
 
楼主能否联系下作者，了解是否支持JMAIL或具体的设置办法

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

作者: 电脑报 时间: 2004-11-18 19:36
标题: re:WINWEBMAIL本来就是一个免费的软...
WINWEBMAIL本来就是一个免费的软件（25个用户以下是不需要注册的） 
你上述的问题是可以直接联系软件的作者的 
我无能为力 
实在抱歉

作者: Xuezhihua1 时间: 2005-3-21 00:24
标题: re:这个问题已解决,将JMail.Messa...
这个问题已解决,将JMail.Message改为调用Jmail.Smtpmail方法即可解决.如我的: 
 
<% 
 
'发送电子邮件设置 Function SendMail(FromEmail, Email, Subject, Content) 
Dim MyMail 
Dim MailBody 
Dim MailContent 
Dim TopEmaiSetting 
Dim BottomEmailSetting 
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'> " 
 
BottomEmailSetting=" "&HomeTitle&"--- <A href="&MyHomepage&" target=""_blank"">"&MyHomepage&"</A>, "&MyAdvertising&"</td> </tr> </table> </td> </tr></table>" 
 
MailContent = Content 
MailBody = TopEmailSetting 
MailBody = MailBody &" "&Subject&"" 
MailBody = MailBody &" <HR size=1>" 
MailContent = MailBody &MailContent 
MailContent = MailContent &BottomEmailSetting 
 
MailContent = Replace(MailContent, vbCrLf, " ") 
MailContent = Replace(MailContent, chr(13), "") 
 
 
'Response.Write MailContent 
'--------------------------------------------------------------------------------------------- '发信 Set newmail=Server.CreateObject("JMail.SMTPMail") newmail.ContentType = "text/html" newmail.Charset = "gb2312" newmail.Sender = FromEmail newmail.Subject = Subject newmail.AddRecipient(""&Email&"") newmail.Body = MailContent newmail.Execute newmail.Close Set newmail = Nothing 'end if End Function 
%>

作者: rayer 时间: 2005-3-21 10:27
标题: re:活活，路过，好复杂
活活，路过，好复杂

欢迎光临邮件服务器-邮件系统-邮件技术论坛(BBS) (http://bbs.5dmail.net/)