我有一个 asp 页面,它使用 CDO 通过电子邮件发送表单的详细信息。到目前为止,我已经使用 smtp 端口 25 通过与 hmail 服务器的明确连接来完成此操作。
我现在需要使用 SSL 连接。我已经创建了安全证书并将 hmail 服务器设置为使用端口 465 和 ssl。
但是,由于某种原因,当我尝试发送表单时,出现错误 500,并且电子邮件未发送。
我也尝试过使用端口 587,但它也不起作用。
我使用的CDO代码如下:
If request.Form("submit") <> "" then
Set myMail=CreateObject("CDO.Message")
myMail.Subject="xxxxxxx"
myMail.From=Request.Form("email")
myMail.To= "xxxxxxxxxxx"
myMail.TextBody = "Name:"& Request.Form("name")& vbcrlf & vbcrlf & _
"Email:" & Request.Form("email") & vbcrlf & vbcrlf & _
"Telephone:" & Request.Form("telephone") & vbcrlf & vbcrlf & _
"Location:" & Request.Form("location") & vbcrlf & vbcrlf & _
"Other location:" & Request.Form("other_location") & vbcrlf & vbcrlf & _
"Comments:" & Request.Form("comments")
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="127.0.0.1"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=465
MyMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
有谁知道可能出了什么问题吗?
谢谢。
我在使用旧版 ASP 代码时遇到了同样的问题。以下代码适用于亚马逊。
注意:似乎只有端口 25 或 465 可以工作并且 smtpusessl = 1(在 VBScript 中 True==-1)
' Create Connection
Function GetEmailConnection ()
Set oMail = CreateObject("CDO.Message")
Set GetEmailConnection = oMail
End function
Function GetConfiguration()
Set oConfig = CreateObject("CDO.Configuration")
Set GetConfiguration = oConfig
End Function
' Send Email
Sub SendEmail (subject, fromAddress, toAddress, body)
set objMessage = GetEmailConnection()
Set objConfiguration = GetConfiguration()
Set fields = objConfiguration.Fields
Const cdoSendUsingPort = 2
With fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "email-smtp.us-east-1.amazonaws.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 '
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
End With
With objMessage
set .Configuration = objConfiguration
.Subject = subject
.From = fromAddress
.To= toAddress
.TextBody = body
.Send
End With
set objMessage = nothing
end Sub
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)