[RESOLVIDO] enviamail.p

Cara, tu não pode usar a utapi019, com ela você seta usuário na EMS, e o e-mail pode ser enviado por qualquer usuário...

opa, cara como funciona essa utapi019?
não tenho ela nos fontes

Ve esse exemplo aqui (tu tem EMS Datasul, certo?)

Código:

{utp/utapi019.i}

RUN utp/utapi019.p PERSISTENT SET h-utapi019.

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

CREATE tt-envio2.
ASSIGN tt-envio2.versao-integracao = 1
       tt-envio2.assunto     = "Teste de Envio de E-mail"
       tt-envio2.formato     = "HTML"
       tt-envio2.servidor    = param-global.serv-mail
       tt-envio2.porta       = param-global.porta
       tt-envio2.remetente   = "teste@teste.com.br"
       tt-envio2.destino     = "af.dums@gmail.com"
       tt-envio2.arq-anexo   = "c:\temp\teste.txt".

CREATE tt-mensagem.
ASSIGN tt-mensagem.seq-mensagem = 1
       tt-mensagem.mensagem     = "Conteudo escrito do e-mail".
                                                   
RUN pi-execute2 in h-utapi019 (input  table tt-envio2,
                               input  table tt-mensagem,
                               output table tt-erros).
    
if  return-value = "NOK" then do:
    for each tt-erros:
        disp tt-erros with 1 column width 300.
    end.                               
end.
delete procedure h-utapi019.

hmm blz Anderson, vou realizar alguns testes e depois posto aqui se funcionou

obrigado