كيف يمكن ارسال ايميل بدلفي 2010؟ - نسخة قابلة للطباعة

كود :

procedure SendEmail;
var
  SMTP: TIdSMTP;
  Email: TIdMessage;
  SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
  SMTP := TIdSMTP.Create(nil);
  Email := TIdMessage.Create(nil);
  SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  try
    // إعدادات خادم SMTP
    SMTP.IOHandler := SSLHandler;
    SMTP.Host := 'smtp.example.com'; // استبدل بخادم SMTP الخاص بك
    SMTP.Port := 465; // أو 587 حسب إعدادات الخادم
    SMTP.Username := 'your_email@example.com';
    SMTP.Password := 'your_password';
    SMTP.UseTLS := utUseExplicitTLS;

    // إعدادات الرسالة
    Email.From.Address := 'your_email@example.com';
    Email.Recipients.EmailAddresses := 'recipient@example.com';
    Email.Subject := 'موضوع الرسالة';
    Email.Body.Text := 'محتوى الرسالة هنا';

    // إرسال الرسالة
    SMTP.Connect;
    try
      SMTP.Send(Email);
      ShowMessage('تم إرسال البريد بنجاح');
    finally
      SMTP.Disconnect;
    end;
  finally
    Email.Free;
    SSLHandler.Free;
    SMTP.Free;
  end;
end;

كود :

uses
  ShellAPI;

procedure SendSimpleEmail;
var
  Recipient, Subject, Body: string;
begin
  Recipient := 'mailto:recipient@example.com';
  Subject := '?subject=موضوع الرسالة';
  Body := '&body=محتوى الرسالة هنا';
  ShellExecute(0, 'open', PChar(Recipient + Subject + Body), nil, nil, SW_SHOWNORMAL);
end;