Socket Error 10013 Access denied
26/11/2013
0
De pois que eu copilei o código fonte em delphi 7
que e
with Message1 do
begin
Body.Assign(// texto);
From.Text := // Remetente;
Recipients.EMailAddresses := // Destinario;
Subject := // Assunto;
smtp.AuthenticationType := atlogin; // Indica que requer autenticação
smtp.Username := // Usuario;
smtp.Password := // senha;
smtp.Host := // SMTP;
smtp.Port := 25;
smtp.Connect;
try
smtp.Send(message1); // Envia
finally
smtp.Disconnect; // Desconecta
end;
end;
e da este erro
Socket Error#10013 Access denied
quem pode me ajudar
Patricia
Posts
26/11/2013
Itamar Souza
De pois que eu copilei o código fonte em delphi 7
que e
with Message1 do
begin
Body.Assign(// texto);
From.Text := // Remetente;
Recipients.EMailAddresses := // Destinario;
Subject := // Assunto;
smtp.AuthenticationType := atlogin; // Indica que requer autenticação
smtp.Username := // Usuario;
smtp.Password := // senha;
smtp.Host := // SMTP;
smtp.Port := 25;
smtp.Connect;
try
smtp.Send(message1); // Envia
finally
smtp.Disconnect; // Desconecta
end;
end;
e da este erro
Socket Error#10013 Access denied
quem pode me ajudar
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
26/11/2013
Patricia
Project Project1.exe raised exception class EIdSocketError with message 'Socket Error#10013
Access denied.'.Process stopped.UseStep or Run to continue.
27/11/2013
Itamar Souza
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;
27/11/2013
Patricia
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;
28/11/2013
Itamar Souza
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
28/11/2013
Patricia
por que esta dando o mesmo erro
28/11/2013
Itamar Souza
por que esta dando o mesmo erro
segue o meu contato:
skype: itasouza10
e-mail : itasouza@yahoo.com.br
04/12/2013
Marcos Saffran
04/12/2013
Patricia
ele tem que ter um problema mas não estou dando conta
se puder ajudar
04/12/2013
Landerson Santos
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,
04/12/2013
Patricia
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
Clique aqui para fazer login e interagir na Comunidade :)
