iT邦幫忙

0

vbs 使用CDO.Message 寄送mail 無法收到

  • 分享至 

  • xImage

大家好,以下是我vbs 檔案的內容
Set MsgObj = CreateObject("CDO.Message")

Dim strService
strService = Wscript.Arguments(0)

MsgObj.From = "MT-LINKiServiceMonitoring@admin.com"
MsgObj.To = "xxxx@hotmail.com"
MsgObj.Subject = "service mail"
MsgObj.TextBody = strService & " service stopped." & vbCrLf & Now
MsgObj.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
MsgObj.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "59.125.xx.xx"
MsgObj.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
MsgObj.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = false
MsgObj.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
MsgObj.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
MsgObj.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
MsgObj.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
MsgObj.Configuration.Fields.Update
MsgObj.Send

以上程式執行時沒有錯誤,但無論我的信箱位址為gmail 或是 hotmail 都無法收到信件
相同的設定我用phpmialer 寄送沒有問題
想要請問各位大大我有遺漏甚麼事情嗎?

另外如果不用驗證,直接利用中華的smtp msa.hinet.net port 25 不驗證,可以寄送成功,但是只有目標信箱是hotmail 還有 msn 信箱可以收到,gmail 信箱無法,請問有大大遇過相關問題嗎?

謝謝

圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中

尚未有邦友回答

立即登入回答