pcsoft.us.windevCopyright 2026, PC SOFT9 Feb 2015 15:55:32 Z9 Feb 2015 15:55:32 Z[code:wl] SendEmail("adrianoboller@gail.com","Monitor de Atividade SQL","Teste do sistema de mensagem de erro do monitor de atividade sql 465","") PROCEDURE SendEmail(Destinatario, Assunto, Mensagem, Anexo) EmailSetTimeOut(30) UserName, Senha is string = "" UserName = "adrianoboller@gmail.com" Senha = "777777" IF EmailStartSMTPSession(UserName, Senha,"smtp.gmail.com", 587, False, emailOptionSecuredTLS) = True THEN MonMessage est un Email MonMessage..Expediteur = UserName Ajoute(MonMessage..Destinataire, Destinatario) MonMessage..Sujet = Assunto MonMessage..Message = Mensagem MonMessage..AccuséRéception = Vrai IF Anexo <> "" AND Length(Anexo) > 3 THEN EmailLoadAttachment(MonMessage,Anexo) END // Sends the email ok is boolean = EmailSendMessage(UserName, MonMessage) IF ok = False ToastDisplay(Error(),toastLong,vaMiddle,haCenter) ELSE ToastDisplay("Email enviado com sucesso!",toastLong,vaMiddle,haCenter) END EmailCloseSession(UserName) ELSE ToastDisplay(Error("Unable to establish connection", ErrorInfo(), ... "In case of time-out, check the parameters of the "+ ... """Firewall"" on the port used (587)"),toastLong,vaMiddle,haCenter) END [/code]30WEBDEVen_UShttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/50375-send-mail/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)