Ta dando o msm erro, fiz as alterações, mas nao teve jeito, mas eh muito
estranho o e-mail ta chegando corretamente inclusive com o anexo, td
perfeito. O negocio eh so o erro q da q faz ele passar pelo except, vou
continuar tentando, mas qualquer ajuda eh bem vida.
Em 16/01/08, Jefferson - Fórum <[EMAIL PROTECTED]> escreveu:
>
> Creio que faltou a indicar o AuthenticationType.
>
> Eu usu como no exemplo abaixo:
>
> if FieldByName('ServAutentica').AsString = '1' then
> Smtp.AuthenticationType := atLogin
> else
> Smtp.AuthenticationType := atNone;
>
> Espero que ajude em algo.
> Boa sorte,
>
> Jefferson
>
> ----- Original Message -----
> From: Wilton Campos
> To: delphi-br
> Sent: Wednesday, January 16, 2008 9:10 AM
> Subject: [delphi-br] Ajuda com IdSMTP
>
> Pessoal,
> to usando o IdSMTP para enviar e-mails para fornecedores, porem to com
> um problema meio estranho aki, eh o seguinte uso um bloco try except,
> tipo assim:
>
> try
> IdSMTP1.Connect; //Estabelece a conexão
> IdSMTP1.Authenticate; //Faz a autenticação
> IdSMTP1.Send(IdMessage1); //Envia a mensagem
> lblInfo_Mensagem.Caption := '';
> Application.MessageBox('A cotação foi enviada com sucesso para o
> fornecedor!', 'Confirmação', MB_OK + MB_ICONINFORMATION);
> except
> on E: Exception do
> begin
> Mensagem_Erro := 'Ocorreu o seguinte erro durante a operação:
> ' + #13 + E.Message + #13 +
> 'Verifique se todos os dados foram
> preenchidos corretamente.';
>
> Application.MessageBox(Pchar(Mensagem_Erro), 'Aviso', MB_OK +
> MB_ICONWARNING);
> end;
> end;
>
> ele ta dando erro na linha IdSMTP1.Send(IdMessage1); //Envia a mensagem
> so q ele ta mandando o e-mail corretamente, porem ta dando a mensagem
> de erro e na mensagem de erro nao tem nada, da a mensagem sem texto,
> sem erro, muito estranho se alguem puder me ajudar,
>
> flw
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
