分享

写回答

发帖

[介绍] godaddy的win主机发邮件的组件

回答|共 38 个

green1celia

发表于 2009-2-27 14:44:17 | 显示全部楼层

回复 5# 的帖子

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

add.c

发表于 2009-2-27 14:51:52 | 显示全部楼层

回复 11# 的帖子

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

green1celia

发表于 2009-2-27 15:58:17 | 显示全部楼层

回复 13# 的帖子

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

green1celia

发表于 2009-2-27 16:11:31 | 显示全部楼层

回复 13# 的帖子

版主,请帮忙看一下

add.c

发表于 2009-2-27 16:31:45 | 显示全部楼层

回复 14# 的帖子

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

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

xzy999599

发表于 2009-3-10 10:25:28 | 显示全部楼层

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

Gzone

发表于 2009-3-19 11:55:28 | 显示全部楼层

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


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

add.c

发表于 2009-3-19 12:09:22 | 显示全部楼层

回复 17# 的帖子

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

hiservice

发表于 2009-3-21 05:07:56 | 显示全部楼层

在godaddy使用CDO.Message可以发信

<%
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子程序就可以了。

评分

参与人数 1金币 +5 收起 理由
add.c + 5

查看全部评分

OpensesameCN

发表于 2009-7-22 21:21:29 | 显示全部楼层

上面的方式我还是500  这主机就这点不喜欢  什么错误都是500  看不到具体行数
您需要登录后才可以回帖 登录 | 注册

本版积分规则