+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : TMail و TsendMail لا توجد في دلفي rad studio (/showthread.php?tid=6848)
TMail و TsendMail لا توجد في دلفي rad studio - FaLcon_DZ - 05-03-2015
السلام عليكم احبتي
اردت انشاء برنامج يقوم بارسال الرسائل الي بريدي الالكتروني في جيمايل
كلما اردت تنزيل المكون : TSendMail لا اجده في القائمة .
وكلما اردت اضافة EASendMail او التصريح بها في ال uses لا تخرج .. :p
هل هناك طريقة لاصافة او تحديص الكومبوننت او المكتبة الخاصة بهاته الاشياء
لقد احترت وبحثت قليلا فاختلطت الامور علي اصدقائي
بصراحة انا مبتدئ قليلا هل من حل.
جزاكم الله خيرا
TMail و TsendMail لا توجد في دلفي rad studio - h-farid - 06-03-2015
و عليكم السلام و رحمة الله
جرب البحث بالمنتدى ستجد إن شاء الله ما يفيدك
TMail و TsendMail لا توجد في دلفي rad studio - degoutage - 11-03-2015
تحتاج إلى IdMessage1 IdSSLIOHandlerSocketOpenSSL1 IdSMTP1
تجدها ف indy RAD STUDIO XE
كود :
procedure send;
begin
IdMessage1.From.Address := 'aaaaa';
IdMessage1.Recipients.EMailAddresses := 'test@maail.com';
IdMessage1.Subject := '1';
IdMessage1.Body.Text :='111111';
IdSMTP1.Username:='mymaail@maail.com';
IdSMTP1.Password:='mymaailpass';
// TIdAttachmentFile.Create(IdMessage1.MessageParts, 'c:\1.txt'); الرفقات
try
IdSMTP1.Connect;
except on E:Exception do
showmessage('ERROR: ' + E.Message) ;
end;
IdSMTP1.Send(IdMessage1);
IdMessage1.MessageParts.Clear;
end;في IdSSLIOHandlerSocketOpenSSL1 proprieté قم بوضع
destination smtp.maail.com:465
host smtp.maail.com
port 465
في IdSMTP1 propriete
I/O handler: IdSSLIOHandlerSocketOpenSSL1
host smtp.maail.com
port 465
Use TLS utUseImplicitTLS
ملاحظة مهمة:
تحتاج إلى الملفين
libeay32.dll
ssleay32.dll
(جرب حتى تجد النسخة المناسبة من الملفين)
لا تنسى أدخل إلى حساب جوووجيل الخاص بك و قم ب Allowing less secure apps to access your account
و بالتوفيق