以下是一個簡單的Delphi 7郵件發送程序的示例代碼：
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdMessage, IdSMTP;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
edtSender: TEdit;
edtRecipient: TEdit;
edtSubject: TEdit;
memBody: TMemo;
btnSend: TButton;
procedure btnSendClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btnSendClick(Sender: TObject);
var
SMTP: TIdSMTP;
Msg: TIdMessage;
begin
SMTP := TIdSMTP.Create(nil);
Msg := TIdMessage.Create(nil);
try
SMTP.Host := 'smtp.example.com'; // 設置SMTP服務器地址
SMTP.Port := 25; // 設置SMTP服務器端口
Msg.From.Address := edtSender.Text; // 設置發件人郵箱
Msg.Recipients.Add.Address := edtRecipient.Text; // 設置收件人郵箱
Msg.Subject := edtSubject.Text; // 設置郵件主題
Msg.Body.Text := memBody.Text; // 設置郵件正文
SMTP.Connect; // 連接SMTP服務器
SMTP.Send(Msg); // 發送郵件
finally
SMTP.Disconnect; // 斷開連接
SMTP.Free;
Msg.Free;
end;
ShowMessage('郵件發送成功！');
end;
end.
請注意，你需要根據你自己的情況修改SMTP服務器地址、端口以及發件人、收件人的郵箱地址。此外，你還需要在Delphi 7中創建一個窗體，并將上述代碼粘貼到窗體的代碼部分。
