ネット関連：重要度を指定しメール送信

VB2008でPriorityを使いメールの重要度を指定する使用例サンプルです。

ネット関連へ


重要度を指定するには、Priorityプロパティを設定します。
Priorityプロパティに対応していないメーラーがある為、X-Priorityフィールドにも設定するようにします。

[ Priorityプロパティの設定値 ]
MailPriority.High : 高
MailPriority.Normal ： 通常
MailPriority.Low ： 低

[ X-Priorityフィールドの設定値 ]
1 : 高
3 ： 通常
5 ： 低

■実行画面
重要度をラジオボタンで選択できるように追加しました。
重要度選択機能付きメールソフト

■ outlook express でメールを受信した画面
重要度マーク（！）上から、
低
通常
高
となっています。
outlook express

■実行コード

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

'重要度
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実践入門