1. Gerekli DLL dosyalarını indirin 1. libeay32.dll ve ssleay32.dll dosyaları, ssl hatası almamak için exe dizininde bulunmalıdır 1.
2. Aşağıdaki kodu kullanın 12:

var
  SMTP: TIdSMTP;
  EPosta: TIdMessage;
  LHandler: TIdSSLIOHandlerSocketOpenSSL;
  HtmlPart: TIdText;
  mailhtml: string;
  ImagePart: TIdAttachmentFile;

begin
  SMTP := TIdSMTP.Create(nil);
  EPosta := TIdMessage.Create(nil);
  LHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  try
    SMTP.Host := 'smtp.gmail.com';
    SMTP.Username := 'xxxxx@gmail.com';
    SMTP.Password := 'xxxxx';
    SMTP.Port := 587;
    SMTP.AuthType := satDefault;
    LHandler.Destination := SMTP.Host + '587';
    LHandler.Host := SMTP.Host;
    LHandler.Port := SMTP.Port;
    LHandler.DefaultPort := 0;
    LHandler.SSLOptions.Method := sslvTLSv1;
    LHandler.SSLOptions.Mode := sslmUnassigned;
    LHandler.SSLOptions.VerifyMode := [];
    LHandler.SSLOptions.VerifyDepth := 2;

    // Email ile html gönderimi için
    HtmlPart := TIdText.Create(EPosta.MessageParts);
    HtmlPart.ContentType := 'text/html';
    HtmlPart.CharSet := 'iso-8859-9';
    HtmlPart.Body.LoadFromFile('html dosya dizini');
    TIdAttachmentFile.Create(EPosta.MessageParts, 'ek dizini');
    ImagePart := TIdAttachmentFile.Create(EPosta.MessageParts, 'fotoğraf dizini');
    ImagePart.ContentType := 'image/png';
    ImagePart.ContentDisposition := 'inline
Kopyala