以下是一个简单的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中创建一个窗体，并将上述代码粘贴到窗体的代码部分。
