Ir para conteúdo
Fórum Script Brasil
  • 0

Problemas Com Envio De E-mail


darth_ivan

Pergunta

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

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0

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.

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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!!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...