ネット関連：BCCを追加しメール送信

VB2008でBcc.Addを使いメールにBCCを追加する使用例サンプルです。

BCCとは、「Blind Carbon Copy（ブラインドカーボンコピー）」の略で同じ内容のメールを複数の人に送る場合に使用します。
CCと同じですが、受信者は他の誰に送ったかは分かりません。

BCCを追加するには、BCCプロパティを使いメール送信します。

BCCプロパティに追加するには、MailAddressクラスにメールアドレスを設定します。

■実行画面
受信者メールアドレスの下に、BCC欄を２個追加しています。
このテキストボックスにメールアドレスを入力すると、BCCで送ることができます。
BCCメール送信ソフト

■実行コード

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sc As New System.Net.Mail.SmtpClient()
'送信者
Dim fromMail As New MailAddress(TextBox1.Text)
'宛先
Dim toMail As New MailAddress(TextBox2.Text)
'SMTPサーバー()
Dim smtpMail As New SmtpClient(TextBox3.Text)
Dim mailmsg As New MailMessage(fromMail, toMail)

'BCC
If TextBox7.Text <> "" Then
mailmsg.Bcc.Add(New MailAddress(TextBox7.Text))
End If

'BCC
If TextBox8.Text <> "" Then
mailmsg.Bcc.Add(New MailAddress(TextBox8.Text))
End If

'件名
mailmsg.Subject = TextBox4.Text
'本文
mailmsg.Body = TextBox5.Text

If TextBox6.Text <> "" Then
'添付ファイル
mailmsg.Attachments.Add(New Attachment(TextBox6.Text))
End If

Try
'メール送信()
smtpMail.Send(mailmsg)
MsgBox("送信しました")
Catch ex As SmtpException
'エラーメッセージを表示
MsgBox(ex.Message)
End Try
End Sub

Visual Basic 2008 Express Edition実践入門