كيف ابرمج برنامج يرسل ايميلات ؟

[fhol]

السلام عليكم و رحمة الله و بركاته 

كيف ابرمج برنامج يرسل ايميلات ؟ 

مثلا يرسل الى 10 اشخاص فقط 

و جزاكم الله خيرا و ربي ينفع بعلمكم 

[محمد عبد العزيز]

ارسال بريد مجاني
http://delphi4arab.net/forum/showthread.php?tid=3884
ارسال معلومات المستخدم عبر البريد بدلفي بدون استخدام اي ملفات خارجية
http://delphi4arab.net/forum/showthread.php?tid=4609
درس برمجة برنامج لقرأة الرسائل ببروتوكول pop3 +ارسال
http://delphi4arab.net/forum/showthread.php?tid=4658

[fhol]

بارك الله فيك استاذ عبد العزيز و لكن للاسف الروابط بعضها غير شغال و المطلوب ارسال الى عدة ايميلات و ليس اميل
و جزاك الله خيرا

[محمد عبد العزيز]

1- ماهو الرابط غير الشغال كي اصلحه ؟
2- ارسال اكثر من رسالة = ارسال رسالة داخل حلقة

[AX302]

السلام عليكم 
مثال بسيط...في المرفقات مكتبة SSL يجب ان تكون موجودة في نفس ملف البرنامج بالتوفيق.

---

اسف نسيت المرفقات ههه

[Ben.Ja]

تعديل خفيف في حدث button1 onclick لكود الأخ AX302, لتفادي رسالة "Already connected"

PHP كود :

IdMessage1.From.Address := 'YourEmail@gmail.com';
IdMessage1.Body.Text := Memo1.Text;
IdMessage1.Subject := Edit1.Text;
IdSMTP1.Host := 'smtp.gmail.com';
IdSMTP1.Port := 25;
IdSMTP1.AuthType := satDefault;
IdSMTP1.Username := 'YourEmail@gmail.com';
IdSMTP1.Password := 'YourPassword';
IdSMTP1.Connect;
try
   for i := 0 to Memo2.Lines.Count - 1 do
   begin
     IdMessage1.Recipients.EMailAddresses := Memo2.Lines[i];
     IdSMTP1.Send(IdMessage1);
   end;

finally
   IdSMTP1.Disconnect();
 end; 


[fhol]

الاخوة الكرام شكرا على جهودكم و لكن للاسف لم يشتغل البرنامج

لانو تنقصني مكونات , لاني استعمل دلفي 7

ممكن كود يناسب النسخة التي مركبها ؟

و ربي يحفظكم و ينفع بيكم

[AX302]

الاخوة الكرام شكرا على جهودكم و لكن للاسف لم يشتغل البرنامج

لانو تنقصني مكونات , لاني استعمل دلفي 7

ممكن كود يناسب النسخة التي مركبها ؟

و ربي يحفظكم و ينفع بيكم

السلام عليكم يجب عليك تنصيب مكونات Indy من هنا الموقع الرسمي 

كود :

http://www.indyproject.org