Delphi GEmail
1.0.0
فئة دلفي لإرسال بريد إلكتروني باستخدام Gmail
استخدام العينة:
Gmail := TcfsGmail.Create( ' [email protected] ' , ' App password ' , ' From you/company ' );
try
try
Gmail.Connect;
Gmail.Send([ ' [email protected] ' ], ' Subject ' , ' PlainBody ' , ' htmlBody ' , ' AttachmentFile ' );
// Gmail.Send(...);
// Gmail.Send(...);
except
on E: Exception do
ShowMessage(E.Message);
end ;
finally
GEmail.Free;
end ;
ملاحظة 1: أضف إلى مسار الملف القابل للتنفيذ مكتبتي openSSL: "libeay32.dll" و"ssleay32.dll".
ملاحظة 2: قم بتكوين حساب بريدك الإلكتروني "[email protected]" للسماح بإرسال رسائل البريد من وتطبيق خارجي: أدخل في الإعداد الشخصي (gmail) وانتقل إلى "الأمان": قم بتنشيط "التحقق بخطوتين" وأضف "كلمة مرور التطبيق" أو قم بتنشيط "السماح بالتطبيقات الأقل أمانًا"
مزيد من المعلومات: http://delphiprogrammingdiary.blogspot.com/2016/09/send-email-with-html-body-format-in.html http://www.andrecelestino.com/delphi-xe-envio-de- البريد الإلكتروني-كوم-مكونات-إندي/