ネット関連：HTML形式でメール送信

VB2008でIsBodyHtmlを使いHTML形式でメールを送信する使用例サンプルです。

HTML形式のメールを送信するには、IsBodyHtmlプロパティをTRUEに設定します。
既定値は、FALSEです。テキスト形式で送信されます。

■実行画面
本文に、フォント色を赤色に設定する為、<FONT color="#ff0000#> 本文 </FONT>としています。
HTML形式メール送信ソフト

■ outlook express でメールを受信した画面
文字色が赤色になっています。
メール受信結果

■実行コード

Public Class Form1

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

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

'件名
mailmsg.Subject = TextBox4.Text
'本文
mailmsg.Body = TextBox5.Text
'HTML形式にする
mailmsg.IsBodyHtml = True

'重要度
If RadioButton1.Checked Then
mailmsg.Priority = MailPriority.High
mailmsg.Headers.Item("X-Priority") = "1"
ElseIf RadioButton2.Checked Then
mailmsg.Priority = MailPriority.Normal
mailmsg.Headers.Item("X-Priority") = "3"
Else
mailmsg.Priority = MailPriority.Low
mailmsg.Headers.Item("X-Priority") = "5"
End If

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実践入門