ارسال ایمیل انبوه

با سلام
من با کد زیر ایمیل تکی میفرستم. حالا باید چه تغییری در اون بدم تا بتونم چند ایمیل رو بصورت bcc بفرستم؟

با تشکر

Dim obj As New SmtpClient

            Dim Mailmsg As New MailMessage

            Mailmsg.To.Clear()



            Dim mto, mfrom, subject, mailserver, password, htmltext As String



            mto = email.text



            mfrom = "Info@mywebsite.com"

            subject = subjectmessage.text

            mailserver = "mail.mywebsite.com"

            password = "111111"



            htmltext = ("")

            Mailmsg.To.Add(New MailAddress(mto))

            Mailmsg.From = New MailAddress(mfrom)

            Mailmsg.Subject = subject.text

            Mailmsg.BodyEncoding = System.Text.Encoding.UTF8

            Mailmsg.IsBodyHtml = True

            obj.Host = mailserver

            Dim basicAuthenticationInfo As New System.Net.NetworkCredential(mfrom, password)

            obj.UseDefaultCredentials = False

            obj.Credentials = basicAuthenticationInfo

            Mailmsg.Body = htmltext

            Mailmsg.IsBodyHtml = True



            obj.Send(Mailmsg)

در یک حلقه به پراپرتی زیر مقدار بدید

Mailmsg.Bcc.Add(something...)