|
分類:[.NET 全般]
質問致します。
vb2010でメール送信を行っています。
ネットで見つけたサンプルを使用しています。
現在は、TOで複数の宛先にメールしておりますが、これをBCCに変更を行いたいのです。
PsSmtpTOAddress の部分に BCC である区分を付けるのだと思いますが、ネットで検索を行っても該当のヒットがありません。
参考になるサイトや解決方法をご存知の方教えて頂きますようお願いいたします。
Module mSMTP
Public PsSmtpServer As String = "smtp.test.jp"
'Public PsSmtpPort As Integer
Public PsSmtpFromAddress As String = "test@test.jp" '送信元アドレス
Public PsSmtpTOAddress As String = "" '送信先アドレス
Public PsSmtpSubject As String = "" '件名
Public PsSmtpBody As String = "" '本文
Public PssmtpPass As String = "abcde" '送信パスワード
'**************************************************
'*** メール送信
'**************************************************
Public Function PFncSmtp() As Boolean
Dim msg As New System.Net.Mail.MailMessage(PsSmtpFromAddress, PsSmtpTOAddress, PsSmtpSubject, PsSmtpBody)
Dim sc As New System.Net.Mail.SmtpClient()
Try
'SMTPサーバーなどを設定する
sc.Host = "smtp.test.jp"
sc.Port = 587
sc.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
'ユーザー名とパスワードを設定する
sc.Credentials = New System.Net.NetworkCredential(PsSmtpFromAddress, PssmtpPass)
'SSLを使用する
sc.EnableSsl = False
'メッセージを送信する
sc.Send(msg)
'後始末
msg.Dispose()
'後始末（.NET Framework 4.0以降）
sc.Dispose()
Catch
'エラー時の処理
Application.Exit()
End Try
Return False
End Function
End Module
|