unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,Forms,
Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdMessageClient, IdSMTP, StdCtrls;
type
TForm1 = class(TForm)
btn1: TButton;
SMTP: TIdSMTP;
MailMessage: TIdMessage;
mmo1: TMemo;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
Var
i: integer;
sEmail, sFullName: string;
begin
sEmail :='411714050@qq.com';//sEmail 用于临时保存收件者的邮箱地址如我本人的:pro-xu@msn.com
if Trim(sEmail) <> '' then
begin
w