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

使用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                                                 --------------------编程问答-------------------- smtp服务器是不是你的？如果不是，那没有办法。 --------------------编程问答-------------------- 1)一封也发不了吗？
2）两封信之间加延时试过没？ --------------------编程问答-------------------- smtp 服务器是我们公司的，发件人的地址是啥，如何配置smtp服务器？ 多谢

所有的邮件都发不出去。加延时也没用 --------------------编程问答-------------------- 先不要用代码发，用outlook发一封试试能不能成功。 --------------------编程问答-------------------- 错误信息"...Ivalid address..."
debug.print Trim("OM_Mediation")     看看咯 --------------------编程问答--------------------  嗯, 上面傻了, print出来也是个OM_Mediation字符串而已. 不过你能确定发件人地址是正确的么? --------------------编程问答-------------------- 去后台看看 是不是内存满了

补充：VB ,  VBA