Windev21 Aulas,Estudos e Desenvolvimento: Windev Email - Gmail

Assista ao Video Sobre Windev Email Gmail / terra

-------------------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

Páginas

quinta-feira, 13 de agosto de 2015

Windev Email - Gmail - Terra

Assista ao Video Sobre Windev Email Gmail / terra

Nenhum comentário:

Postar um comentário