Perguntas enviar por email
- lalberto
-
- Desconectado
- Administrador
-
- Postagens: 3676
- Obrigados Recebidos: 6
no caso do gmail tenta usar smtp.gmail.com:587
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.
- Mjuniorfacic
- Desconectado
- Membro Especialista
-
- Postagens: 119
- Obrigados Recebidos: 0
Luiz Alberto escreveu: 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 consigo neste momento ao inves de JPG gerar PDF estou utilizando o TMSPrinter
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
- Postagens: 3676
- Obrigados Recebidos: 6
segue um exemplo aqui:
#Include "PROTHEUS.CH"
#Include "RPTDEF.CH"
#INCLUDE "TBICONN.CH"
User Function exe33()
Local oPrinter
oPrinter := FWMSPrinter():New('nomearquivo',6,.F.,,.T.,,,,,.F.)
//oPrinter:Setup() monta tela para salvar pdf
oPrinter:cPathPDF :="C:\TEMP\" // caminho onde vai ser salvo o pdf
oPrinter:Say(10,0,"Teste para teste") // conteudo
oPrinter:EndPage() // fim do arquivo
oPrinter:Preview() // depois de salvar abre o arquivo na tela
Return
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.
- Mjuniorfacic
- Desconectado
- Membro Especialista
-
- Postagens: 119
- Obrigados Recebidos: 0
cCaminho := 'C:\SPOOL\'
cFile := 'Ped_'+_cNumPed
oPrint := FwMSPrinter():New( cFile, IMP_PDF , .F. , cCaminho, .T., , , , , .F., ,.F. )
oPrint:cPathPDF := cCaminho
cArquivo := AllTrim('C:\SPOOL\'+'Ped_'+_cNumPed+".pdf")
Por favor Acessar ou Registrar para participar da conversa.
- Mjuniorfacic
- Desconectado
- Membro Especialista
-
- Postagens: 119
- Obrigados Recebidos: 0
If lRet
SEND MAIL FROM cFrom ;
TO cEmailTo;
SUBJECT cAssunto;
BODY cMensagem;
ATTACHMENT cAnexos ;
RESULT lResult
Este result nao precisa de include especifica?
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
- Postagens: 3676
- Obrigados Recebidos: 6
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.