發送電子郵件給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