Public Overloads Sub SendMail(ByVal p_Subject As String, ByVal p_Body As String, ByVal p_To As String)
        Dim myMail As New MailMessage
        With myMail
            .From = Moderator()
            .BodyFormat = Mail.MailFormat.Text
            .Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1") 
            .Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", _
            ConfigurationSettings.AppSettings("SMTPUSER").ToString)
            .Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", _
            ConfigurationSettings.AppSettings("SMTPPWD").ToString)
            .Subject = p_Subject
            .Body = p_Body
            .To = p_To
        End With
        SmtpMail.SmtpServer = ConfigurationSettings.AppSettings("SMTPSERVER").ToString
        SmtpMail.Send(myMail)
    End Sub