godaddy的win主机发邮件的组件

green1celia

版主，麻烦了，到底是什么原因哈

add.c

你换为godaddy的邮箱试试看能否发送和接收

green1celia

在godaddy我们设了一个邮箱账号，登陆这个邮箱里面发邮件，发送成功了.
但是在网站上不行，但是代码提示已发送，却没有收到邮件，请问版主，这个是什么原因呢

green1celia

版主，请帮忙看一下

add.c

这个情况我也不怎么明白，不敢乱说误导你啊

你发到一个gamil邮箱看是否能收到邮件

xzy999599

我看还是把那个iis7.0的邮件组件代码给删掉吧.,根本就不行.,
有谁试用可以的支个声一下

Gzone

原帖由 add.c 于 2009-2-27 01:59 PM 发表
你的MX记录设置正确没有？

我拷贝了源代码执行的时候出错，通过不了。看到你提到MX记录。
请问MX记录是什么？是主机上的设置吗？

add.c

MX记录是邮件解析记录，GoDaddy在控制面板dns Manager里设置

hiservice

<%
Sub SendMail(Email,Subject,Message,EmailFrom,EmailUser,EmailPwd,EmailServer)
    'Email 接收者e-mail地址  Subject 邮件主题 Message 邮件内容 EmailFrom 发信者e-mail地址
    'EmailUser 邮箱账户(必须使用在godaddy注册的邮箱账户)
    'EmailPwd 邮箱密码
    'EmailServer 邮件服务器(一定要用relay-hosting.secureserver.net 其它的都会连接错误)
    On Error Resume Next
    Const cdoSendUsingMethod="http://schemas.microsoft.com/cdo/configuration/sendusing"
    Const cdoSendUsingPort=2
    Const cdoSMTPServer="http://schemas.microsoft.com/cdo/configuration/smtpserver"
    Const cdoSMTPServerPort="http://schemas.microsoft.com/cdo/configuration/smtpserverport"
    Const cdoSMTPC
    Const cdoSMTPAuthenticate="http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
    Const cdoBasic=1
    Const cdoSendUserName="http://schemas.microsoft.com/cdo/configuration/sendusername"
    Const cdoSendPassword="http://schemas.microsoft.com/cdo/configuration/sendpassword"

    Dim objConfig
    Dim objMessage
    Dim Fields

    Set objConfig = Server.CreateObject("CDO.Configuration")
    Set Fields = objConfig.Fields

    With Fields
        .Item(cdoSendUsingMethod) = cdoSendUsingPort
        .Item(cdoSMTPServer) = EmailServer
        .Item(cdoSMTPServerPort) = 25
        .Item(cdoSMTPConnectionTimeout) = 10
        .Item(cdoSMTPAuthenticate) = cdoBasic
        .Item(cdoSendUserName) = EmailUser
        .Item(cdoSendPassword) = EmailPwd
        .Update
    End With

    Set objMessage = Server.CreateObject("CDO.Message")
    Set objMessage.Configuration = objConfig

    With objMessage
        .To = Email
        .From = EmailFrom
        .Subject = Subject
        .TextBody = Message
        .Send
    End With
    If Err.Number <> 0 Then
        SendEmailState = 2 'Failure
    Else
        SendEmailState = 1 'Success
    End If
    Err.Clear
    Set Fields = Nothing
    Set objMessage = Nothing
    Set objConfig = Nothing
End Sub
%>
以上代码已经测试成功，发信的时候直接调用SendMail子程序就可以了。

OpensesameCN

上面的方式我还是500  这主机就这点不喜欢  什么错误都是500  看不到具体行数