delphi 7郵件發(fā)送程序編寫(xiě)

以下是一個(gè)簡(jiǎn)單的Delphi 7郵件發(fā)送程序的示例代碼：

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'; // 設(shè)置SMTP服務(wù)器地址
SMTP.Port := 25; // 設(shè)置SMTP服務(wù)器端口
Msg.From.Address := edtSender.Text; // 設(shè)置發(fā)件人郵箱
Msg.Recipients.Add.Address := edtRecipient.Text; // 設(shè)置收件人郵箱
Msg.Subject := edtSubject.Text; // 設(shè)置郵件主題
Msg.Body.Text := memBody.Text; // 設(shè)置郵件正文
SMTP.Connect; // 連接SMTP服務(wù)器
SMTP.Send(Msg); // 發(fā)送郵件
finally
SMTP.Disconnect; // 斷開(kāi)連接
SMTP.Free;
Msg.Free;
end;
ShowMessage('郵件發(fā)送成功！');
end;
end.

請(qǐng)注意，你需要根據(jù)你自己的情況修改SMTP服務(wù)器地址、端口以及發(fā)件人、收件人的郵箱地址。此外，你還需要在Delphi 7中創(chuàng)建一個(gè)窗體，并將上述代碼粘貼到窗體的代碼部分。