Erro Socket #11004

[Alberto Mota]

Prezados colegas, adaptei um exemplo do Jhonas para envio de Email do Delphi 7

e da erro de socket #11004. Segui a risca os passos e não sei como resolver.

Desde já agradeço. Segue o código:

procedure TFrmEnviaEmail.BitBtn1Click(Sender: TObject);

var Anexo : Integer;

begin

IdMessage.Recipients.EMailAddresses := edtPara.Text;

IdMessage.Subject := edtAssunto.Text;

IdMessage.Body := mmMensagem.Lines;

//Manipulando os Anexos

for Anexo := 0 to lbxAnexos.Items.Count-1 do

TIdAttachment.Create(idmessage.MessageParts, TFileName(lbxAnexos.Items.Strings[Anexo]));

IdSMTP.Connect;

try

IdSMTP.Send(IdMessage);

finally

IdSMTP.Disconnect;

end;

Application.MessageBox('Email enviado com sucesso!', 'Confirmação',

MB_ICONINFORMATION + MB_OK);

end;

[Jhonas]

erro de socket #11004

Verifique primeiramente se existe a conexão com a internet ( pode ocorrer esse erro se não houver conexão )

caso exista essa conexão, verifique o host do componente IdSMTP.

Errado : smtp.bol.com.br // gera o erro Erro Socket # 11004

Correto :smtps.bol.com.br // o email foi enviado com sucesso.

abraço

[Alberto Mota]

Prezado Jhonas através da HostNet hospedei meu site lá.

Eles me forneceram os parametros gerais:

Smtp, username, senha e ate porta.

E há conexão normal.

Só que agora a mensagem de erro mudou

Agora é:

Socket Error #10061

Connection refused

Agradeço a atenção.

[Jhonas]

Socket Error #10061 Connection refused

Conexão Recusada... um ou mais parametros de configuração estão incorretos

exemplo:

procedure TForm1.Button1Click(Sender: TObject);
begin
  //Configuração do IdMessage (dados da mensagem)

  IdMessage1.From.Address := 'fulano@bol.com.br';                   //e-mail do remetente
  IdMessage1.Recipients.EMailAddresses := 'sicrano@bol.com.br';//e-mail do destinatário
  IdMessage1.Subject := 'Assunto do e-mail';                             //Assunto
  IdMessage1.Body.Add('Mensagem do e-mail');                         //Corpo da mensagem

  //Configuração do IdSMTP (dados do servidor de email)

  IdSMTP1.BoundIP := '200.70.160.140';                              //Endereço IP da sua Maquina no momento
  IdSMTP1.Host := 'smtps.bol.com.br';                                 //Host SMTP do bol
  IdSMTP1.Port := 25;                                                        //Port do bol
  IdSMTP1.Username := 'fulano@bol.com.br';                       //Login do usuário
  IdSMTP1.Password := 'senha';                                          //Senha do usuário
  IdSMTP1.AuthenticationType := atLogin;                            //tipo da autenticação
  IdSMTP1.Connect;                                                           //Estabelece a conexão
  IdSMTP1.Authenticate;                                                     //Faz a autenticação

  try
      IdSMTP1.Send(IdMessage1);                                        //Envia a mensagem
  except
      showmessage('ERRO');                                                //Mensagem de erro
  end;
end;

OBS: Uso este para enviar email pelo bol .. funciona sem problemas

abraço