javascript - ASP 使用 CDOSYS 和 AJAX 发送电子邮件

Question

我尝试在 IIS 7 服务器中使用 CDOSYS 和 AJAX 发送电子邮件。我已发送 AJAX 请求来发送邮件。 AJAX 返回 200 OK 状态。但电子邮件没有到达。谁能解决我的问题？非常感谢!

我有 3 个文件:

<强>1。索引.html

<强>2。 main.js

    function sendEmailAjaxFunc(){

        var cusName = document.getElementById("cusName").value;
        var emailAdr = document.getElementById("emailAdr").value;

        var xmlhttp;
        try{
            xmlhttp=new XMLHttpRequest();
        }
        catch(e){
            xmlhttp = new ActiveXObject('Microsoft.XMLHTTP');
        }
        xmlhttp.open("GET","sendEmail.asp?cusName="+cusName+"&emailAdr="+emailAdr+"&sTime="+new Date().getTime(),true);
        xmlhttp.onreadystatechange=function() {
            if (xmlhttp.readyState==4 && xmlhttp.status==200) {
                //finish report
                //alert(xmlhttp.responseText);
            }
        }
        xmlhttp.send(null);
        return true;
    }

<强>3。发送电子邮件.asp

    <%@ Language=JScript CodePage=65001 %>
    <%

        var cusName = Request.QueryString("cusName");
        var emailAdr = Request.QueryString("emailAdr");

        var objMail = Server.CreateObject( "CDO.Message" );
        objMail.BodyPart.charset = "unicode-1-1-utf-8";
        objMail.From = 'info@it.com';
        objMail.To = emailAdr;
        objMail.Cc = emailAdr;
        objMail.Subject = 'It-Zhai GmbH';
        objMail.TextBody = 'Hello ' + cusName + ', just a text email';
        //objMail.HTMLBody = 'HTML';
        //objMail.AddAttachment('justAttachment.txt');
        objMail.SendMail;
    %>

Answer 1

您是否设置了电子邮件服务器来发送消息？看起来您需要配置要通过服务器发送的消息。

这里还有一些选项可以添加到您的配置中...

objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

'Name or IP of Remote SMTP Server'

objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.myserver.com"

'Server port (typically 25)'

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

objMail.Configuration.Fields.Update

您可以在此处找到更多信息... http://www.paulsadowski.com/wsh/cdo.htm