Delphi GEmail
1.0.0
คลาส Delphi เพื่อส่งอีเมลโดยใช้ 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) ไปที่ "ความปลอดภัย": เปิดใช้งาน "การยืนยันแบบ 2 ขั้นตอน" และเพิ่ม "รหัสผ่านสำหรับแอป" หรือเปิดใช้งาน "อนุญาตแอปที่มีความปลอดภัยน้อย"
ข้อมูลเพิ่มเติม: http://delphiprogrammingdiary.blogspot.com/2016/09/send-email-with-html-body-format-in.html http://www.andrecelestino.com/delphi-xe-envio-de- อีเมล-com-componentes-indy/
