使用cdo.message发邮件，会一直停在send语句

[ndsc213456789]

我用cdo.message编写的发邮件程序，有的时候能成功，有的时候会失败。发邮件函数代码如下：

function  SendMess() as string  '发送者，标题，正文
 On Error Resume Next '出错后往下运行
    Dim NameS As String
    dim Email as object
    Set Email = CreateObject("CDO.Message")
    NameS = "http://schemas.microsoft.com/cdo/configuration/"    
    Email.To = "[e-mail]"  '收信地址
    Email.Subject = "标题"
    Email.TextBody = "正文"
    Email.Configuration.Fields.Item(NameS & "sendusing") = 2    
    Email.From ="[e-mail]" '发信人邮箱
    Email.Configuration.Fields.Item(NameS & "smtpserver") = "smtp.126.com"
    Email.Configuration.Fields.Item(NameS & "smtpserverport") = 25
    Email.Configuration.Fields.Item(NameS & "smtpauthenticate") = 1
    Email.Configuration.Fields.Item(NameS & "sendusername") = "abc"  '邮箱用户名
    Email.Configuration.Fields.Item(NameS & "sendpassword") = "123456" '邮箱密码        
    Email.Configuration.Fields.Update     
    Err.Clear
    Email.Send  '有的时候程序运行到这里时，就永远停在这里，按理说出错了也应当往下运行啊
    If Len(Err.Description) Then
       Debug.Print Err.Description
       sendmess="失败"
    Else
       Debug.Print "成功"
       sendmess="成功"
    End If     
End Sub

我把SendMess放在循环里，通过每次调用时改变收件人地址来群发邮件，成功的话，SendMess返回“成功”，如果因为收件人地址不存在（或别的原因）发信不成功，SendMess也能返回“失败”并不影响程序的运行，但现在的问题是：有的时候Email.send出错时会一直停在Email.send，不再往下运行。造成程序中断，请问大家，怎么解决？

[ndsc213456789]

算了，还是自个写个发信程序吧，反正smtp 协议也简单

[ndsc213456789]

唉，为什么没人理呢？