EmailConfigure(emailParameterMode,1) // ESSA CONFIGURACAO ACIMA ARRUMA ERRO CERTIFICACAO EmailSetTimeOut(30) HourGlass() n_email_sessao is boolean=EmailStartSMTPSession(EDT_USUARIO,EDT_SENHA,EDT_SERVIDOR_SMTP,EDT_porta,False,emailOptionSecuredTLS) IF n_email_sessao=True THEN _minha_mensagem is an Email // est un Email _minha_mensagem..Sender=EDT_EmailSender Add(_minha_mensagem..Recipient, EDT_destinatario) _minha_mensagem..Subject = EDT_ASSUNTO _minha_mensagem..Message = EDT_MENSAGEM _minha_mensagem..SenderAddress = EDT_EmailSender _minha_mensagem..ReturnReceipt = True EmailLoadAttachment(_minha_mensagem,EDT_anexo) IF EmailSendMessage(EDT_USUARIO, _minha_mensagem) = False THEN Info("Erro Mandar Mesnagem:"+CR+ErrorInfo()) END EmailCloseSession(EDT_USUARIO) END HourGlass(False) // blog com video e exemplo // http://windevdesenvolvimento.blogspot.com.br/2017/10/aula-1277-email-3-erro-certificacao.html // https://www.youtube.com/watch?v=LxqfFegkGqo
|