ちょっと覚書です・・・汗

Private Sub MAILSEND()
　　Try
　　　　Dim message As New System.Net.Mail.MailMessage(送信元, 送信先)
　　　　message.Subject = サブジェクト
　　　　message.Body = メッセージ本文
　　　　Dim client As New System.Net.Mail.SmtpClient(smtpアドレス)
　　　　client.Send(message)

　　　　MessageBox.Show("メールを送信しました。", "送信終了")
　　Catch ex As Exception
　　　　MessageBox.Show("送信できませんでした。", "エラー")
　　End Try
End Sub