求救，VB开发，发送邮件

Question

 发送的时候，收件人为3人，其中一人邮箱满了，其中一人收件箱地址失效，导致第三人 收不到邮件 ，下面是代码

 

 Private Sub sendMailCS()
        
        _javascript.exec("Main_Delete_alert", "alert('进入发起！')")

        'TCE侧新服务器
        Dim strsmtp As String = "XXX.XXX.XXX.XX"
        Dim stremailuser As String = "[e-mail]"
        Dim stremailpassword As String = ""

        Dim client As New SmtpClient(strsmtp.ToString)
        client.UseDefaultCredentials = False
        client.Credentials = New System.Net.NetworkCredential(stremailuser.ToString, stremailpassword.ToString)
        client.DeliveryMethod = SmtpDeliveryMethod.Network
        Dim message As New MailMessage()
        message.IsBodyHtml = True

        message.From = New MailAddress(stremailuser.ToString)
        message.Subject = String.Format(Settings.Default.email_subject & "(" & CustomerName_TextBox.Text.Trim & ")")

        Try
            message.To.Add(New MailAddress(getEmailAddressManager())) 
            message.CC.Add(New MailAddress(getEmailAddressManagerCC())) 
            message.Body = String.Format(Settings.Default.email_body, "部品缺漏信息 中 发行番号为 " & fxbh & "（序号为" & seqid & ",合同号为" & ContractNum & ", 号机号为" & MachineNum & "）的记录已转创建者结案！", "")
            
            
        Catch ex As Exception
            Return
        End Try

        client.Send(message) 
        
    End Sub