台灣最大程式設計社群網站
線上人數
1192
 
會員總數:246135
討論主題:189715
歡迎您免費加入會員
討論區列表 >> ASP >> CDO發送MAIL,無法收到信件
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
CDO發送MAIL,無法收到信件
價值 : 500 QP  點閱數:380 回應數:4
樓主

LAIJUNG
門外漢
0 17
912 17
發送站內信

各位前輩好~

原本我在win server 2003可以執行CDO發送MAIL,也可以收到信件

但換了win server 2019後~執行CDO發送MAIL,一直無法收到信件

我也有測試版上的3樓方法
https://www.blueshop.com.tw/board/FUM200410061525290EW/BRD200908102026557ZT.html

確實出現" 支援CDO.Configuration否?? √ "

不知道是什麼沒設定到,以下是我的程式



On Error Resume Next

Set mail=Server.CreateObject("CDO.Message")
strCfg="http://schemas.microsoft.com/cdo/configuration/"

mail.Configuration(strCfg & "smtpserver")="smtp.gmail.com"
mail.Configuration(strCfg & "sendusername")="ccc"
mail.Configuration(strCfg & "sendpassword")="aaa"
'mail.Configuration(strCfg & "smtpserverport")="25"

mail.From="abc<xxx@gmail.com>"
mail.Bcc="xxx@gmail.com"
mail.Subject="aaaa"

Contents=""

Contents=Contents & "如果有問題請跟我說,感謝您!<BR><BR>"

mail.HtmlBody=Replace(Contents,vbcrlf,"<BR>")

mail.Configuration.Fields.Update
mail.Send

Set mail=Nothing




搜尋相關Tags的文章: [ CDO ] , [ win server 2019 ] ,
本篇文章發表於2019-12-18 17:54
1樓
最有價值解答

香帥
檢舉此回應
請參考
https://axvigneshvaran.wordpress.com/2016/02/26/cdo-message-error-list/
檢查錯誤的原因,找出原因後就可解決
本篇文章回覆於2019-12-19 01:15
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
作者回應

LAIJUNG
檢舉此回應
TO 香帥

我有之後在程式加入前後On Error,和大大給我的網頁資訊加入一些程式碼

但是出現了 "郵件無法傳送到 SMTP 伺服器。傳輸錯誤碼為 0x80040217。伺服器回應為 not available"

我也去google管理帳號中設定,低安全性應用程式存取權設定已啟用

也是一樣出現0x80040217 訊息~再請前輩給我一些指導~謝謝





On Error Resume Next

'新增smtpserverport
mail.Configuration(strCfg & "smtpserverport")=465
'新增ssl
mail.Configuration(strCfg & "smtpusessl")=true
'新增sendusing
mail.Configuration(strCfg & "sendusing")=2
'新增驗證方式
mail.Configuration(strCfg & "smtpauthenticate")=1

if err.Number <> 0 then
response.Write("error Descp:" &err.description)
response.Write("<br>")
response.end
end if

本篇文章回覆於2019-12-19 11:39
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
回應

香帥
檢舉此回應
請參考
https://support.microsoft.com/en-nz/help/2028411/collaboration-data-objects-cdo-1-2-1-is-not-supported-with-outlook-201
本篇文章回覆於2019-12-19 14:37
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
作者回應

LAIJUNG
檢舉此回應
TO 香帥

謝謝大大指導~

我把印出錯誤結果都註解後,剛剛已經成功收到信了

感謝前備花時間指導~



'if err.Number <> 0 then
'response.Write("error Descp:" &err.description)
'response.Write("<br>")
'response.end
'end if

本篇文章回覆於2019-12-19 15:21
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.