Public Sub SendMail(ByVal FromMail As String, ByVal ToMail As String, ByVal Body As String, ByVal Subject As String)
Dim Mail As New MailMessage
Mail.From = FromMail
Mail.To = ToMail
Mail.Body = Body
Mail.BodyFormat = MailFormat.Text
Mail.Subject = Subject
SmtpMail.Send(Mail)
End Sub