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

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

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

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

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

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

■実行コード

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)

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

'CC
If TextBox8.Text <> "" Then
mailmsg.CC.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実践入門