大家好
想使用cdo.message自動發送mail(使用hibox)
但相同的程式在A電腦可以順利執行
B電腦卻會出現
500 - 內部伺服器錯誤。
您要尋找的資源有問題而無法顯示。
程式碼如下
請問有人有遇過相似的問題嗎
該如何處理呢? 謝謝~~
'''
Set myMail =CreateObject("CDO.Message")
myMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "www.hibox.hinet.net"
myMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
myMail.Configuration.Fields.Item(
"http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
myMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
myMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/sendusername")
= "[email protected]"
myMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/sendpassword")
= "xxxx"
myMail.Configuration.Fields.Update
'''