Bom dia,
Estou tentando fazer um tratamento de exceção na hora que envia o email com a seguinte rotina
try
ACBrBoletoFCFortes1.NomeArquivo := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)+'EMAIL')+qryPesq.FieldByName('NOSSONUM').AsString+'_'+FormatDateTime('DDMMYYYYHHMMSS',Now)+'.PDF';{path onde vai salvar o pdf}
ACBrBoleto1.GerarPDF;
ACBrBoleto1.EnviarEmail(zSMTP,zPorta,zEmail,zSenha,zEmail,
Titulo.Sacado.Email,'Boleto de Cobrança',zMsgEmail,False,True,nil,nil,False,True,frmPrincipal.xRazaoSoc,True);
except
On e: exception do
begin
MessageDlg('Erro ao enviar Email. Verifique!'+e.Message,mtWarning,[mbOK],0);
end;
end;
mas não entra no except ,o erro está em anexo!
Como faço o tratamento de exceção como o ACBR Boleto?