楼主:
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
'''