delphi4arab منتديات دلفي للعرب

delphi4arab منتديات دلفي للعرب > منتديات دلفي للعرب التعليمية > مصادر دلفي مفتوحة تعليمية > ارسال بريد مجاني
نسخة كاملة : ارسال بريد مجاني
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

onexite

17-02-2012, 07:12 AM
السلام عليكم

هذه خدمة قديمة جدا ولاكن حاولت تسخيرها للفائدة العامة
قديما كانت تعمل بالمتصفح فقط لاكن من اليوم سوف يتغير ذلك
[صورة: 20120208222144.jpg]
كود :
http://www.sendspace.com/file/8aqi25
كود :
hxxp://www.mediafire.com/?on03g5xj9aiaeyn

مبرمج هاوي

22-02-2012, 11:02 PM
وعليكم السلام

اعتقد انك اعتمد فيها على بروتوكول smtp !!

لم احمل السورس لكن مجرد نظرة اولى على الصورة

onexite

22-02-2012, 11:23 PM
العنوان كان مايلر مجاني

PHP كود :
procedure TArabform.btn1Click(Sender: TObject);
begin
form2.ShowModal;
end;

procedure TArabform.btn2Click(Sender: TObject);
var email:TStringList;
begin

  email:=TStringList.Create;

try
idhtp1.Request.UserAgent:='Mozilla/5.0 (X11; U; Linux amd64; rv:5.0) Gecko/20100101 Firefox/5.0 (Debian)'  ;

email.Add('Form='+edt1.Text) ;
email.Add('Subject='+edt2.Text);
email.Add('Message_Mail='+smemo1.Text);
email.Add('To=userdz');
try
idhtp1.Post('http://userdz.arabform.com/mail.php?id=userdz',email) ;
except
  on E: EIdHTTPProtocolException do
   stsbr1.Panels[0].text:=e.Message;
end;
  stsbr1.Panels[0].text:=idhtp1.ResponseText;
finally
  email.Free
end;
end; 

مبرمج هاوي

23-02-2012, 10:26 AM
جميييل جدا جدا يعطيك العافية فتحت عيني على شئ اخر

انا كنت اظن انك استخدمت بروتوكول SMTP

وايضا موقع arabform.com

غني عن التعريف وهو يعطيك ايميل لكي تحفظ ايميلك الرسمي او المهم من رسائل الاسبام ^_^

nabilkeb

30-05-2012, 02:35 PM
إقتباس : -----http://www.sendspace.com/file/8aqi25-----

الرابط لا يعمل

wadoud

31-05-2012, 03:34 PM
السلام عليكم

مشكور أخي و لكن هلا وضعت شرحا ؟

onexite

31-05-2012, 09:20 PM
اسف جدا ساعيد رفعه في القريب الـعاحل لاني لا استخدم جهازي الان
ولاكن الكود المستخدم
PHP كود :
procedure TArabform.btn2Click(Sender: TObject);
var email:TStringList;
begin

  email:=TStringList.Create;

try
idhtp1.Request.UserAgent:='Mozilla/5.0 (X11; U; Linux amd64; rv:5.0) Gecko/20100101 Firefox/5.0 (Debian)'  ;

email.Add('Form='+edt1.Text) ;
email.Add('Subject='+edt2.Text);
email.Add('Message_Mail='+smemo1.Text);
email.Add('To=userdz');
try
idhtp1.Post('http://userdz.arabform.com/mail.php?id=userdz',email) ;
except
  on E: EIdHTTPProtocolException do
   stsbr1.Panels[0].text:=e.Message;
end;
  stsbr1.Panels[0].text:=idhtp1.ResponseText;
finally
  email.Free
end;
end; 

حيث ان userdz هو اسم المستخدم تتحصل عليه بعد التسجيل في الموقع
اذن لارسال رسالة لكم
سجلوا في الموقع وغيروا userdz
http://exemple.arabform.com/mail.php?id=exemple
توجد صورة في المرفقات
delphi4arab منتديات دلفي للعرب > منتديات دلفي للعرب التعليمية > مصادر دلفي مفتوحة تعليمية > ارسال بريد مجاني