Assista ao Video Sobre Windev Email Gmail / terra
------------- Help do Que foi Usado -------------------------------------------------------------
EmailSettimeOut - http://doc.windev.com
HourGlass - http://doc.windev.com
EmailSetTimeOut - http://doc.windev.com
EmailStartSmtpSession - http://doc.windev.com
Functions for managing the emails - http://doc.windev.com
EmailLoadAttachment - http://doc.windev.com
EmailSendMessage - http://doc.windev.com
ToastDisplay - http://doc.windev.com
EmailCloseSession - http://doc.windev.com
------------------------------------------------------------------------------------------------------
The Email Structure
Webdev - Email
------------------------------------------------------------------------------------------------------
-------------------Fonte-----------------------------------------------------------------------------
//Configuração Gmail
//EDT_Usuario="amarildo.matos@gmail.com"
//EDT_senha="xxxx"
//EDT_servidor_smtp="smtp.gmail.com"
//EDT_porta=587
//COMBO_tls=1 // 1=false 2=Nenhuma opção
//Configuração Terra
//EDT_Usuario="matosi@terra.com.br"
//EDT_senha="xxxx"
//EDT_servidor_smtp="smtp.nho.terra.com.br"
//EDT_porta=587
//COMBO_tls=2 // 1=false 2=nenhuma opção
EmailSetTimeOut(30)
//http://doc.windev.com/?3032001&lang=en-US&productversion=xxA190056s
//Altera o valor do "time-out" para a conexão com os servidores SMTP, POP3 e IMAP mensagens.
//O valor do "time-out" é definido como 10 minutos por padrão. Este valor é devolvido pelo
// EmailGetTimeOut.
//Lembrete : O tempo limite é a quantidade máxima de tempo permitido enquanto espera por uma resposta
//do servidor de mensagens. Se o servidor não responder dentro desse tempo limite, a conexão falha.
HourGlass()
//http://doc.windev.com/?3071011&lang=en-US&productversion=xxA190056s
//Transforma o cursor do mouse em uma ampulheta (e vice-versa).
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)
END
IF n_email_sessao=True THEN
_minha_mensagem is Email // est un Email
_minha_mensagem..Expediteur = EDT_Usuario
Add(_minha_mensagem..Destinataire, EDT_destinatario) // Ajoute
_minha_mensagem..Sujet = EDT_assunto
_minha_mensagem..Message = EDT_mensagem
_minha_mensagem..AccuséRéception = Vrai
IF EDT_anexo <> "" AND Length(EDT_anexo) > 3 THEN
EmailLoadAttachment(_minha_mensagem,EDT_anexo)
END
// Manda a mensagem
IF EmailSendMessage(EDT_Usuario, _minha_mensagem) = False
ToastDisplay(Error(),toastLong,vaMiddle,haCenter)
ELSE
ToastDisplay("Email enviado com sucesso!",toastLong,vaMiddle,haCenter)
END
EmailCloseSession(EDT_Usuario)
// Fecha a Sessão
ELSE
ToastDisplay(Error("Não é possível estabelecer conexão // ", ErrorInfo(), ...
"Em caso de time-out, verificar os parâmetros da "+ ...
"""Firewall"" na porta usada (587)"),toastLong,vaMiddle,haCenter)
END
HourGlass(False)
-------------------Fonte-----------------------------------------------------------------------------
------------------- GMAIL NAO FUNCIONAVA ---------------------------------------------
Quando fui fazer teste meu gmail, nao funcionava, e foi descobrir, que na minha
configuração do Gmail, estava para nao aceitar servico de fora, ai desabilitei isso.
Somente descobriu isso, pois testei o gmail, de outro e funcionou.
------------------------------------------------------------------------------------------------------
http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/2-boas-vindas-forum-oficial-comunidade-brasileira-primeiro-exemplo/read.awp
Nenhum comentário:
Postar um comentário