asp ใช้ cdonts ส่งเมล ไม่มี error แต่...ไม่มีอีเมลเข้า
ลองเข้าไปดูใน Queue ครับ มีอีเมล์อยู่หรือเปล่าครับ ถ้ามีแสดงว่าอาจจะติดพวก Firewall ของ Network ครับ
Date :
2013-01-22 11:02:10By :
mr.win
แล้วแบบนี้จะต้องแก้ปัญหายังไงครับ คือเราต้องแจ้งให้ทางแอดมินปิด firewall อย่างเดียวเลยใช่มั้ยครับ
Date :
2013-01-22 11:29:37By :
golf7626
มันมีอีเมล์อยู่ใน C:\inetpub\mailroot\queue หรือเปล่าครับ ถ้ามีลองแจ้งไปยัง Admin ดูครับ
Date :
2013-01-22 12:30:45By :
mr.win
สอบถามแล้วครับ ได้ความว่า ภายในสถาบันไม่มี mail Server ครับ เช่าภายนอก
Date :
2013-01-23 11:27:55By :
golf7626
อ่อ แล้วก็อีเมลที่อยู่ใน C:\inetpub\mailroot\queue เค้าบอกว่าตอนกดส่งมันจะโผล่มาแปบบนึงแล้วมันก็หายไปครับ (เค้าบอกมาแบบนี้)
Date :
2013-01-23 11:30:37By :
golf7626
ลองใช้สคริปต์ตัวบนดูแล้วครับCode (ASP) <!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<%@LANGUAGE="VBSCRIPT" CODEPAGE="874"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<title>Untitled Document</title>
</head>
<body>
<%
On Error Resume Next
Dim iMsg, iConf, Flds
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.mail.go.th"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "[email protected] "
Flds.Item(schema & "sendpassword") = "xxx"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = "[email protected] "
.From = "[email protected] "
.Subject = "Test send with [email protected] account"
.HTMLBody = "Test Send From Web Server xxx "
.Sender = "info"
.Organization = "info"
.ReplyTo = "[email protected] "
Set .Configuration = iConf
SendEmailGmail = .Send
End With
set iMsg = nothing
set iConf = nothing
set Flds = nothing
if Err.Number <> 0 then
response.Write("ERROR: ")
response.Write(Err.Description)
else
response.Write("OK")
end if
%>
</body>
</html>
The transport failed to connect to the server. Code (ASP) Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.mail.go.th"
Flds.Item(schema & "smtpserverport") = 25
Flds.Item(schema & "smtpauthenticate") = 2
Flds.Item(schema & "sendusername") = "[email protected] "
Flds.Item(schema & "sendpassword") = "xxx"
Flds.Item(schema & "smtpusessl") = false
The message could not be sent to the SMTP server. The transport error code was 0x80040217. The server response was not available
Date :
2013-01-24 14:55:33By :
golf7626
น่าจะติดต่อ Server ของ Gmail ไม่ได้ครับ ลองติดต่อผู้ดูแลระบบด้วยครับ Bock Port หรือว่าอะไรหรือเปล่า
Date :
2013-01-24 15:39:39By :
mr.win
Server 03
Load balance : Server 03
