Dica API de envio de email

Segue exemplo um código para enviar emails pelo datasul

Código:

{utp/utapi019.i}

run utp/utapi019.p persistent set h-utapi019.
find first param-global no-lock no-error.

for each tt-envio2:
delete tt-envio2.
end.
for each tt-mensagem:
delete tt-mensagem.
end.
for each tt-erros:
    delete tt-erros.
end.
 
/* Gera Email */
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.exchange          = NO
       tt-envio2.remetente         = 'email de envio
       tt-envio2.destino           = 'destinatario'
       tt-envio2.copia             = 'email1@teste.com,email2@teste.com'
       tt-envio2.assunto           = "ASSUNTO"
       tt-envio2.arq-anexo         = "caminhoanexo/anexo.extensao".
 
create tt-mensagem.
assign tt-mensagem.seq-mensagem = 1
       tt-mensagem.mensagem = 'Teste'.
 
 
run pi-execute2 in h-utapi019 (input  table tt-envio2,
                               input  table tt-mensagem,
                               output table tt-erros).
/* Verifica Erros */
if return-value = "NOK" then do:
/*                 l-cnf = false. */
       for each tt-erros no-lock:
           message "Erro- " tt-erros.cod-erro
                            tt-erros.desc-erro view-as alert-box.
       end.
end.
 
delete procedure h-utapi019.

olá,

Cíntia estou utilizando tbm o envio email através do Blat, mas é mto lento, algo em torno de mais de 1 min! Será que há algo que possa customizar a rotina?

Identificamos o problema, era o Kaspersky que fazia validação no programa blat.exe verificando se é malicioso ou nao.

Bom dia pessoal.

Vocês sabem me dizer se consigo enviar uma cópia oculta utilizando a tt-envio2 ?

Olá.
Pela definição da tabela não tem a opção de envio de cópia oculta

Código:

define temp-table tt-envio2 NO-UNDO
    field versao-integracao   as integer format ">>9"
    field servidor            as char
    field porta               as integer init 0
    field exchange            as logical init no
    field destino             as char
    field copia               as char
    field remetente           as char
    field assunto             as char
    field mensagem            as char
    field arq-anexo           as char
    field importancia         as integer init 0
    field log-enviada         as logical
    field log-lida            as logical
    field acomp               as logical init yes   
    field formato             as char init "texto".