Method EnviaEmail (Classe do Gilmer)

[Luiz Fernando]

Pessoal alguém deve problema com o envio de email usando a classe nova do Gilmer, depois que fiz o upgrade, não passa mais email.

aqui o pedaço do meu código aonde aciono o método

cFilePDF:=cPath4+cEmpresa+"\remessa\protocolos\"+::cChavenfe+"-nfe.xml"
CriaPdfDanfe( cFilePDF, ::oNfeUtil, ::cChavenfe )
cFilePDF1:=cPath4+cEmpresa+"\remessa\pdf\"+::cChaveNFe+".pdf"
If !Empty(::cFromEmail).and.!Empty(cTo)
   cBody:=::PreparaEmail(If(Empty(cBody),::cEmailEmissao,cBody),::cXmlProtocolo,aFieldBody)
   ::EnviaEmail(cTo,cBcc,cSubject,cBody,{::cPathNFe+::cSubPastaProtocolos+::cChaveNfe+"-nfe.xml",cFilePdf},lBodyHtml,aFieldBody)
endif

obg

Luiz Fernando

[Luiz Fernando]

Só para saber alguém aqui usa o envio de email com recursos da flexdocs usando a classe nova do Gilmer,  vlw obg

[gilmer]

Que eu saiba a flexdocs não mudou nada, passe o parâmetro tipo 1 que irá usar o recurso da flexdocs

Caso não passe no New, default será 1, neste caso terá que abrir um chamado na flexdocs

 

 

[Luiz Fernando]

Pessoal pelo que vi algumas chamadas para a classe mudaram, para quem usa o envio automatico de email com recursos da classe do Gilmer e flexdocs, poderia postar o código so par eu poder comparar, e ver  aonde estou errando, obg.

 

Luiz Fernando

[kapiaba]

http://www.flexdocs.com.br/guianfe/funcao.utilidades.enviaEmail.html
 

[Luiz Fernando]

 

http://www.flexdocs.com.br/guianfe/funcao.utilidades.enviaEmail.html
 

Vlw Kapiaba, já tinha olhado este link, já verifiquei os parametros estão todos ok, vc usa este recurso da flexdocs, queria só a confirmação de alguém que esteja usando, pq dai vou até o fim aqui.

 

 

abaixo prazo para desativação da 3.10

Faltam: 7 dias, 8 horas, 30 minutos e 0 segundos.  

não há motivo para desespero se Deus criou a terra em 6 dias e descansou no sétimo, pq não iremos dar conta nisto.

 

Obg 

Luiz Fernando

[Luiz Fernando]

A mensagem do erro é exatamente esta aqui, pela resposta da flexdocs é um problema de quem usa xharbour, harbour

http://www.flexdocs.com.br/suporte/knowledgebase.php?article=210

com os colega que falo em off aqui, ninguém usa este recurso da flexdocs, até tenho rotina aqui  para colocar no lugar, mais era uma coisa que funciona tão bem antes.

[kapiaba]

Eu deixo o cliente escolher, porquê gosto é que nem friozó, cada um tem o seu... kkkkkkkk

Pode enviar direto via RMAIL.PRG ou usando o Windows Live Mail 2012(7/810) só falta para Outlook do Windows 10.

 

[Luiz Fernando]

Kapiaba eu tenho a rotina de email propria tb no sistema, mais o da flexdocs para esta finalidade já é mais pratico, esta tudo dentro da classe do Gilmer pronto, envio , cancelamento de nota tudo automatico, se tiver que mudar isto irei levar um tempo, acho engraçado ninguém aqui usar este recurso.

[kapiaba]

O erro:

NFe_util_2G.util/-2147352573 DISP_E_MEMBERNOTFOUND: [nome funcionalidade]


pode ocorrer com usuários que fazem a integração com a DLL via late binding (xHarbour, Harbour, VFP, etc.).

A causa do erro é a chamada de um método inexistente ou a chamada de um método existente, mas que tenha alguma diferença na lista de parâmetros.

Para solucionar o caso verifique:

1. se o nome do método [nome funcionalidade] está correto;

2. se o nome do método estiver correto, verifique se os tipos dos parâmetros são iguais ao definido pela DLL. A passagem de um tipo string para um tipo inteiro pode causar este erro.

 

Você não fez uma cópia da VONFEUTIL2G.PRG anterior?  Se sim, copie as FUNCTION e compare o que mudou e os parâmetros.

Abs.

[Luiz Fernando]

 

Você não fez uma cópia da VONFEUTIL2G.PRG anterior?  Se sim, copie as FUNCTION e compare o que mudou e os parâmetros.

Abs.

Kapiaba eu fiz isto , deve sim umas mudanças, dai voltei elas na integra o EnviaEmail e tb o PreparaEmail, mesmo assim o erro continua.

a flexdocs me respondeu isto

tente inicializar o parâmetro que recebe o retorno da chamada com zero, antes da chamada.

cResultado := 0
cResultado := objNFeUtil.EnvEmail2(...)

e depois isto

Para solucionar o caso verifique:

1. se o nome do método [nome funcionalidade] está correto;

2. se o nome do método estiver correto, verifique se os tipos dos parâmetros são iguais ao definido pela DLL. A passagem de um tipo string para um tipo inteiro pode causar este erro.

realmente isto esta um mistério se a flexdocs não mudou nada(segundo eles), eu tb não mudei nada no código, a classe do Gilmer voltei os METHODO antigo, como que não da certo, e o pior que não consigo achar um usuario do forum que usa este recurso da flexdocs para saber se esta dando certo.

[Luiz Fernando]

Não tem como, é uma pena, mais desisto de usar este recurso da felxdocs.

[Luiz Fernando]

 

Que eu saiba a flexdocs não mudou nada, passe o parâmetro tipo 1 que irá usar o recurso da flexdocs

Caso não passe no New, default será 1, neste caso terá que abrir um chamado na flexdocs

 

 

Gilmer deixando como default o valor 3 deu certinho o envio do email, vlw obrigado.

[gilmer]

Bom Dia,

  O tipo 3 usa o CDO, não esta usando da flexdocs.

 

 

[Luiz Fernando]

 

Bom Dia,

  O tipo 3 usa o CDO, não esta usando da flexdocs.

 

 

Gilmer antes eu usava o CDO, só não sabia que não tinha nada a ver com a flexdocs, com o suporte da flexdocs até consegui fazer funcionar com a opção 1, mais o envio do email demora muito, agora usando seu esquema é rapidinho, como sempre usei ele , vou continuar com ele, obg 

Abs

Luiz Fernando

[gilmer]

E o que tinha de errado na opção 1 ?

 

[Luiz Fernando]

 

E o que tinha de errado na opção 1 ?

 

Gilmer usei desta forma, da certo, porem demora muito, mais muito mesmo, totalmente inviavel

      For f:=1 to Len(aAttach)
         cFiles+=if(Empty(cFiles),"",",")+aAttach[f]
      Next f

eMailRemetente = "jupter.atacado@uol.com.br"
nomeRemetente = "suporte"
eMailDestinatario = "empresoft@globo.com"
eMailBcc = "empresoft@globo.com"
assunto = "Teste de envio de e-mail"
mensagem = "corpo da mensagem"
arquivos = ""
smtpCliente = "smtps.uol.com.br"
smtpPorta = "465"
smtpSSL = "0"
smtpUsuario = "smtps.uol.com.br"
smtpSenha = "emp..."
HTML = "0"
confirmacao = "1"
msgResultado = ""
cResultado = 0

nRet:=0
nRet:=::oNfeUtil:EnvEmail(eMailRemetente, nomeRemetente, eMailDestinatario, eMailBcc, assunto, mensagem, cFiles, smtpCliente, smtpPorta, smtpSSL, smtpUsuario, smtpSenha, HTML, confirmacao, msgResultado)