Ok is boolean = False
MINHA_SESSAO is emailSMTPSession
MINHA_SESSAO..ServerAddress = "smtp.pva.terra.com.br"
MINHA_SESSAO..Name = "nfe@maylink.com.br"
MINHA_SESSAO..Password = "xxx"
MINHA_SESSAO..Port = "587"
IF EmailStartSession(MINHA_SESSAO)=False THEN
ToastDisplay("smtp com erro",toastLong,vaMiddle,haCenter,ErrorInfo())
RETURN
END
//EMAIL
EMAIL_DADOS is Email
EMAIL_DADOS..Sender = "nfe@maylink.com.br" //ok
EMAIL_DADOS..Subject = EDT_EmailAssunto //ok
EMAIL_DADOS..HTML = EDT_emailMensagem //ok
EMAIL_DADOS..Message = HTMLToText(EDT_emailMensagem)
//Anexa destinatários (Token)
FOR EACH STRING semail_Individual IN EDT_emailDestinatario SEPARATED BY CR
Add(EMAIL_DADOS..Recipient, semail_Individual)
Info(EDT_emailDestinatario)
END
//Seleciona Arquivos da NFe
ArquivoPDF is string = fDataDir() + "\NFe\" + ArrEmpresa.sInscEst +"\arquivos\PDF\51200100003681303126559200000000241182937403.pdf"
ArquivoXML is string = "D:\ProdutorRural-DEV\Exe\nfe\134896203\Arquivos\procNFe\202203\51220300003681303126559200000003711182937400-procNFe.xml"
Ok = EmailLoadAttachment(EMAIL_DADOS,ArquivoPDF)
IF Ok = False THEN
Info("ARQUIVO PDF NÃO ENCONTRADO" )
RETURN
END
Ok = EmailLoadAttachment(EMAIL_DADOS,ArquivoXML)
IF Ok = False THEN
Info("ARQUIVO XML NÃO ENCONTRADO" )
RETURN
END
// ENVIAR EMAIL
IF EmailSendMessage(MINHA_SESSAO,EMAIL_DADOS)=False THEN
NextTitle("ATENÇÃO")
Warning("ERRO MENSAGEM",ErrorInfo(errFullDetails))
EmailCloseSession(MINHA_SESSAO)
RETURN
ELSE
Info("e-mail ENVIADO COM SUCESSO")
EmailCloseSession(MINHA_SESSAO)
RETURN
END
ArquivoPDF is string = fDataDir() + "\NFe\" + ArrEmpresa.sInscEst +"\arquivos\PDF\"+F01NFeNota.f01ChaveNF+".pdf"
ArquivoXML is string = fDataDir() + "\NFe\" + ArrEmpresa.sInscEst +"\arquivos\procNFe\"+Left(F01NFeNota.f01NFeDHProtocolo,6)+"\"+ F01NFeNota.f01ChaveNF+"-procNFe.XML"