PC SOFT
ONLINE REPOSITORY
FOR WINDEVWEBDEV AND WINDEV MOBILE

Home |  | Sign in | English US
New Send Email Example
Published by Boller
in the category Tools
New features



Description
New Send Email Example
Illustrations, screen shots
none
none
User reviews
(To evaluate this resource, click 'Write a review')
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
ABOUT
RATING:
51(1)
DOWNLOADS:
830
PUBLISHED:
March 06, 2018
VERSION:
22
CONCERNS:
WINDEV
Minimum version: 22
SIZE:
5.6 MB