TMail و TsendMail لا توجد في دلفي rad studio

[FaLcon_DZ]

السلام عليكم احبتي
اردت انشاء برنامج يقوم بارسال الرسائل الي بريدي الالكتروني في جيمايل
كلما اردت تنزيل المكون : TSendMail لا اجده في القائمة .
وكلما اردت اضافة EASendMail او التصريح بها في ال uses لا تخرج .. :p
هل هناك طريقة لاصافة او تحديص الكومبوننت او المكتبة الخاصة بهاته الاشياء
لقد احترت وبحثت قليلا فاختلطت الامور علي اصدقائي
بصراحة انا مبتدئ قليلا هل من حل.
جزاكم الله خيرا

[h-farid]

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

جرب البحث بالمنتدى ستجد إن شاء الله ما يفيدك

[degoutage]

تحتاج إلى 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

و بالتوفيق