EmailOpenMail - Windev Curso Email - 1
FOR EACH email - Windev Curso Email - 2
https://stg.webdev.info/publicationSt_WEB/FR/miseajourst.awp
http://www.wxinformatica.com/
http://www.matosinformatica.com.br/
VIDEO YOUTUBE EMAIL
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
fSaveText("\temp\email_status.txt",EDT_retorno)
Nenhum comentário:
Postar um comentário