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

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

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

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

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

و بالتوفيق

FaLcon_DZ

h-farid

degoutage