Duvida Envio de email

Não consegui falar com você no skype.

Deu certo anexar o arquivo?

Obrigado.

Funcionando 100%.
Abraço.

Bom dia pessoal,
Eu estou com problema na rotina que estou fazendo.

Problema: O Blat cria dois arquivos para enviar o e-mail, sendo que um deles fica acumulando o conteúdo do campo tt-mensagem.mensagem, com isso a segunda pessoa que recebe o e-mail recebe um único e-mail, mas com o corpo duplicado.
Como corrigir esse erro?

Ficou claro o problema?

/***********************************/
FOR EACH tt-email
WHERE tt-email.cod-emitente > 0 AND
tt-email.cod-emitente < 100:

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

CREATE tt-envio2.
ASSIGN tt-envio2.versao-integracao = 1
tt-envio2.servidor = "IP Servidor"
tt-envio2.porta = 587
tt-envio2.destino = tt-email.e-mail
tt-envio2.remetente = "Email de saida"
tt-envio2.assunto = "Novo Website"
tt-envio2.formato = "HTML"
tt-envio2.arq-anexo = "".

create tt-mensagem.
assign tt-mensagem.seq-mensagem = 1
tt-mensagem.mensagem = '<!DOCTYPE html>' +
'<html lang="pt-BR">' +
'<head>' +
'<title>Novo Website</title>' +
'<meta charset="UTF-8">' +
'<meta name="viewport" content="width=device-width, initial-scale=1.0">' +
'</head>' +
'<body>' +
'<div>' +
'<a href="Meu site"><img src="images/NovoWebsite.jpg"></a>' +
'</div>' +
'</body>' +
'</html>'.

run pi-execute2 in h-utapi019 (input table tt-envio2,
input table tt-mensagem,
output table tt-erros).

/* Se houver erro mostra em tela */
IF return-value = "NOK" then do:
for each tt-erros:
disp tt-erros with 1 column width 300.
end.
end.

delete procedure h-utapi019.

END.

Veja se isso pode lhe ajudar, tente limpar todos as tts para verificar se o erro persiste.

For Each tt-envio2:
Delete tt-envio2.
End.


For Each tt-mensagem:
Delete tt-mensagem.
End.

For Each tt-erros:
Delete tt-erros.
End.

Boa tarde Arcosta,
Cara que mancada a minha, esqueci de limpa a temp table.
Muito obrigado pela ajuda.
Abraço.

Att,
Leandro.

Opa, precisando ai é só chamar.

Abraços