Delphi2009的Indy全接触之SMTP篇

使用TIdSMTP及TIdMessage控件实现邮件发送功能。
如下图所示新建工程：

后台代码如下：

1. unit Unit1;
3. interface
5. uses
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7.   Dialogs, StdCtrls, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,
8.   IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase,
9.   IdSMTP;
11. type
12.   TForm1 = class(TForm)
13.     Label1: TLabel;
14.     Edit1: TEdit;
15.     Label2: TLabel;
16.     Edit2: TEdit;
17.     Label3: TLabel;
18.     Edit3: TEdit;
19.     Label4: TLabel;
20.     Edit4: TEdit;
21.     ListBox1: TListBox;
22.     Button1: TButton;
23.     IdSMTP1: TIdSMTP;
24.     IdMessage1: TIdMessage;
25.     memoMsg: TMemo;
26.     Label5: TLabel;
27.     Edit5: TEdit;
28.     Label6: TLabel;
29.     Edit6: TEdit;
30.     procedure FormCreate(Sender: TObject);
31.     procedure IdSMTP1Status(ASender: TObject; const AStatus: TIdStatus;
32.       const AStatusText: string);
33.     procedure Button1Click(Sender: TObject);
34.   private
35.     { Private declarations }
36.   public
37.     { Public declarations }
38.     procedure Status(AMsg: string);
39.   end;
41. var
42.   Form1: TForm1;
44. implementation
46. {$R *.dfm}
48. uses INIFiles;
50. procedure TForm1.Button1Click(Sender: TObject);
51. begin
52.   Button1.Enabled := False;
53.   try
54.     with IdMessage1 do begin
55.       Clear;
56.       From.Text := Trim(Edit1.Text);
57.       Recipients.Add.Text := Trim(Edit2.Text);
58.       Subject := Trim(Edit5.Text);
59.       Body.Assign(memoMsg.Lines);
60.     end;
61.     with IdSMTP1 do begin
62.       Host := Trim(Edit6.Text);
63.       Username := Edit3.Text;
64.       Password := Edit4.Text;
65.       Connect; try
66.         Send(IdMessage1);
67.       finally
68.         Disconnect;
69.       end;
70.     end;
71.     Status('Completed');
72.   finally
73.     Button1.Enabled := True;
74.   end;
75. end;
77. procedure TForm1.FormCreate(Sender: TObject);
78. var
79.   LINIFile: string;
80. begin
81.   LINIFile := 'c:/SMTP.ini';
82.   if FileExists(LINIFile) then begin
83.     with TINIFile.Create(LINIFile) do
84.     try
85.       Edit1.Text := ReadString('Main', 'From', '');
86.       Edit2.Text := ReadString('Main', 'To', '');
87.       Edit3.Text := ReadString('Main', 'UserName', '');
88.       Edit4.Text := ReadString('Main', 'Password', '');
89.       Edit5.Text := ReadString('Main', 'Subject', '');
90.       Edit6.Text := ReadString('Main', 'SMTP Server', '');
91.       memoMsg.Lines.Text := ReadString('Main', 'Message', '');
92.     finally
93.       Free;
94.     end;
95.   end;
96. end;
98. procedure TForm1.IdSMTP1Status(ASender: TObject; const AStatus: TIdStatus;
99.   const AStatusText: string);
100. begin
101.   Status(AStatusText);
102. end;
104. procedure TForm1.Status(AMsg: string);
105. begin
106.   ListBox1.ItemIndex := ListBox1.Items.Add(AMsg);
108.   Application.ProcessMessages;
109.   Application.ProcessMessages;
110.   Application.ProcessMessages;
111. end;
113. end.

在C盘根目录下新建文件：SMTP.ini
文件内容格式如下：

1. [Main]
2. From=XXXXXXXX@sina.com
3. To=ZZZZZZZZ@hotmail.com
4. Subject=Test
5. SMTP Server=smtp.sina.com
6. Message=I Miss You!
7. UserName=XXXXXXXX
8. Password=YYYYYYYY