PROCEDURE sendAnunciEmail()

mySession is emailSMTPSession

mySession.Name = "daniel@progdev.pro"
mySession.Password = pwd
mySession.ServerAddress = "progdev-pro.correoseguro.dinaserver.com"
mySession.Port = 465
mySession..Option = emailOptionSecuredTLS

myEmail is Email

myEmail.Sender = "daniel@progdev.pro"
myEmail.Recipient[1] = "justdanielfloyd@gmail.com"
myEmail..Subject = "Test"
myEmail..Message = "Hello Test 1"

EmailSetTimeOut(15)
IF EmailStartSession(mySession) = True THEN
    IF EmailSendMessage(mySession, myEmail) = False THEN
        Error()
    END
    EmailCloseSession(mySession)
ELSE
    Error("Unable to establish connection", ErrorInfo(), ...
    "In case of timeout, check the parameters of the "+ ...
    """Firewall"" on the port used (465)")
END