vb.net - 在 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 发送电子邮件