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

Проверьте это: отправка электронной почты с использованием SMTP