×
Linguagem de Programação ADVPL
Perguntas enviar por email
- aarezende
- Autor do Tópico
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 64
- Obrigados Recebidos: 0
11 anos 5 meses atrás #14810
por aarezende
Respondido por aarezende no tópico enviar por email
Luiz coloquei mas nao gera , o arquivo, veja ..o alert pega a variavel mas nao manda e nem gera nada...
oPrinter:EndPage()
oPrinter:Preview()
oPrinter: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 := 'Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.'
cPassword := Rtrim(SuperGetMv("MV_RELAPSW"))
cServer := Rtrim(SuperGetMv("MV_RELSERV"))
cMensagem := 'Segue nosso pedido de venda '+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
Alert(cArquivo)
If File(cArquivo)
EnvMail(cAccount ,cPassword ,cServer ,cDe,;
cPara,cMensagem, aAnexos)
Endif
FreeObj(oPrinter)
oPrinter := Nil
oPrinter:EndPage()
oPrinter:Preview()
oPrinter: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 := 'Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.'
cPassword := Rtrim(SuperGetMv("MV_RELAPSW"))
cServer := Rtrim(SuperGetMv("MV_RELSERV"))
cMensagem := 'Segue nosso pedido de venda '+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
Alert(cArquivo)
If File(cArquivo)
EnvMail(cAccount ,cPassword ,cServer ,cDe,;
cPara,cMensagem, aAnexos)
Endif
FreeObj(oPrinter)
oPrinter := Nil
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 5 meses atrás #14812
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico enviar por email
Oh meu brother, a função envmail não é padrão, eu só mandei um exemplo.
Veja na sua pasta system se gerou o arquivo de imagem.
Veja na sua pasta system se gerou o arquivo de imagem.
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.
- rony.alves
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 1
- Obrigados Recebidos: 0
11 anos 5 meses atrás #14813
por rony.alves
Respondido por rony.alves no tópico enviar por email
Boa tarde,
Estou tentando fazer com que envie o e-mail pelo sistema, mas dá um problema informando a seguinte mensagem:
"Erro ao enviar o e-mail.
Error: The RCPT command failed. The specified account does not exisist."
O que significa esse problema?
Preciso fazer alguma configuração no firewall?
At.,
Rony Alves
Estou tentando fazer com que envie o e-mail pelo sistema, mas dá um problema informando a seguinte mensagem:
"Erro ao enviar o e-mail.
Error: The RCPT command failed. The specified account does not exisist."
O que significa esse problema?
Preciso fazer alguma configuração no firewall?
At.,
Rony Alves
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 5 meses atrás #14814
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico enviar por email
Boa Tarde, vc esta tentando enviar email por um relatório do sistema ?, precisa configurar os parâmetros de email.
segue o link.
www.masteradvpl.com.br/index.php/downloads/viewdownload/26/304
segue o link.
www.masteradvpl.com.br/index.php/downloads/viewdownload/26/304
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.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 5 meses atrás #14815
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico enviar por email
Pega ai a função pra enviar o email.
Static Function EnvMail(cAccount ,cPassword ,cServer ,cFrom,;
cEmail ,cAssunto ,cMensagem ,aAttach)
Local cEmailTo := "" // E-mail de destino
Local cEmailBcc:= "" // E-mail de copia
Local lResult := .F. // Se a conexao com o SMPT esta ok
Local cError := "" // String de erro
Local lRelauth := SuperGetMv("MV_RELAUTH") // Parametro que indica se existe autenticacao no e-mail
Local lRet := .F. // Se tem autorizacao para o envio de e-mail
Local cConta := GetMV("MV_RELACNT") //ALLTRIM(cAccount) // Conta de acesso
Local cSenhaTK := GetMV("MV_RELPSW") //ALLTRIM(cPassword) // Senha de acesso
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Envia o mail para a lista selecionada. Envia como BCC para que a pessoa pense³
//³que somente ela recebeu aquele email, tornando o email mais personalizado. ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
cEmailTo := cEmail
If At(";",cEmail) > 0 // existe um segundo e-mail.
cEmailBcc:= SubStr(cEmail,At(";",cEmail)+1,Len(cEmail))
Endif
CONNECT SMTP SERVER cServer ACCOUNT cConta PASSWORD cSenhaTK RESULT lResult
// Se a conexao com o SMPT esta ok
If lResult
// Se existe autenticacao para envio valida pela funcao MAILAUTH
If lRelauth
lRet := Mailauth(cConta,cSenhaTK)
Else
lRet := .T.
Endif
cAnexos:=''
For nI:=1 to Len(aAttach)
cAnexos+=aAttach[nI]+";"
Next
cAnexos:=Left(cAnexos,Len(cAnexos)-1)
If lRet
SEND MAIL FROM cFrom ;
TO cEmailTo;
SUBJECT cAssunto;
BODY cMensagem;
ATTACHMENT cAnexos ;
RESULT lResult
//danfe_000055024_000055024.pdf
If !lResult
//Erro no envio do email
GET MAIL ERROR cError
Help(" ",1,'Erro no Envio do Email',,cError+ " " + cEmailTo,4,5) //Atenção
Endif
Else
GET MAIL ERROR cError
Help(" ",1,'Autenticação',,cError,4,5) //"Autenticacao"
MsgStop('Erro de Autenticação','Verifique a conta e a senha para envio') //"Erro de autenticação","Verifique a conta e a senha para envio"
Endif
DISCONNECT SMTP SERVER
For nI:=1 To Len(aAttach)
// FErase(aAttach[nI])
Next
Else
//Erro na conexao com o SMTP Server
GET MAIL ERROR cError
Help(" ",1,'Erro no Envio do Email',,cError,4,5) //Atencao
Endif
Return(lResult)
Static Function EnvMail(cAccount ,cPassword ,cServer ,cFrom,;
cEmail ,cAssunto ,cMensagem ,aAttach)
Local cEmailTo := "" // E-mail de destino
Local cEmailBcc:= "" // E-mail de copia
Local lResult := .F. // Se a conexao com o SMPT esta ok
Local cError := "" // String de erro
Local lRelauth := SuperGetMv("MV_RELAUTH") // Parametro que indica se existe autenticacao no e-mail
Local lRet := .F. // Se tem autorizacao para o envio de e-mail
Local cConta := GetMV("MV_RELACNT") //ALLTRIM(cAccount) // Conta de acesso
Local cSenhaTK := GetMV("MV_RELPSW") //ALLTRIM(cPassword) // Senha de acesso
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Envia o mail para a lista selecionada. Envia como BCC para que a pessoa pense³
//³que somente ela recebeu aquele email, tornando o email mais personalizado. ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
cEmailTo := cEmail
If At(";",cEmail) > 0 // existe um segundo e-mail.
cEmailBcc:= SubStr(cEmail,At(";",cEmail)+1,Len(cEmail))
Endif
CONNECT SMTP SERVER cServer ACCOUNT cConta PASSWORD cSenhaTK RESULT lResult
// Se a conexao com o SMPT esta ok
If lResult
// Se existe autenticacao para envio valida pela funcao MAILAUTH
If lRelauth
lRet := Mailauth(cConta,cSenhaTK)
Else
lRet := .T.
Endif
cAnexos:=''
For nI:=1 to Len(aAttach)
cAnexos+=aAttach[nI]+";"
Next
cAnexos:=Left(cAnexos,Len(cAnexos)-1)
If lRet
SEND MAIL FROM cFrom ;
TO cEmailTo;
SUBJECT cAssunto;
BODY cMensagem;
ATTACHMENT cAnexos ;
RESULT lResult
//danfe_000055024_000055024.pdf
If !lResult
//Erro no envio do email
GET MAIL ERROR cError
Help(" ",1,'Erro no Envio do Email',,cError+ " " + cEmailTo,4,5) //Atenção
Endif
Else
GET MAIL ERROR cError
Help(" ",1,'Autenticação',,cError,4,5) //"Autenticacao"
MsgStop('Erro de Autenticação','Verifique a conta e a senha para envio') //"Erro de autenticação","Verifique a conta e a senha para envio"
Endif
DISCONNECT SMTP SERVER
For nI:=1 To Len(aAttach)
// FErase(aAttach[nI])
Next
Else
//Erro na conexao com o SMTP Server
GET MAIL ERROR cError
Help(" ",1,'Erro no Envio do Email',,cError,4,5) //Atencao
Endif
Return(lResult)
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.
- aarezende
- Autor do Tópico
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 64
- Obrigados Recebidos: 0
Tempo para a criação da página:0.123 segundos