请各位大侠帮忙看看使用VB脚本群发邮件时，一直提示： 运行时错误：-2147220978（8004020e）。

Question

使用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                                                

Answer 1

smtp服务器是不是你的？如果不是，那没有办法。

Answer 2

smtp 服务器是我们公司的，发件人的地址是啥，如何配置smtp服务器？ 多谢所有的邮件都发不出去。加延时也没用

Answer 3

先不要用代码发，用outlook发一封试试能不能成功。

Answer 4

错误信息"...Ivalid address..."
debug.print Trim("OM_Mediation")     看看咯

Answer 5

 嗯, 上面傻了, print出来也是个OM_Mediation字符串而已. 不过你能确定发件人地址是正确的么?