为什么邮件代码不工作

-3

Set objCDOSYSMail = Server.CreateObject("CDO.Message") 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 

Set Flds = objCDOSYSCon.Fields 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "any mail" 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "any password" 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "any server" 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 

Flds.update 

Set objCDOSYSMail.Configuration = objCDOSYSCon 

objCDOSYSMail.From = "any mail" 
objCDOSYSMail.To = "any mailid" 
'' // objCDOSYSMail.CC = "any mailid" 
objCDOSYSMail.Bcc = "any mailid"  
objCDOSYSMail.Subject = "feed back"      
objCDOSYSMail.HTMLBody = strBody 

objCDOSYSMail.Send 

Set objCDOSYSMail = Nothing 

'' // Response.redirect("thank.html") 
response.Write("saved")

来源

2009-08-20 Tarun

这里有什么问题。按照简单的规则！粘贴最小的代码，并试图找出代码段的哪一行导致问题 – GustyWind 2009-08-20 05:12:35

嗯，我已经检查过，但我没有得到什么问题 – Tarun 2009-08-20 05:18:03

错误消息说什么？ – krishna 2009-08-20 05:22:41

变化

Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1

到

Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

1 - 通过拾取目录 2 seinding - 通过SMTP

寻找正在发送在你的其他参数你显然是试图通过p发送ORT 25

来源

2009-08-20 05:48:54 DmitryK

试试这个

 

    Dim objCDOSYSMail 
    Dim objCDOSYSCon 
    Dim Flds 

    Set objCDOSYSMail = Server.CreateObject("CDO.Message") 
    Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 
    Set Flds = objCDOSYSCon.Fields 

    With Flds 
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "any server" 

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 

    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "any mail" 

    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "any password" 

    .Update 

    End With 

    Set objCDOSYSMail.Configuration = objCDOSYSCon 

    'Sending The Email 
    With objCDOSYSMail 
    .From = "any mail" 
     .To = "any mailid" 
     .Subject = "feed back"            
     .HTMLBody = "my Message" 
     .Send 

    End With 

    'Disposing Objects 

    Set objCDOSYSMail = Nothing 
    Set objCDOSYSCon = Nothing 
    Set Flds = Nothing

如果你没有得到任何错误，请检查错误日志服务器上。确保服务器可以将电子邮件中继到电子邮件服务器（smtpserver）。这可以通过执行从网络服务器到电子邮件服务器的快速“TELNET会话”来完成。某些SMTP服务器也在发件人域上执行反向DNS。这听起来很愚蠢，但也请检查用户名和密码。

注意：您的问题被拒绝了，因为您没有明确说明您的意图。下一次是“特定”而不是“太平洋”（如大海）。大多数在这里闲逛的人不是专业人士就是想要成为一个人，所以至少要设法成为一个人。

来源

2009-08-20 05:56:02

也不要问和隐藏。看起来像一个模式看着你的问题历史。 – krishna 2009-08-20 06:52:12

您可能想使用open source library ajaxed。它检测到组件，您不必担心这一点。

忘记选择正确的电子邮件组件（安装& 配置它）的问题。 ajaxed为你做了。它会检查服务器上安装的组件，并使用 “最好”的组件。请参阅的API查看哪些组件目前支持。在撰写此页时支持Jmail，ASPEmail和CDOSYS为。

这里是关于如何send an email的教程。

来源

2009-08-20 11:29:12 Michal

为什么邮件代码不工作

回答

相关问题