[问题] cdo.message自动发信

楼主: bravooooo (bravooooo)   2019-10-04 08:33:59
大家好
想使用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
'''
作者: johnpage (johnpage)   2019-10-04 09:22:00
软件没安装
楼主: bravooooo (bravooooo)   2019-10-04 09:32:00
我是将.asp丢上中华电信空间去执行但A电脑可以 B电脑不行 所以觉得奇怪和使用者ip有关系吗? 所以邮件服务器挡掉了?

Links booklink

Contact Us: admin [ a t ] ucptt.com