Tratar Exceção Na Função Enviaremail Do Acbrnfe

[Werner_Marques]

Boa Tarde,

 

Meus caros, estou usando a função enviaremail do acbrnfe, e gostaria de saber como posso tratar as exceções lançadas por essa função.  vejam como estou usando:

 

try

 

        ACBrNFe.NotasFiscais.Items[0].EnviarEmail(qrEmpresa.fieldbyname('nm_smtpemail').asstring

                                 , qrEmpresa.fieldbyname('nr_portaemail').asstring

                                 , qrEmpresa.fieldbyname('nm_usuarioemail').asstring

                                 , qrEmpresa.fieldbyname('nr_senhaemail').asstring

                                 , qrEmpresa.fieldbyname('nm_usuarioemail').asstring

                                 , Para

                                 , 'Nota Fiscal Eletrônica - '+ACBrNFe.NotasFiscais.Items[0].NFe.infNFe.ID

                                 , memo1.Lines //mmEmailMsg.Lines

                                 , (qrEmpresa.fieldbyname('tp_conexaoseguraemail').asinteger=1) // SSL - Conexão Segura

                                 , True //Enviar PDF junto

                                 , CC //Lista com emails que serão enviado cópias - TStrings

                                 , nil // Lista de anexos - TStrings

                                 , False  //Pede confirmação de leitura do email

                                 , True  //Aguarda Envio do Email(não usa thread)

                                 , qrempresa.fieldbyname('nm_emp').asstring // Nome do Rementente

                                 , (qrEmpresa.fieldbyname('tp_conexaossltsl').asinteger=1)); // Auto TLS

     

      except

        raise exception.Create('Email não enviado');

      end;

 

Em momento algum ele entra no except, mesmo a função retornando um erro. como posso fazer?

[EMBarbosa]

Olá Werner,

 

  Acho que não ficou claro. Que tipo de erro é retornado? O que você esperava que acontecesse?

[Werner_Marques]

EMBarbosa, a função está funcionando corretamente.

 

Eu quero tratar o retorno dela. por exemplo: Caso o usuário não informe a senha, a função retorna uma mensagem Com vários códigos que o usuário não entende, eu quero que exiba uma mensagem minha, nesse caso eu exibiria:"Emial não enviado. Verifique suas configurações."E caso o email seja enviado corretamente eu quero exibir a mensagem que o email foi enviado. Entendeu?

[Werner_Marques]

Alguém tem alguma sugestão? A função está funcionando perfeitamente, só quero tratar o retorno da mesma. 

[Gabriel Frones]

Werner,

 

Você está usando thread pra enviar e-mail. Por essa razão que não está funcionando o try..except: A função enviar e-mail só cria a thread e essa operação não gera exception nenhum. Para não usar thread, adicione mais um parâmetro, False à sua chamada de função:

try
 
        ACBrNFe.NotasFiscais.Items[0].EnviarEmail(qrEmpresa.fieldbyname('nm_smtpemail').asstring
                                 , qrEmpresa.fieldbyname('nr_portaemail').asstring
                                 , qrEmpresa.fieldbyname('nm_usuarioemail').asstring
                                 , qrEmpresa.fieldbyname('nr_senhaemail').asstring
                                 , qrEmpresa.fieldbyname('nm_usuarioemail').asstring
                                 , Para
                                 , 'Nota Fiscal Eletrônica - '+ACBrNFe.NotasFiscais.Items[0].NFe.infNFe.ID
                                 , memo1.Lines //mmEmailMsg.Lines
                                 , (qrEmpresa.fieldbyname('tp_conexaoseguraemail').asinteger=1) // SSL - Conexão Segura
                                 , True //Enviar PDF junto
                                 , CC //Lista com emails que serão enviado cópias - TStrings
                                 , nil // Lista de anexos - TStrings
                                 , False  //Pede confirmação de leitura do email
                                 , True  //Aguarda Envio do Email(não usa thread)
                                 , qrempresa.fieldbyname('nm_emp').asstring // Nome do Rementente
                                 , (qrEmpresa.fieldbyname('tp_conexaossltsl').asinteger=1) // Auto TLS
                                 , False); //Esse parametro diz pra não usar thread.
     
      except
        raise exception.Create('Email não enviado');
      end;

Lembrando que o parametro AguardarEnvio = True não significa que não vai usar thread, como está escrito nos seus comentários... significa que se usar, vai esperar ela concluir a tarefa. Eu, particularmente, não vejo muita vantagem em usar uma thread se você vai travar o programa até ela concluir, isso só adiciona complexidade ao seu programa.

[Werner_Marques]

Obrigado pela resposta Gabriel, vou fazer da forma que você sugeriu e posto aqui o resultado.

[Werner_Marques]

Obrigado pela ajuda de vocês.

 

Deu certo da forma que Gabriel falou.