-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")
4

3 回答 3

4

改变

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

至

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

1 - 通过拾取目录发送 2 - 通过 SMTP 发送

查看您的其他参数，您显然正试图通过端口 25 发送。

于 2009-08-20T05:48:54.037 回答
2

尝试这个

    暗淡 objCDOSYSMail
    暗淡 objCDOSYSCon
    昏暗的空间

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

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

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "任何服务器"

    .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") = "任何邮件"

    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "任何密码"

    。更新

    结束于

    设置 objCDOSYSMail.Configuration = objCDOSYSCon

    '发送电子邮件
    使用 objCDOSYSMail
    .From = "任何邮件"
        .To = "任何邮件ID"
        .Subject = "反馈"                                             
        .HTMLBody = "我的消息"
        。发送

    结束于

    '处理对象

    设置 objCDOSYSMail = 无
    设置 objCDOSYSCon = 无
    设置 Flds = 无

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

注意：您的问题被否决了，因为您没有明确说明您的意图。下一次是“特定”而不是“太平洋”（就像大海一样）。大多数在这里闲逛的人要么是专业人士，要么是想成为，所以至少尝试成为其中的一员。

于 2009-08-20T05:56:02.460 回答
1

你可能想使用ajaxed 的开源库。它会检测组件，您无需担心。

忘记选择正确的电子邮件组件（安装和配置它）的问题。ajaxed 为您做到这一点。它检查服务器上安装了哪些组件并使用“最佳”组件。请参阅 API 以查看当前支持哪些组件。由于此页面是编写 Jmail、ASPEmail 和 CDOSYS 支持的。

这是一个关于如何发送电子邮件的教程。

于 2009-08-20T11:29:12.243 回答