下面是一個使用Lazarus IDE開發的基本郵件客戶端實現方案，包含收發郵件和編寫郵件的核心功能。我們將使用Synapse庫（跨平臺的網絡通信庫）來處理郵件協議。

步驟1：安裝依賴

1. 安裝Synapse庫：

   • 下載地址：https://sourceforge.net/projects/synalist/ , 下載 synalist-code-r278-trunk.zip
   • 解壓后，在Lazarus中：Package > Open Package File > 選擇synapse.lpk > Use > Install

2. 安裝OpenSSL庫（用于加密連接）：

   • Windows：下載預編譯的DLL（libeay32.dll和ssleay32.dll）并放在項目目錄
   • Linux：安裝openssl開發包（如sudo apt-get install libssl-dev）

步驟2：創建主窗體（frmMain）

unit mainform;{$mode objfpc}{$H+}interfaceusesClasses, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,ComCtrls, Menus, smtpsend, pop3send, mimemess, mimepart, synautil;typeTAccountSettings = recordSMTPHost: string;SMTPPort: string;POP3Host: string;POP3Port: string;Username: string;Password: string;end;{ TfrmMain }TfrmMain = class(TForm)btnCompose: TButton;btnRefresh: TButton;lvEmails: TListView;memBody: TMemo;MenuItem1: TMenuItem;MenuItem2: TMenuItem;Panel1: TPanel;Panel2: TPanel;pmEmail: TPopupMenu;Splitter1: TSplitter;procedure btnComposeClick(Sender: TObject);procedure btnRefreshClick(Sender: TObject);procedure FormCreate(Sender: TObject);procedure lvEmailsSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);privateFAccount: TAccountSettings;procedure LoadEmails;publicproperty Account: TAccountSettings read FAccount write FAccount;end;varfrmMain: TfrmMain;implementation{$R *.lfm}{ TfrmMain }procedure TfrmMain.FormCreate(Sender: TObject);
begin// 配置郵件賬戶（示例值，需替換為實際賬戶）FAccount.SMTPHost := 'smtp.example.com';FAccount.SMTPPort := '465';FAccount.POP3Host := 'pop.example.com';FAccount.POP3Port := '995';FAccount.Username := 'your@email.com';FAccount.Password := 'yourpassword';
end;procedure TfrmMain.btnRefreshClick(Sender: TObject);
beginLoadEmails;
end;procedure TfrmMain.btnComposeClick(Sender: TObject);
varfrmCompose: TForm;edtTo, edtSubject: TEdit;memContent: TMemo;btnSend: TButton;
begin// 創建編寫郵件窗體frmCompose := TForm.Create(Self);tryfrmCompose.Caption := '撰寫郵件';frmCompose.SetBounds(100, 100, 600, 400);edtTo := TEdit.Create(frmCompose);edtTo.Parent := frmCompose;edtTo.SetBounds(10, 10, 580, 25);edtTo.TextHint := '收件人';edtSubject := TEdit.Create(frmCompose);edtSubject.Parent := frmCompose;edtSubject.SetBounds(10, 45, 580, 25);edtSubject.TextHint := '主題';memContent := TMemo.Create(frmCompose);memContent.Parent := frmCompose;memContent.SetBounds(10, 80, 580, 250);memContent.ScrollBars := ssVertical;btnSend := TButton.Create(frmCompose);btnSend.Parent := frmCompose;btnSend.SetBounds(500, 340, 90, 30);btnSend.Caption := '發送';btnSend.OnClick := procedure(Sender: TObject)varSMTP: TSMTPSend;Mime: TMimeMess;beginSMTP := TSMTPSend.Create;trySMTP.TargetHost := FAccount.SMTPHost;SMTP.TargetPort := FAccount.SMTPPort;SMTP.Username := FAccount.Username;SMTP.Password := FAccount.Password;SMTP.AutoTLS := True;SMTP.FullSSL := True; // 使用SSL加密if SMTP.Login thenbeginMime := TMimeMess.Create;tryMime.Header.ToList.Text := edtTo.Text;Mime.Header.Subject := edtSubject.Text;Mime.Header.From := FAccount.Username;// 添加文本內容Mime.AddPartText(memContent.Lines, nil);Mime.EncodeMessage;if SMTP.MailFrom(FAccount.Username, Length(FAccount.Username)) andSMTP.MailTo(edtTo.Text) andSMTP.MailData(Mime.Lines) thenbeginShowMessage('郵件發送成功!');frmCompose.Close;endelse ShowMessage('發送失敗: ' + SMTP.ResultString);finallyMime.Free;end;endelse ShowMessage('SMTP登錄失敗: ' + SMTP.ResultString);finallySMTP.Free;end;end;frmCompose.ShowModal;finallyfrmCompose.Free;end;
end;procedure TfrmMain.LoadEmails;
varPOP3: TPOP3Send;Mime: TMimeMess;i: Integer;Item: TListItem;
beginlvEmails.Items.BeginUpdate;trylvEmails.Items.Clear;POP3 := TPOP3Send.Create;tryPOP3.TargetHost := FAccount.POP3Host;POP3.TargetPort := FAccount.POP3Port;POP3.Username := FAccount.Username;POP3.Password := FAccount.Password;POP3.AutoTLS := True;POP3.FullSSL := True; // 使用SSL加密if POP3.Login thenbeginfor i := 1 to POP3.Stat dobeginPOP3.Top(i, 0); // 僅獲取郵件頭Mime := TMimeMess.Create;tryMime.Lines.Assign(POP3.FullResult);Mime.DecodeMessage;Item := lvEmails.Items.Add;Item.Caption := Mime.Header.Subject;Item.SubItems.Add(Mime.Header.From);Item.SubItems.Add(DateTimeToStr(Mime.Header.Date));Item.Data := Pointer(i); // 存儲郵件索引finallyMime.Free;end;end;endelse ShowMessage('POP3登錄失敗: ' + POP3.ResultString);finallyPOP3.Free;end;finallylvEmails.Items.EndUpdate;end;
end;procedure TfrmMain.lvEmailsSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
varPOP3: TPOP3Send;Mime: TMimeMess;MailIndex: Integer;
beginif not Selected then Exit;MailIndex := Integer(Item.Data);POP3 := TPOP3Send.Create;tryPOP3.TargetHost := FAccount.POP3Host;POP3.TargetPort := FAccount.POP3Port;POP3.Username := FAccount.Username;POP3.Password := FAccount.Password;POP3.AutoTLS := True;POP3.FullSSL := True;if POP3.Login and POP3.Retr(MailIndex) thenbeginMime := TMimeMess.Create;tryMime.Lines.Assign(POP3.FullResult);Mime.DecodeMessage;memBody.Lines.Text := Mime.MessagePart.Lines.Text; // 顯示純文本部分finallyMime.Free;end;end;finallyPOP3.Free;end;
end;end.

步驟3：程序入口（project.lpr）

program mailclient;usesInterfaces,Forms,mainform;{$R *.res}beginRequireDerivedFormResource := True;Application.Initialize;Application.CreateForm(TfrmMain, frmMain);Application.Run;
end.

功能說明：

1. 郵件接收：

   • 使用POP3協議從服務器獲取郵件列表
   • 顯示郵件主題、發件人和日期
   • 點擊郵件顯示純文本內容

2. 郵件發送：

   • 使用SMTP協議發送郵件
   • 支持SSL/TLS加密
   • 簡單的撰寫界面（收件人、主題、正文）

3. 界面組件：

   • 左側：郵件列表（TListView）
   • 右側：郵件內容（TMemo）
   • 頂部按鈕：刷新列表和撰寫郵件

使用方法：

1. 替換FormCreate中的賬戶信息為實際郵箱服務商提供的數據
2. 根據郵箱服務商要求調整端口號（常用端口）：
   • SMTP SSL: 465/587
   • POP3 SSL: 995

擴展建議：

1. 添加附件支持：

   // 在發送郵件部分添加
   Mime.AddPartBinaryFromFile('附件路徑', 'application/octet-stream');
   

2. HTML郵件支持：

   Mime.AddPartHTML(HTMLContent, nil);
   

3. 多賬戶管理：

   • 創建賬戶管理表單
   • 存儲多個賬戶配置
   • 增加賬戶切換功能

4. 錯誤處理增強：

   • 添加超時處理
   • 網絡異常捕獲
   • 詳細的錯誤日志

5. 安全存儲密碼：

   • 使用加密方式存儲密碼
   • 實現"記住密碼"功能

這個實現提供了基本的郵件客戶端功能，你可以根據需求繼續擴展界面和功能（如文件夾管理、郵件搜索、聯系人管理等）。實際使用時請注意郵箱服務商的安全策略（如部分郵箱需要開啟"允許不安全應用"或設置專用密碼）。