主题：邮箱发送失败

Dim mail As new System.Web.Mail.MailMessage()
try 
 
    mail.To = "收件Q号@qq.com" 
    mail.From = "发件Q号@qq.com" 
    mail.Subject = "这是主题" 
    mail.BodyFormat = System.Web.Mail.MailFormat.Html 
    mail.Body = "这是内容" 
 
    mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1") '//身份验证 
    mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", mail.From) '//邮箱登录账号,这里跟前面的发送账号一样就行 
    mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "******") '//这个密码要注意:如果是一般账号,要用授权码企业账号用登录密码 
    mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", 465)'//端口 
    mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpusessl", "true")'//SSL加密 
    System.Web.Mail.SmtpMail.SmtpServer = "smtp.qq.com"    '//企业账号用smtp.exmail.qq.com 
    System.Web.Mail.SmtpMail.Send(mail) 
 
    msgbox("邮件发送成功  ") 
catch  ex As Exception
    msgbox("邮件发送成功 : " & ex.Message  )
End try

上面这种方法好用，我现在想一次多发几个邮箱，怎样设置呢？  mail.AddReceiver(dr2("邮箱地址")) ，这个方法不行