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

Erro Socket #11004


Alberto Mota

Pergunta

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;

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0
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

Link para o comentário
Compartilhar em outros sites

  • 0

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

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
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...