كيف أقوم يإرسال أيمل لعناوين مخزنة في قاعدة بيا

لرسالة بسيطة عليك بالتالي:

ضع كمبوننت idSMTP في صفحة IndyClients على الفورم

في البرنامج وعند الضغط على الزر ضع التالي

 
procedure SendEmail(AToMail, AEmailSubject, AEmailBody);
begin
   SMTP.AuthenticationType := atLogin;
   SMTP.UserID := 'EmailLoginUser;
   SMTP.Password := 'EmailLoginPassword';
   SMTP.Host := Email'Host';
   SMTP.Port := 25;

  {now we send the message}
  SMTP.Connect;
  try
  //  QuickSend(AHost: String;
  //            AEmailSubject: String;
  //            AToEmail: String;
  //            AFromEmail: String;
  //            AEmailBody: String);
  finally
    SMTP.Disconnect;
  end;
end;

اذا اردت ارسال الرسالة اكثر من شخص في قاعدة البيانات ضع الكود السابق في عملية تكرار على البيانات مثل

    Table1.First;
    while not Table1.Eof do begin
       SendEmail(Zoboon_Email, Email_Subject, Email_Body);
       Table1.Next;
    end;

طبعا لا تنسى اذا اردت ان يكون جسم الرسالة اكثر من سطر اربط الاسطر ب #13