× Linguagem de Programação ADVPL

Perguntas enviar por email

Mais
10 anos 9 meses atrás #14794 por aarezende
enviar por email foi criado por aarezende
Boa tarde a todos,

tenho um relatorio pronto feito em OPRINT, tem como eu mandar ele por email ?

algum teria um exemplo ?

abraços

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 9 meses atrás #14796 por lalberto
Respondido por lalberto no tópico enviar por email
oPrn:SaveAllAsJPEG('\SYSTEM\Ped_'+_cNumPed,1400,1800,200)
cArquivo := AllTrim('\SYSTEM\Ped_'+_cNumPed+"_pag1.jpg")

aAnexos := {cArquivo}


cAccount := RTrim(SuperGetMV("MV_RELACNT"))
cDe := RTrim(SuperGetMV("MV_RELFROM"))
cPara := _cPara
cPassword := Rtrim(SuperGetMv("MV_RELAPSW"))
cServer := Rtrim(SuperGetMv("MV_RELSERV"))
cMensagem := 'Encaminhamos nosso Pedido de Venda abaixo, conforme sua cotação. '+CRLF+CRLF +;
'Ficamos no aguardo da confirmação de recebimento, bem como, aceite do mesmo.'+ CRLF+CRLF+;
'Qualquer dúvida, por favor, entrar em contato.'+ CRLF+CRLF+;
'Atenciosamente,'+CRLF+CRLF+;
CRLF+cDe+CRLF+CRLF+'Departamento de Vendas'+CRLF
If File(cArquivo)
EnvMail(cAccount ,cPassword ,cServer ,cDe,;
cPara,cMensagem, aAnexos)
Endif

Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 9 meses atrás - 10 anos 9 meses atrás #14797 por aarezende
Respondido por aarezende no tópico enviar por email
Vlw Luiz, sempre eficaz...com essa beca ainda parece o Hitman...fatal !!!


so um detalhe pode ser em PDF inves de JPG mudo a clausula de JPG ?

abs...
Ultima edição: 10 anos 9 meses atrás por aarezende.

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 9 meses atrás #14800 por lalberto
Respondido por lalberto no tópico enviar por email
ahahahahhha hitman foi foda :woohoo: :woohoo:

Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 9 meses atrás #14802 por aarezende
Respondido por aarezende no tópico enviar por email
Luiz, um detalhe coloco isso antes do cperg ?

fiquei na duvida...

abs

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 9 meses atrás #14803 por lalberto
Respondido por lalberto no tópico enviar por email
Coloca no Final

oPrn:Preview()
oPrn:SaveAllAsJPEG('ArqImg',1400,1800,200)
oPrn:End()

Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.114 segundos
Joomla templates by a4joomla