使用VB腳本群發郵件時，一直提示： 運行時錯誤：-2147220978（8004020e）。服務器拒絕了發件人地址，服務器回應為：501 5.1.7 Ivalid address,如何解決這類問題
stUl = "http://schemas.microsoft.com/cdo/configuration/"
Set vCDO = CreateObject("CDO.Message")
With vCDO.Configuration.Fields
.Item(stUl & "smtpserver") = "XXXX.XXXX.com"
.Item(stUl & "sendusing") = 2
.Item(stUl & "sendpassword") = "zhangyl"
.Update
End With
vCDO.From = Trim("OM_Mediation")
vCDO.Textbody = strContent
vCDO.Subject = strTitle
vCDO.To = strTo
vCDO.Send
uj5u.com熱心網友回復：
smtp服務器是不是你的？如果不是，那沒有辦法。uj5u.com熱心網友回復：
1)一封也發不了嗎？2）兩封信之間加延時試過沒？
uj5u.com熱心網友回復：
smtp 服務器是我們公司的，發件人的地址是啥，如何配置smtp服務器？ 多謝所有的郵件都發不出去。加延時也沒用
uj5u.com熱心網友回復：
先不要用代碼發，用outlook發一封試試能不能成功。uj5u.com熱心網友回復：
錯誤資訊"...Ivalid address..."debug.print Trim("OM_Mediation") 看看咯
uj5u.com熱心網友回復：
嗯, 上面傻了, print出來也是個OM_Mediation字串而已. 不過你能確定發件人地址是正確的么?uj5u.com熱心網友回復：
去后臺看看 是不是記憶體滿了
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/155983.html
標籤：VBA