2012-03-05 19 views
1

vb.netの複数の受信者に電子メールを送信できるかどうか尋ねたいと思いますか?VB.NETで複数の受信者に電子メールを送信

私はここで、電子メールアドレス、件名、およびその他の電子メール属性がハードコードされている通常のプログラムとは異なり、複数の受信者に電子メールを送信するプログラムを作成したいと思っています。メッセージ本文は、データベースから来ています。

基本的に私は電子メールを送信するフォームを呼び出すつもりであれば、データベースサーバーからデータを取得し、受信者の一覧と他の詳細を提供します。

誰かに私にそれを表示することはできますか?もし誰かが私にそれをする方法を示すことができたら、私は感謝します。ありがとう!

+0

あなたは、単一の受信者に送信するのと同じ方法。何を試しましたか? – SLaks

+0

私は受信者の電子メールアドレスがデータベースから来ている必要があります – Dhenn

+0

あなたはまだデータベースから電子メールアドレスを取得することができましたか?そうでなければ最初にそれを試す必要があります –

答えて

2

それは簡単にです:

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

+0

私の質問を理解していなかったらごめんなさい、基本的にはデータベースから複数のメールアドレスにメッセージを送るだけです。それは..私はすでにsmtpを介して電子メールを送信するためのコードを知っている。 – Dhenn

+0

いいえ、どのような種類のデータベースですか? SQL?どんな技術をLINQ、ADO.netを使用していますか?どのテーブルとフィールド?あなたに役立ついくつかのコードを表示してください –

関連する問題