Duvida Envio de email

Discussão em 'Progress 4GL' iniciado por lm1979, Janeiro 27, 2015.

  1. arcosta

    arcosta Membro Participativo

    Esse é um código que criamos ja mesclado com progress para enviar e-mails.
    Código:
                  CREATE tt-envio2.
                    ASSIGN tt-envio2.versao-integracao = 1
                            tt-envio2.servidor          = param-global.serv-mail
                            tt-envio2.porta             = param-global.porta-mail
                            tt-envio2.destino           = w-dem.t-e-mail
                            tt-envio2.remetente         = email-remet
                            tt-envio2.assunto           = ""
                            tt-envio2.formato           = "HTML".
                   
                    create tt-paramEmail.
                    assign tt-paramEmail.caminhoEmail = 1.
                   
                    create tt-mensagem.
                    assign tt-mensagem.seq-mensagem = 1
                           tt-mensagem.mensagem     = '<!DOCTYPE html>'+
                                                      '<html>'+
                                                      '    <head>'+
                                                      '        <meta charset="UTF-8">'+
                                                      '        <meta name="viewport" content="width=device-width, initial-scale=1.0">'+
                                                      '    </head>'+
                                                      '    <body>'+
                                                      '        <div>'+
                                                      '            <p>Prezado Cliente,</p>'+
                                                      '            <p>Nosso controle de recebimento acusa um boleto vencido, motivo pelo qual pedimos </br>'+
                                                      '                a V. Sa. que programe a regularização do título.'+
                                                      '                Mais informações, favor falar com Verônica pelo  Telefone: <b>35 3473-3529</b> ou </br>'+
                                                      '                por e-mail: <a href="mailto:veronica.toledo@cooperrita.com.br.">veronica.toledo@cooperrita.com.br.</a></p>'+
                                                      '            <p>Tendo em vista que o envio deste aviso é automático, caso já tenha efetuado  </br> '+
                                                      '                o pagamento solicitamos que desconsidere este e-mail.</p>'+
                                                      '            <p>Desde já agradecemos a compreensão e parceria!</p>'+
                                                      '            <p>'+
                                                      '                <b><u>Dados da cobrança:</u></b></br>'+
                                                      '                <b>Título: </b>'+
                                                      tit_acr.cod_tit_acr +
                                                      '</br>'+
                                                      '                <b>Valor: R$</b>'+
                                                      string(Decimal(t-valor),"->>>,>>9.99")   +
                                                      '</br>'+
                                                      '                <b>Vencimento: </b>'+
                                                      String(w-dem.t-dat-venc) +
                                                      '</br>' +
                                                      '            </p>'+
                                                      '            <img src="http://cooperrita.com.br/cooper.jpg"/>'+
                                                      '        </div>'+
                                                      '    </body>'+
                                                      '</html>'.
    
                   
                                                       
                    run pi-execute3 in h-utapi019 (input  table tt-envio2,
                                                   input  table tt-mensagem,
                                                   input  table tt-paramEmail,
                                                   output table tt-erros).  
    
    reissobr e lm1979 curtiram isso.
  2. lm1979

    lm1979 Membro Participativo

    Com esse exemplo eu consigo enviar arquivo anexo?
    Tente add você no skype, mas aparece um monte de usuário MTI.
  3. arcosta

    arcosta Membro Participativo

    me manda o seu ai, eu tento adicionar por aqui.
  4. lm1979

    lm1979 Membro Participativo

    leandro.marcelino
  5. lm1979

    lm1979 Membro Participativo

    Desculpa
    o usuário é = live:leandro.marcelino_1
  6. lm1979

    lm1979 Membro Participativo

    Boa tarde,
    Eu alterei o código que você enviou e está funcionando perfeitamente.
    Muito obrigado pela ajuda.

    Abraço.

    Att,
    Leandro.
    arcosta curtiu isso.

Compartilhe esta Página