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

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

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

مثلا يرسل الى 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

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

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

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

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

تعديل خفيف في حدث 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; 

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

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

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

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

(05-05-2018, 10:03 AM)fhol كتب : [ -> ]الاخوة الكرام شكرا على جهودكم و لكن للاسف لم يشتغل البرنامج

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

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

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

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

كود :
http://www.indyproject.org

fhol

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

fhol

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

AX302

Ben.Ja

fhol

AX302