'ログオフ、シャットダウンの通知(メールの方式)

Imports System
Imports Microsoft.Win32
Imports System.Net.Mail
Imports System.Net.Mail.SmtpClient
'ログオフ、シャットダウンの通知
Public Class Form1
    Dim smtp() As SmtpClient
    Dim MailHost As String = "172.18.1.3"
    Dim FromAdd As String = "aa@bjd.ne.jp"
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            'イベントをイベントハンドラに関連付ける
            'フォームコンストラクタなどの適当な位置に記述してもよい
            AddHandler SystemEvents.SessionEnding, AddressOf SystemEvents_SessionEnding
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
        'イベントを開放する
        'フォームDisposeメソッド内の基本クラスのDisposeメソッド呼び出しの前に
        '記述してもよい
        RemoveHandler SystemEvents.SessionEnding, AddressOf SystemEvents_SessionEnding
    End Sub

    'ログオフ、シャットダウンしようとしているとき
    Private Sub SystemEvents_SessionEnding(ByVal sender As Object, ByVal e As SessionEndingEventArgs)
        Dim s As String = String.Empty
        If e.Reason = SessionEndReasons.Logoff Then
            s = "ログオフしようとしています。"
        ElseIf e.Reason = SessionEndReasons.SystemShutdown Then
            s = "シャットダウンしようとしています。"
        End If

        'e.Cancel = False
        'SendMail(s, s)
        If MessageBox.Show(s + vbNewLine + "キャンセルしますか？", _
                "質問", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
            'キャンセルする
            e.Cancel = True
        Else
            '実行する
            SendMail(s, s)
        End If
    End Sub
    Private Sub SendMail(ByVal TitleMsg As String, ByVal BodyMsg As String)
        'Dim ToAdd As String = "aa@bjd.ne.jp"
        Dim ToAdd As String = "bb@bjd.ne.jp,cc@bjd.ne.jp,dd@bjd.ne.jp,ee@bjd.ne.jp"
        Dim MailSubject As String = TitleMsg
        Dim MailBody As String = BodyMsg
        Dim sc As New SmtpClient()
        Dim msg As New MailMessage()

        sc.Host = MailHost
        msg.From = New MailAddress(FromAdd)
        msg.To.Add(ToAdd)
        msg.Subject = MailSubject
        msg.Body = MailBody
        sc.Send(msg)
    End Sub
    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        'Dim t As String = "test"
        'Dim b As String = "body"
        'SendMail(t, b)
        Me.Close()
    End Sub
End Class