Windev21 Aulas,Estudos e Desenvolvimento: WinDev - Curso - 171 - Componente - Email

Video 1/... - Criando Componente

Video 2/... - Criando Dados usuario

Video 3/.. Colocando Dados Destinatario

Video 4/... Colocando Tabela dos Emails dos Destinatarios

Video 5... Colocando Tabela nos Anexos

Video 6 ... Fazendo comandos Enviar Email

Video 7/... Gerando o Componente Email_matos

Video 8/... Importanto Compenten Email_matos Para Cobranca Bancaria

Video 9/... Mandando Informacoes da Cobranca Bancaria Para Componente Email_matos

Video 10/.. Ajustando Nome do Pdf Email Boleto

Blog - Video 11/... Email com Anexo / Array

Blog - Video 12/... Pegar Retorno do Banco

Nessa Aula vou mostrar como montar um componente Email para Servir para Varias Coisas,
tipo boleto / Nfe /Nfc-e

//Configuração Gmail
//EDT_Usuario="email_gmail@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="email_terra@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)
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)
END

IF n_email_sessao=True THEN
    _minha_mensagem is Email // est un Email
    _minha_mensagem..Expediteur = EDT_Usuario
    IF EDT_destinatario<>"" THEN
        Add(_minha_mensagem..Destinataire, EDT_destinatario)
    END
    FOR ALL ROW OF TABLE_email
        IF TABLE_email.COL_Email<>"" THEN
            Add(_minha_mensagem..Destinataire, TABLE_email.COL_Email)
        END
    END
    _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
    FOR ALL ROW OF TABLE_anexo
        IF TABLE_anexo.COL_Anexo<>"" THEN
            EmailLoadAttachment(_minha_mensagem,TABLE_anexo.COL_Anexo)
        END
    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)
EndProgram()

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

IF TABLE_DuplicatasParaRelatorio.COL_boleto_linha_digitavel="" THEN
    Info("esse nao é boleto")
ELSE
    s_diretorio is string=fCurrentDir()
    iDestination(iPDF,s_diretorio+"\boleto\boleto_numero.pdf")
    iPrintReport(RPT_boleto_cobranca_matos)
END

Open(WIN_Email)

Páginas

quarta-feira, 16 de dezembro de 2015

WinDev - Curso - 171 - Componente - Email - Criar

Nenhum comentário:

Postar um comentário