Arivaldo

try ACBrNFe.NotasFiscais.Items[0].EnviarEmail(vQAux.FieldByName('MAIL_SERVER_SMTP_NFE').AsString,// edtSmtpHost.Text vQAux.FieldByName('MAIL_PORTA_NFE').AsString,//, edtSmtpPort.Text vQAux.FieldByName('MAIL_USER_NFE').AsString,//, edtSmtpUser.Text vQAux.FieldByName('MAIL_SENHA_NFE').AsString,//, edtSmtpPass.Text vQAux.FieldByName('MAIL_USER_NFE').AsString,//, edtSmtpUser.Text vDest, vQAux.FieldByName('MAIL_ASSUNTO_NFE').AsString,//, edtEmailAssunto.Text mmEmailMsg, cbEmailSSL,//, cbEmailSSL.Checked // SSL - Conexão Segura True, //Enviar PDF junto CC, //Lista com emails que serão enviado cópias - TStrings nil, // Lista de anexos - TStrings true, //Pede confirmação de leitura do email true, //Aguarda Envio do Email(não usa thread) vOPerador, //, 'ACBrNFe2' // Nome do Rementente cbEmailSSL ); if ACBrNFe.NotasFiscais.Items[0].Alertas = '' Then Begin vQaux.Close; vQaux.SQL.Clear; vAux := 'UPDATE NOTA_FISCAL N '; vAux := vAux + ' SET DT_EMAIL_NFE = SYSDATE'; vAux := vAux + ' WHERE N.NR_DA_NOTA = :NOTA'; vAux := vAux + ' AND N.ID = :ID '; vAux := vAux + ' AND N.CD_SERIE = :CD_SERIE'; vQAux.SQL.Add(vAux); vQAux.Params[0].AsString := Q1.FieldByName('NR_DA_NOTA').AsString; vQAux.Params[1].AsString := Q1.FieldByName('ID').AsString; vQAux.Params[2].AsString := Q1.FieldByName('CD_SERIE').AsString; vQAux.ExecSQL(); vQAux.Close; vQAux.Free; End; except end; Estou tratando a rotina de envio de e-mail com try dentro dela tem um if que verifica o alerta mas antes de chegar no alerta um erro é exibido para o cliente com a mensagem de alerta. "E essa mensagem que eu gostaria que não fosse exibida ou se eu pudesse tratá-la"

ACBrNFe.NotasFiscais.Items.Alertas funcionou corretamente consigo verificar por ela se o e-mail foi enviado ou não corretamente.Mas mesmo fazendo o tratamento por try o erro é exibido tem como ocultar o erro ? Obrigado!

ACBrNFe.NotasFiscais.Items[0].EnviarEmail(vQAux.FieldByName('MAIL_SERVER_SMTP_NFE').AsString,// edtSmtpHost.Text vQAux.FieldByName('MAIL_PORTA_NFE').AsString,//, edtSmtpPort.Text vQAux.FieldByName('MAIL_USER_NFE').AsString,//, edtSmtpUser.Text vQAux.FieldByName('MAIL_SENHA_NFE').AsString,//, edtSmtpPass.Text vQAux.FieldByName('MAIL_USER_NFE').AsString,//, edtSmtpUser.Text vDest, vQAux.FieldByName('MAIL_ASSUNTO_NFE').AsString,//, edtEmailAssunto.Text mmEmailMsg, cbEmailSSL,//, cbEmailSSL.Checked // SSL - Conexão Segura True, //Enviar PDF junto CC, //Lista com emails que serão enviado cópias - TStrings nil, // Lista de anexos - TStrings true, //Pede confirmação de leitura do email true, //Aguarda Envio do Email(não usa thread) vOPerador,//, 'ACBrNFe2' // Nome do Rementente cbEmailSSL ); ShowMessage(ACBrNFe.NotasFiscais.Items[0].Msg); Adicionei esta linha ShowMessage(ACBrNFe.NotasFiscais.Items[0].Msg); e o que acontece é que gera o erro pelo componente Acbr e nesta linha informada nada retorna

Para envio de e-mail também? Obrigado pela ajuda ?

Boa tarde estou com a mesma necessidade, quero saber se ocorreu algo no momento do envio e mesmo protegendo o código não consigo pegar o erro !!!