Alberto Mota Postado Agosto 3, 2009 Denunciar Share Postado Agosto 3, 2009 Prezados colegas, adaptei um exemplo do Jhonas para envio de Email do Delphi 7e 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; Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Agosto 3, 2009 Denunciar Share Postado Agosto 3, 2009 erro de socket #11004Verifique 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Alberto Mota Postado Agosto 3, 2009 Autor Denunciar Share Postado Agosto 3, 2009 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 mudouAgora é:Socket Error #10061Connection refusedAgradeço a atenção. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Agosto 3, 2009 Denunciar Share Postado Agosto 3, 2009 Socket Error #10061 Connection refusedConexão Recusada... um ou mais parametros de configuração estão incorretosexemplo: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 problemasabraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
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;
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
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.