''' <summary>
   ''' Simple method to open a new mail window (default mail client must be setup and working)
   ''' </summary>
   ''' <param name="To">Recipient(s) of mail (if more than one, delimit addresses with ";")</param>
   ''' <param name="Subject">Subject of mail</param>
   ''' <param name="Message">Body of mail</param>
   Public Shared Sub StartDefaultMail( _
       ByVal [To] As String, _
       Optional ByVal Subject As String = "", _
       Optional ByVal Message As String = "" _
   )
      Try
         Dim psi As New ProcessStartInfo()
         psi.UseShellExecute = True
         psi.FileName = _
              "mailto:" & HttpUtility.UrlEncode([To]) & _
              "?subject=" & HttpUtility.UrlEncode(Subject) & _
              "&body=" & HttpUtility.UrlEncode(Message)
         Process.Start(psi)
      Catch ex As Exception
         Throw _
             New ApplicationException( _
                 "Default mail client could not be started.", _
                 ex _
             )
      End Try