PC SOFT
DEPOT EN LIGNE
POUR WINDEVWEBDEV ET WINDEV MOBILE

New Send Email Example
Publié par Boller
dans la catégorie Outils
Nouveautés



Description
New Send Email Example
Illustrations, copies d'écran
none
none
Avis des utilisateurs
(Pour noter la ressource, cliquez sur Ecrire un avis)
Boller
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"
Boller
http://wxmagazine.pcscloud.net/WSGMAIL_WEB/awws/index.htm

https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/2908-gmail-webservice-envio-email-para-comunidade-windev-webdev/read.awp

https://www.youtube.com/watch?v=umSrFosH3RI