1. interfac/mail/blat.

1. exe na estrutura de diretórios do produto. Caso não seja encontrado, o e-mail não será enviado

1. . O arquivo

1. blat.

1. exe é distribuído gratuitamente junto às mídias/pacotes dos produtos Datasul.
2. Só é possível

1. configurar servidor Exchange Outlook 2000 ou posterior.
2. Não é possível enviar e-mail no formato HTML quando existir arquivo anexo no UNIX.

1. Campo utilizado para a funcionalidade Responder Para
2. Par envio de anexos via Datasul Mail Service deve ser utilizada a tabela ttAttachment.

A include utapi019.i2 contempla a Definição da TempTable tt-paramEmail2 como forma de evolução da api utapi019, de modo a seguir o Guia TOTVS de Implementação de APIs.

(* Estes ) Estes dois campos só funcionam com o tipo de envio de e-mail DatasulMailService, os Datasul Mail Service. Os mesmo foram incluídos na release 12.1.23.

{utp/utapi019.i2}

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

CREATE tt-envio2.
ASSIGN tt-envio2.versao-integracao = 1
       tt-envio2.destino   = "[email protected]"	
	   tt-envio2.remetente = "[email protected]"
	   tt-envio2.assunto   = "teste envio DATASUL MAIL SERVICE".

CREATE ttAttachment.
ASSIGN ttAttachment.fileName    = "
	teste.txt"
       ttAttachment.fileType     tt-envio2.arq-anexo == "text/plain".

// COPIANDO CONTEÚDO DE ARQUIVO DO COMPUTADOR PARA O CAMPO BLOB
COPY-LOB FILE "C:\teste.txt" TO ttAttachment.fileContent.   //conteúdo do arquivo em formato binário


CREATE tt-mensagem.
ASSIGN tt-mensagem.seq-mensagem = 1
	   tt-mensagem.mensagem = "Mensagem 1".

CREATE tt-mensagem.
ASSIGN tt-mensagem.seq-mensagem = 2
tt-mensagem.mensagem = "Mensagem 2".

CREATE tt-paramEmail2.
ASSIGN tt-paramEmail2.caminhoEmail = 5.

RUN pi-execute4 in h-utapi019(INPUT  TABLE tt-envio2,
                              INPUT  TABLE tt-mensagem,
							  INPUT  TABLE tt-paramEmail2,
							  INPUT  TABLE ttAttachment,
							  OUTPUT TABLE tt-erros).

IF RETURN-VALUE = "NOK" THEN DO:
    FOR EACH tt-erros:
        DISP
			tt-erros WITH 1 COLUMN WIDTH 300.
    END.
END.
ELSE
    MESSAGE "OK" VIEW-AS ALERT-BOX.

DELETE PROCEDURE h-utapi019.

influenciarão no funcionamento.

4)     Não é necessário popular a temp-table tt-paramEmail2 com dados, porém é obrigatório sua definição.

{utp/utapi019.i2}

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

CREATE tt-envio2.
ASSIGN tt-envio2.versao-integracao = 1
	   tt-envio2.servidor          = "servidor"
       tt-envio2.porta             = 999
	   tt-envio2.exchange          = FALSE
	   tt-envio2.destino           = "destino@dominio"
	   tt-envio2.remetente         = "remetente@dominio"
	   tt-envio2.assunto           = "teste envio BLAT"
	   tt-envio2.arq-anexo         = "XXXXX".

CREATE tt-mensagem.
ASSIGN tt-mensagem.seq-mensagem = 1
	   tt-mensagem.mensagem = "Mensagem 1".

CREATE tt-mensagem.
ASSIGN tt-mensagem.seq-mensagem = 2
	   tt-mensagem.mensagem = "Mensagem 2".

CREATE tt-paramEmail2.
ASSIGN tt-paramEmail2.caminhoEmail = 1.

RUN pi-execute4 in h-utapi019(INPUT  TABLE tt-envio2,
							  INPUT  TABLE tt-mensagem,
							  INPUT  TABLE tt-paramEmail2,
							  INPUT  TABLE ttAttachment,
							  OUTPUT TABLE tt-erros).

IF RETURN-VALUE = "NOK" THEN DO:
    FOR EACH tt-erros:
        DISP tt-erros WITH 1 COLUMN WIDTH 300.
    END.
END.
ELSE
    MESSAGE "OK" VIEW-AS ALERT-BOX.

DELETE PROCEDURE h-utapi019.

     Os valores para os campos mailUser, mailPass, TLS, SSL, debug, ativaRemetPadrao e codRemetPadrao podem ser desconsiderados na tabela tt-paramEmail2 porque não

influenciarão no funcionamento.

3)

     Não é necessário popular a temp-table tt-paramEmail2 com dados, porém é obrigatório sua definição.

{utp/utapi019.i2}

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


CREATE tt-envio2.
ASSIGN tt-envio2.versao-integracao = 1
	   tt-envio2.destino           = "destino@dominio"
	   tt-envio2.assunto           = "teste envio EXCHANGE"
	   tt-envio2.arq-anexo         = "XXXXX"
	   tt-envio2.importancia       = 1
	   tt-envio2.log-enviada       = TRUE
	   tt-envio2.log-lida          = TRUE.

CREATE tt-mensagem.
ASSIGN tt-mensagem.seq-mensagem = 1
	   tt-mensagem.mensagem = "Mensagem 1".

CREATE tt-mensagem.
ASSIGN tt-mensagem.seq-mensagem = 2
	   tt-mensagem.mensagem = "Mensagem 2".


CREATE tt-paramEmail2.
ASSIGN tt-paramEmail2.caminhoEmail = 2.
 
RUN pi-execute4 in h-utapi019(INPUT  TABLE tt-envio2,
                              INPUT  TABLE tt-mensagem,
                              INPUT  TABLE tt-paramEmail2,
                              INPUT  TABLE ttAttachment,
                              OUTPUT TABLE tt-erros).

IF RETURN-VALUE = "NOK" THEN DO:
    FOR EACH tt-erros:
        DISP tt-erros WITH 1 COLUMN WIDTH 300.
    END.
END.
ELSE
    MESSAGE "OK" VIEW-AS ALERT-BOX.


DELETE PROCEDURE h-utapi019.

3)     Não é necessário popular a temp-table tt-paramEmail2 com dados, porém é obrigatório sua definição.

{include/i-epc200.i1} /* definição da temp-table tt-epc */

DEFINE INPUT        PARAMETER p-ind-event AS CHARACTER NO-UNDO.
DEFINE INPUT-OUTPUT PARAMETER TABLE       FOR tt-epc.

DEFINE VARIABLE cComandoEmail AS CHARACTER NO-UNDO.

IF p-ind-event = "eMailBlat" THEN DO:
    FIND FIRST tt-epc
        WHERE tt-epc.cod-event     = "eMailBlat":U
        AND   tt-epc.cod-parameter = "CommandEmail":U
        EXCLUSIVE-LOCK NO-ERROR.
    IF AVAILABLE tt-epc THEN 
        ASSIGN cComandoEmail = tt-epc.val-parameter.
    
    ASSIGN cComandoEmail = cComandoEmail + " -hostname ~"tech-valdir~"":U.

    IF AVAILABLE tt-epc THEN 
        ASSIGN tt-epc.val-parameter = cComandoEmail.
END.