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