Problemas Com Envio De E-mail

[darth_ivan]

Fala ai galera, beleza?

Estou com um problema no delphi quando tendo enviar e-mails. Estou usando os componentes do Indy SMTP e o Message, estou usnado também os e-mails do gmail e do yahoo para testes.

Eu consigo conectar atraves do comando smtp.connect, mas não consigo enviar email quando uso o smtp.send(MailMessage);...

Dá um erro de autentificação

será que alguém pode me ajudar???

Valeu galera

[Kikonanet]

Como você está conectando?

[JPedro]

Boas.

Provavelmente o problema vem do método de autenticação no servidor smtp. Se reparares, no Outlook por exemplo, tens de colocar um check no "O meu servidor requer autenticação ..." tens de utilizar o mesmo método de autenticação. Agora tou sem as minhas fontes aqui, mas daquia a pouco, posto um bocado do código, a diferença é que eu não usei Indy. Usei os componentes FastNet. Mas deve ser o mesmo já que de inicio também tive o mesmo problema.

[Geovani]

Opa!

Vai no Object inspector do componente TIdSMTP, na propriedade AuthenticationType seleciona atLogin

Tenta ai!!

abraço!!

[darth_ivan]

Geovani, já fiz isso e ainda não deu certo. To usando o e-mail do gmail para teste e me parece que preciso conectar primeiro no POP3 para fazer isso e ainda parece que as mensagens vem criptografadas e assim preciso de um outro componente para fazer isso. Não tenho certeza que é isso mesmo.

JPedro, vai ajudar muito se você postar seu código aqui, mas também não se esqueça de me falar quais propriedades você mudou..

Valeu galera

[Geovani]

Tenho uma código aqui que funciona com o servidor de email que uso.

Agora não sei qual é o servidor smtp do gmail para fazer o teste.. mas tenta com essa codigo:

procedure TForm1.Button1Click(Sender: TObject);
begin
  //Vai no Object inspector do componente TIdSMTP, na propriedade AuthenticationType seleciona atLogin
  with IdSMTP1 do
    begin
      Host := 'smtp.servidor.com.br';
      Username := 'usuario@usuario.com.br';
      Password:='senha';
      try
        Connect();
      except
        ShowMessage('Não foi possível conectar ao servidor de email!');
        exit;
      end;
    end;

  with  IdMessage1 do
    begin
      From.Address := 'remetente@email.com.br';
      From.Name := 'Nome do Remetente';
      Recipients.EMailAddresses:='destino@email.com.br';
      Subject:='Assunto do email';
      Body.add('corpo do email');
    end;

    try
      IdSMTP1.Send(IdMessage1);
      ShowMEssage('E-mail enviado!');
    except
      ShowMEssage('Não foi possível enviar email!');
      exit;
    end;

  IdMessage1.Clear;
  IdSMTP1.Disconnect;

end;

tenta ai!!

falow!!

[hencker]

Você alterou as configurações do porta? O GMail usa a 465 para envio. Não se esqueça de habilitar o SSL.