1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br
Cookies Anuncie aqui Patrocinador Anuncios

[RESOLVIDO] Como façao pra enviur e-mails para SMTP com segurança??

Discussão em 'EMS , HCM e Totvs 11' iniciado por Rodrigo Rossetto, Agosto 17, 2011.

Status do Tópico:
Não esta aberto para novas mensagens.
Página 1 de 2
  1. Rodrigo Rossetto

    Rodrigo Rossetto Membro Participativo

    Bom dia Pessoal,

    Gostaria de saber que meio posso usar para enviar e-mails SMTP com restrição de login.


    [],
    Rodrigo
    Rodrigo Rossetto, Agosto 17, 2011
    #1
  2. jdchaves

    jdchaves Membro Participativo

    segue esta pi que envia email, setou usando variaveis que pego o usuario logado e o servidor de email..

    Código:
    PROCEDURE pi-envia-mail.

    FIND FIRST param-global NO-LOCK NO-ERROR.

    create tt-envio2.
    assign tt-envio2.versao-integracao = 1
           tt-envio2.exchange          = YES
           tt-envio2.remetente         = c-mail-usu
           tt-envio2.destino           = c-emails
           tt-envio2.servidor          = param-global.serv-mail
           tt-envio2.porta             = param-global.porta-mail
           tt-envio2.assunto           = "Verificar Roteiro de Inspeção nº " + STRING(ficha-cq.nr-ficha)
           tt-envio2.formato           = "HTML"
/*            tt-envio2.arq-anexo         = "c:\temp\teste.txt" */
           tt-envio2.mensagem          = '<P>' + "Nota fiscal abaixo foi desatualizada no EMS. Verificar roteiro de inspeção vinculado a nota fiscal." + '<BR\>' + '</P>'
                                         + '<UL>'                                                                  
                                         + '<LI>' + "Roteiro     " + '<strong>' + STRING(ficha-cq.nr-ficha)     + '</strong>' + '<BR\>' + '</LI>'
                                         + '<LI>' + "Documento   " + '<strong>' + STRING(ficha-cq.nro-docto)    + '</strong>' + '<BR\>' + '</LI>'
                                         + '<LI>' + "Série       " + '<strong>' + STRING(ficha-cq.serie-docto)  + '</strong>' + '<BR\>' + '</LI>'
                                         + '<LI>' + "Naturesa    " + '<strong>' + STRING(ficha-cq.nat-operacao) + '</strong>' + '<BR\>' + '</LI>'
                                         + '<LI>' + "Emitente    " + '<strong>' + STRING(ficha-cq.cod-emitente) + " - " + STRING(emitente.nome-abrev) + '</strong>' + '</LI>'
                                         + '</UL>'.

    
    run utp/utapi019.p persistent set h-utapi019.
    run pi-execute in h-utapi019 (input  table tt-envio2,
                                   output table tt-erros).    

/*     if return-value = "NOK" then do:                                                             */
/*         find first tt-erros no-error.                                                            */
/*         run utp/ut-msgs.p ("show",                                                               */
/*                            27979,                                                                */
/*                            "Não foi possível enviar e-mail!~~Foi encontrado o seguinte erro: " + */
/*                            chr(10) + if avail tt-erros then tt-erros.desc-erro ELSE "").         */
/*     end.                                                                                         */
/*     else                                                                                         */
/*         run utp/ut-msgs.p ("show",                                                               */
/*                            6474,                                                                 */
/*                            "").                                                                  */
    
    FOR EACH tt-erros:
        DELETE tt-erros.
    END.

    delete procedure h-utapi019.
    return return-value.        

END PROCEDURE.

    @x_jeferson
    facebook/jeferson
    jchaves@szsolucoes.com.br
    jdchaves@live.com
    skype: jeferson.de.chaves
    jdchaves, Agosto 17, 2011
    #2
    pizzaia curtiu isso.
  3. Rodrigo Rossetto

    Rodrigo Rossetto Membro Participativo

    Obrigado pelo contato Jeferson...

    Neste exemplo é um exchange, utiliza o outlook pra enviar, mas o ambiente que tenho não possui esta ferramenta.
    O que preciso é enviar diretamente via servidor, mas existe uma autenticação de usuário e senha.
    Não sei como utilizar essa API para realizar essa atividade. Se existe outra maneira também.
    Rodrigo Rossetto, Agosto 17, 2011
    #3
  4. eduardo.leite

    eduardo.leite Equipe de Suporte Moderador Equipe de Suporte

    Rodrigo,

    Primeiramente, a sua rotina é executada a partir do EMS2 ou de rotinas especifica que tenha as rotinas do EMS2 no Propath? Você irá usar o BLAT para enviar e-mail?

    Se sim, existe a API utpapi019 que envia e-mail, você pode cadastrar uma UPC nesta rotina que recebe o USUARIO/SENHA de autenticação.

    Segue um exemplo de UPC nesta rotina para informar o usuario/senha.

    Código:
    
{utp/ut-glob.i}
{include/i-epc200.i utapi019}

def input param  p-ind-event as char no-undo.
def input-output param table for tt-epc.

if p-ind-event = "eMailBlat" then do:

    find first tt-epc
         where tt-epc.cod-event = "eMailBlat"
           and tt-epc.cod-param = "CommandEmail" share-lock no-error.
           
    if avail tt-epc then do:
    
        assign tt-epc.val-param = tt-epc.val-param + ' -u <e-mail do usuario> -pw <senha do usuario>'.
        
    end.
         
end.
    eduardo.leite, Agosto 18, 2011
    #4
    pizzaia curtiu isso.
  5. Rodrigo Rossetto

    Rodrigo Rossetto Membro Participativo

    Vou testar Eduardo, obrigadão pela dica.
    Rodrigo Rossetto, Agosto 19, 2011
    #5
  6. rohis

    rohis Membro Ativo

    Olá pessoal!

    Eu fiz de acordo com o post do Eduardo e deu certo.
    Versão: Datasul 11.5.0.

    Eduardo, muito obrigada!
    rohis, Fevereiro 28, 2012
    #6
Página 1 de 2
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página