如何实现群发邮件

Question

我想给站内的所有用户发送邮件，怎么实现，单个用户已经实现了
能不能一次给上万个用户发送？

Answer 1

Dim mailMsg As New MailMessage
        Dim sToMailAdd as string = "[email protected];[email protected]"  '这个收信人列表你可以循环生成
        ' setting a few properties.
        With mailMsg
            .From = "[email protected]"
            .To = sToMailAdd 
            .Subject = "hello"
            .Body = "hello."       
        End With        ' Set the SmtpServer name. 
        SmtpMail.SmtpServer = "10.245.245.10" 'smpt 你要自己设置了        'Send Mail
        SmtpMail.Send(mailMsg)