+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف ابرمج برنامج يرسل ايميلات ؟ (/showthread.php?tid=9335)
كيف ابرمج برنامج يرسل ايميلات ؟ - fhol - 26-04-2018
السلام عليكم و رحمة الله و بركاته
كيف ابرمج برنامج يرسل ايميلات ؟
مثلا يرسل الى 10 اشخاص فقط
و جزاكم الله خيرا و ربي ينفع بعلمكم
RE: كيف ابرمج برنامج يرسل ايميلات ؟ - محمد عبد العزيز - 01-05-2018
ارسال بريد مجاني
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
RE: كيف ابرمج برنامج يرسل ايميلات ؟ - fhol - 04-05-2018
بارك الله فيك استاذ عبد العزيز و لكن للاسف الروابط بعضها غير شغال و المطلوب ارسال الى عدة ايميلات و ليس اميل
و جزاك الله خيرا
RE: كيف ابرمج برنامج يرسل ايميلات ؟ - محمد عبد العزيز - 04-05-2018
1- ماهو الرابط غير الشغال كي اصلحه ؟
2- ارسال اكثر من رسالة = ارسال رسالة داخل حلقة
RE: كيف ابرمج برنامج يرسل ايميلات ؟ - AX302 - 04-05-2018
السلام عليكم
مثال بسيط...في المرفقات مكتبة SSL يجب ان تكون موجودة في نفس ملف البرنامج بالتوفيق.
اسف نسيت المرفقات ههه
RE: كيف ابرمج برنامج يرسل ايميلات ؟ - Ben.Ja - 04-05-2018
تعديل خفيف في حدث 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;
RE: كيف ابرمج برنامج يرسل ايميلات ؟ - fhol - 05-05-2018
الاخوة الكرام شكرا على جهودكم و لكن للاسف لم يشتغل البرنامج
لانو تنقصني مكونات , لاني استعمل دلفي 7
ممكن كود يناسب النسخة التي مركبها ؟
و ربي يحفظكم و ينفع بيكم
RE: كيف ابرمج برنامج يرسل ايميلات ؟ - AX302 - 06-05-2018
(05-05-2018, 10:03 AM)fhol كتب : الاخوة الكرام شكرا على جهودكم و لكن للاسف لم يشتغل البرنامج
لانو تنقصني مكونات , لاني استعمل دلفي 7
ممكن كود يناسب النسخة التي مركبها ؟
و ربي يحفظكم و ينفع بيكم
السلام عليكم يجب عليك تنصيب مكونات Indy من هنا الموقع الرسمي
كود :
http://www.indyproject.org