发送电子邮件给VB.NET中的多个收件人

Question

我想问是否可以发送电子邮件给vb.net中的多个收件人？

我在这里的意思是我想创建一个程序发送电子邮件给多个收件人，不同于通常的程序，其中的电子邮件地址，主题和其他电子邮件属性是硬编码的，我想要的是希望的电子邮件地址，消息体，来自数据库。

因此，基本上，如果我打算调用表单来发送电子邮件，它将从数据库服务器获取数据，为我提供收件人列表和其他详细信息。

有人可以告诉我该怎么做吗？如果有人能告诉我如何去做，我将不胜感激。谢谢！

Answer 1

很简单：

Public Function Snd(ByVal frm As String, ByVal tooo As List(Of String), _ 
         ByVal pass As String, ByVal hst As String, _ 
         ByVal sbj As String, ByVal bdy As String, _ 
         ByVal lAtt As List(Of String)) As String 


     Dim ml As New MailMessage() 

     ml.From = New MailAddress(frm) 
     For Each sA As String In tooo 
      ml.To.Add(sA) 
     Next 

     ml.Subject = sbj 
     ml.Body = bdy 
     For Each sA As String In lAtt 
      ml.Attachments.Add(New Attachment(sA)) 
     Next 
     '"smtp.gmail.com" for gmail 
     '"smtp.live.com" for hotmail 
     Dim SMTPServer As New SmtpClient(hst) 
     SMTPServer.Port = 587 
     SMTPServer.Credentials = New System.Net.NetworkCredential(frm, pass) 
     SMTPServer.EnableSsl = hst <> "smtp.mail.yahoo.com" 

     Try 
      SMTPServer.Send(ml) 
      Return "Sent" 
     Catch ex As SmtpException 
      Return ex.Message 
     End Try 
     Return "" 
    End Function 

检查：sending email using smtp