• TIdSMTP

  bileşenini oluşturup SMTP sunucu bilgilerini girin 13:

SMTP := TIdSMTP.Create(nil);
SMTP.Host := 'smtp.gmail.com';
SMTP.Port := 587;  // Gmail için
Kopyala

• TIdMessage

  bileşenini oluşturup e-posta adreslerini, konuyu ve mesajı ekleyin 13:

Message := TIdMessage.Create(nil);
Message.Recipients.EMailAddresses := 'recipient@example.com';
Message.From.Address := 'sender@example.com';
Message.Subject := 'Test email';
Message.Body.Text := 'Bu bir test e-postasıdır';
Kopyala

• Güvenli iletişim için TIdSSLIOHandlerSocketOpenSSL bileşenini kullanın ve

  SMTP.IOHandler

  olarak atayın 1:

SSL := TIdSSLIOHandlerSocketOpenSSL.Create(SMTP);
SMTP.IOHandler := SSL;
SMTP.UseTLS := utUseExplicitTLS;
Kopyala

• SMTP.Connect

  ,

  SMTP.Send(Message)

  ve

  SMTP.Disconnect

  yöntemlerini çağırın 13:

SMTP.Connect;
SMTP.Send(Message);
SMTP.Disconnect;
Kopyala