// NA SAIDA DO EDT EMAIL VOU DIGITAR O CODIGO - EXIT FROM EDT_EMAIL
EmailCheckAddress(EDT_Email,emailValidateSyntax)
SWITCH EmailCheckAddress(EDT_Email) CASE emailAddressValid // Endereço válido CASE emailAddressIncorrectSyntax Info("A sintaxe do endereço está incorreta") CASE emailAddressRefused Info("O endereço foi recusado pelo servidor de e-mail."+CR+ErrorInfo()) CASE emailAddressError Info("Ocorreu um erro durante a checagem "+CR+ErrorInfo()) OTHER CASE Info("Caso indefinido")
END
Message("Enviando Email.....")
EmailConfigure(emailParameterMode,1)
EmailSetTimeOut(30)
HourGlass()
n_email_sessao is boolean
SWITCH COMBO_tls CASE 1 n_email_sessao=EmailStartSMTPSession(EDT_USUARIO,EDT_SENHA,EDT_SERVIDOR_SMTP,EDT_porta,False,emailOptionSecuredTLS) CASE 2 n_email_sessao=EmailStartSMTPSession(EDT_USUARIO,EDT_SENHA,EDT_SERVIDOR_SMTP,EDT_porta) CASE 3 n_email_sessao=EmailStartSMTPSession(EDT_USUARIO,EDT_SENHA,EDT_SERVIDOR_SMTP,EDT_porta,False,optionSSL) CASE 4 n_email_sessao=EmailStartSMTPSession(EDT_USUARIO,EDT_SENHA,EDT_SERVIDOR_SMTP,EDT_porta,True,emailOptionSecuredTLS) CASE 5 n_email_sessao=EmailStartSMTPSession(EDT_USUARIO,EDT_SENHA,EDT_SERVIDOR_SMTP,EDT_porta,True,optionSSL) CASE 6 n_email_sessao=EmailStartSMTPSession(EDT_USUARIO,EDT_SENHA,EDT_SERVIDOR_SMTP,EDT_porta,True) CASE 7 n_email_sessao=EmailStartSMTPSession(EDT_USUARIO,EDT_SENHA,EDT_SERVIDOR_SMTP,EDT_porta,False) CASE 8 n_email_sessao=EmailStartSMTPSession(EDT_USUARIO,EDT_SENHA,EDT_SERVIDOR_SMTP,EDT_porta,True,emailOptionDefault) CASE 9 n_email_sessao=EmailStartSMTPSession(EDT_USUARIO,EDT_SENHA,EDT_SERVIDOR_SMTP,EDT_porta,False,emailOptionDefault)
END
s_erro_string is string=""
IF n_email_sessao=True THEN _minha_mensagem is an Email // est un Email IF EDT_EmailSender <> "" THEN _minha_mensagem..Sender=EDT_EmailSender ELSE _minha_mensagem..Sender = EDT_USUARIO END IF EDT_destinatario<>"" THEN Add(_minha_mensagem..Recipient, EDT_destinatario) END _minha_mensagem..Subject = EDT_ASSUNTO _minha_mensagem..Message = EDT_MENSAGEM sEmailParaRetorno is string = EDT_emailResposta IF sEmailParaRetorno = "" _minha_mensagem..SenderAddress = EDT_EmailSender END IF sEmailParaRetorno <> "" AND EmailCheckAddress(sEmailParaRetorno) = emailAddressValid THEN _minha_mensagem..SenderAddress = sEmailParaRetorno ELSE IF sEmailParaRetorno="" THEN ELSE EDT_retorno+="ERRO NO EMAILPARARETORNO DIFERENTE BRANCO" END END _minha_mensagem..ReturnReceipt = True IF EDT_anexo <> "" AND Length(EDT_anexo) > 3 THEN EmailLoadAttachment(_minha_mensagem,EDT_anexo) END IF EmailSendMessage(EDT_USUARIO, _minha_mensagem) = False THEN Info(CR+"COMBO_tls["+COMBO_tls+"]"+CR+"EDT_Usuario["+EDT_USUARIO+"]"+CR+"EDT_senha["+EDT_SENHA+"]"+CR+"EDT_servidor_smtp["+EDT_SERVIDOR_SMTP+"]"+CR+"EDT_porta["+EDT_porta+"]"+CR+"ErrorInfo()a=["+ErrorInfo()+"]") s_erro_string="Erro Mandar Mesnagem:"+CR+ErrorInfo() ELSE InfoWithTimeout(300,"Email enviado com sucesso!") END EmailCloseSession(EDT_USUARIO)
ELSE Info(CR+"COMBO_tls["+COMBO_tls+"]"+CR+"EDT_Usuario["+EDT_USUARIO+"]"+CR+"EDT_senha["+EDT_SENHA+"]"+CR+"EDT_servidor_smtp["+EDT_SERVIDOR_SMTP+"]"+CR+"EDT_porta["+EDT_porta+"]"+CR+"ErrorInfo()b=["+ErrorInfo()+"]") s_erro_string="Erro Configuracao"+CR+ErrorInfo()
END
HourGlass(False)
EDT_retorno=""
EDT_retorno+="Tls:"+COMBO_tls+CR
EDT_retorno+="Email:"+EDT_EmailSender+CR
EDT_retorno+="Usuario:"+EDT_USUARIO+CR
EDT_retorno+="Smpt:"+EDT_SERVIDOR_SMTP+CR
EDT_retorno+="Porta:"+EDT_porta+CR
EDT_retorno+="Destinatario:"+EDT_destinatario+CR
EDT_retorno+="Assunto:"+EDT_ASSUNTO+CR
EDT_retorno+="Mensagem:"+EDT_MENSAGEM+CR
EDT_retorno+="Email Resposta:"+EDT_emailResposta+CR
EDT_retorno+="ERRO:"+s_erro_string+CR
s_REPOSTA is string=""
s_REPOSTA=Dialog("Deseja fazer cópia de segurança?",["SIM","NAO","VOLTAR"])
SWITCH s_REPOSTA CASE 1 Open(WIN_Backup_backup_Dados) HCloseConnection(Matos_hyperfil_server) EndProgram() CASE 2 HCloseConnection(Matos_hyperfil_server) EndProgram() CASE 3 ReturnToCapture(WIN_MENU) OTHER CASE
END
