IdSMTP do BDS 2006 apresentando Soket erro # 10061 Connection refused

Delphi

14/09/2011

Estou desenvolvendo uma aplicação que envia email, porém nos primeiros testes me deparei com o seguinte erro,
Soket Error # 10061 Connection refused.

Gostaria de saber se alguém já passou por esse problema?
Segue a baixo o código que apresentou esse erro.

procedure TForm_TesteEmail.Button1Click(Sender: TObject);
begin
  SMTP.Connect;
  SMTP.Send(MSG);
  SMTP.Disconnect;
  ShowMessage('Menssagem enviada com sucesso!');
end;

procedure TForm_TesteEmail.FormCreate(Sender: TObject);
begin
  //Remetente
  MSG.From.Address := 'meu email ';
  MSG.From.Name := 'meu nome';
  MSG.ReplyTo.EMailAddresses := 'meu email';
  //Destinatario
  MSG.Recipients.EMailAddresses:= 'email do destinatário';
  MSG.Subject := 'assunto do e-mail';
  MSG.Body.Text := 'Teste envio de email';
end;

Abraços.
Elton Lima

Elton Lima

Curtidas 0
POSTAR