Отправка электронной почты нескольким получателям в 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