Delphi 使用 Indy 元件發送帶附件郵件：SMTP 客戶端完整實作

核心元件

• TIdSMTP：SMTP 客戶端，負責連線、認證、發送。
• TIdMessage：郵件訊息物件，包含寄件者、收件者、主旨、內文、附件集合。
• TIdAttachment / TIdAttachmentFile：附件封裝。
• TIdSSLIOHandlerSocketOpenSSL：SSL/TLS 加密 (Gmail、Outlook 等現代郵件服務必須)。

完整發送函數

uses IdSMTP, IdMessage, IdText, IdAttachmentFile, IdSSL, IdSSLOpenSSL, SysUtils;

procedure SendMailWithAttachment(
  const SMTPHost: string; SMTPPort: Integer; UseSSL: Boolean;
  const Username, Password: string;
  const FromAddr, ToAddrs, CCAddrs, Subject, Body: string;
  const AttachFiles: array of string);
var
  SMTP: TIdSMTP;
  Msg: TIdMessage;
  SSLIO: TIdSSLIOHandlerSocketOpenSSL;
  FileName: string;
begin
  SMTP := TIdSMTP.Create(nil);
  Msg := TIdMessage.Create(nil);
  try
    // SSL 設定
    if UseSSL then
    begin
      SSLIO := TIdSSLIOHandlerSocketOpenSSL.Create(SMTP);
      SSLIO.SSLOptions.Method := sslvTLSv1_2;
      SSLIO.SSLOptions.Mode := sslmClient;
      SMTP.IOHandler := SSLIO;
      SMTP.UseTLS := utUseExplicitTLS; // STARTTLS
    end;

    SMTP.Host := SMTPHost;
    SMTP.Port := SMTPPort;
    SMTP.Username := Username;
    SMTP.Password := Password;

    // 郵件內容
    Msg.From.Address := FromAddr;
    Msg.Recipients.EMailAddresses := ToAddrs;
    if CCAddrs <> '' then Msg.CCList.EMailAddresses := CCAddrs;
    Msg.Subject := Subject;
    Msg.Body.Text := Body;
    Msg.Encoding := meMIME;

    // 附件
    for FileName in AttachFiles do
      if FileExists(FileName) then
        TIdAttachmentFile.Create(Msg.MessageParts, FileName);

    // 發送
    SMTP.Connect;
    try
      SMTP.Send(Msg);
    finally
      SMTP.Disconnect;
    end;
  finally
    Msg.Free;
    SMTP.Free;
  end;
end;

表單呼叫範例

procedure TForm1.btnSendClick(Sender: TObject);
begin
  SendMailWithAttachment(
    'smtp.gmail.com', 587, True,
    'your@gmail.com', 'app_password',
    'your@gmail.com', 'to@example.com', '',
    '測試主旨', '這是測試內文',
    [EditAttachment.Text]); // 陣列可多檔
end;

常見問題排查

現代化建議

• 使用 TIdSMTP 非同步方法 (BeginSend/EndSend) 避免 UI 凍結。
• 支援 OAuth 2.0 (Gmail/Outlook) 需自行實作 Token 取得並用 XOAUTH2 SASL 機制，或改用圖形化郵件 API (Gmail API, Microsoft Graph)。

1. 上一篇文章： Delphi 使用 TWebBrowser 嵌入網頁做為程式介面：HTML/CSS/Flash 打造炫酷 UI
2. 下一篇文章： Delphi TServerSocket/TClientSocket 開發 TCP 通訊程式：多客戶端伺服器架構

Delphi

GDI+ 圖片自由縮放與八控制點拖曳調整大小範例

效果展示 核心機制 圖片以矩形 rt 定義位置與大小

TClientDataSet 進階 [23]：使用資料集欄位建立巢狀資料結構

TDataSetField 可將一個 TClientData

Delphi 實作 CRC32 檔案校驗碼計算完整範例

前言：什麼是 CRC32？ 循環冗餘檢查（Cyclic Re

Delphi 客戶端透過 COM Bridge 存取 EJB 元件：J2EE 整合實戰方案

J2EE CAS COM Bridge 架構原理 Sun 提