2011-12-15 66 views
2

我正在开发中,我发邮件给多个用户如下在BCC发送邮件给多个用户不能正常工作

Dim users(20) As String 

     users(0) = "[email protected]" 
     users(1) ="[email protected]" 
     users(2) = "[email protected]" 
     users(3) = "[email protected]" 
     users(4) = "[email protected]" 
     users(5) = "[email protected]" 
     users(6) = "[email protected]" 
     users(7) = "[email protected]" 
     users(8) = "[email protected]" 
     users(9) = "[email protected]" 
     users(10) = "[email protected]" 


    For i = 0 To 10 
     em.Bcc.Add(users(i)) 
     or 
      em.Bcc.Add(New MailAddress (users(i))) 

     Next 

     mailClient.Send(em) 

一个项目,但它发送电子邮件到只有一个用户我也试过

Dim sendto As String 
     sendto = Nothing 

     For i = 0 To 10 
      sendto = sendto + users(i) + "," 
     Next 
    em.Bcc.Add(sendto) 

仍然没有工作代码中出现什么问题 我使用的是asp.net和vb。

+0

你在哪里添加的主要接受者? – 2011-12-15 13:23:53

+0

@George我不知道什么是主要收件人。我想发送数以千计的密件抄送电子邮件。 – 2011-12-16 05:15:43

回答

1

您的代码应该看起来更像是这样的:

Sub SendToMany() 
    'create the mail message 
    Dim mail As New MailMessage() 

    mail.From = New MailAddress("[email protected]", "Ashok P") 

    mail.To.Add("[email protected]") 

    mail.Bcc.Add("[email protected]") 
    mail.Bcc.Add("[email protected]") 

    'set the content 
    mail.Subject = "This is an email" 
    mail.Body = "this is the body content of the email." 

    'send the message 
    Dim smtp As New SmtpClient(youmailserver) 'dont forget to include username/password via networkcredentials 
    smtp.Send(mail) 
End Sub 'MultipleRecipients