我想问是否可以在 vb.net 中向多个收件人发送电子邮件?
我的意思是我想创建一个向多个收件人发送电子邮件的程序,不像通常的程序,电子邮件地址、主题和其他电子邮件属性是硬编码的,我想要的是希望电子邮件地址、消息正文是来自数据库。
所以基本上,如果我要调用一个表单来发送电子邮件,它会从数据库服务器获取数据,为我提供收件人列表和他们的其他详细信息。
有人可以告诉我怎么做吗?如果有人能告诉我怎么做,我将不胜感激。谢谢!
我想问是否可以在 vb.net 中向多个收件人发送电子邮件?
我的意思是我想创建一个向多个收件人发送电子邮件的程序,不像通常的程序,电子邮件地址、主题和其他电子邮件属性是硬编码的,我想要的是希望电子邮件地址、消息正文是来自数据库。
所以基本上,如果我要调用一个表单来发送电子邮件,它会从数据库服务器获取数据,为我提供收件人列表和他们的其他详细信息。
有人可以告诉我怎么做吗?如果有人能告诉我怎么做,我将不胜感激。谢谢!
这很简单:
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