作者bravooooo (bravooooo)
看板C_Sharp
标题[问题] cdo.message自动发信
时间Fri Oct 4 08:33:59 2019
大家好
想使用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
'''
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 59.125.102.154 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/C_Sharp/M.1570149242.A.F25.html
1F：推 johnpage: 软体没安装 10/04 09:22
2F：→ bravooooo: 我是将.asp丢上中华电信空间去执行 10/04 09:32
3F：→ bravooooo: 但A电脑可以 B电脑不行 所以觉得奇怪 10/04 09:32
4F：→ bravooooo: 和使用者ip有关系吗? 所以邮件伺服器挡掉了? 10/04 09:33