IdSMTP do BDS 2006 apresentando Soket erro # 10061 Connection refused
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.
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
Curtidas 0