DELPHI中用indy控件發(fā)郵件

1、DELPHI用Indy的idsmtp,idmessage發(fā)送EMAIL3/建立一個(gè)FORM，分別各添加一個(gè) IdSMTP1,IdMessage1。IdSMTP1(在Indy Clients頁面), IdMessage1(在Indy Misc頁面)再添加Edit1、Edit2. Edit8 和對(duì)應(yīng)的label1、label2.label8。再添加一個(gè)memo1。代碼如下：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCt

2、rls, Buttons, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP;type TForm1 = class(TForm) IdSMTP1： TIdSMTP; IdMessage1： TIdMessage; BitBtn1： TBitBtn; Label1： TLabel; Edit1： TEdit; Label2： TLabel; Edit2： TEdit; Label3： TLabel; Edit3： TEdit; Label4： TLabel

3、; Edit4： TEdit; Label5： TLabel; Edit5： TEdit; Label6： TLabel; Edit6： TEdit; Label7： TLabel; Edit7： TEdit; Label8： TLabel; Edit8： TEdit; Memo1： TMemo; procedure BitBtn1Click(Sender： TObject); private Private declarations public Public declarations end;var Form1： TForm1;implementation$R *.dfmprocedure

4、 TForm1.BitBtn1Click(Sender： TObject);begin try IdSMTP1.AuthenticationType：=atLogin; /設(shè)置登陸類型 IdSMTP1.Username ：= Edit2.Text; /服務(wù)器上的用戶名 IdSMTP1.Password ：= Edit3.Text; /服務(wù)器上的密碼 IdSMTP1.Host ：= Edit1.Text; / 服務(wù)器SMTP地址 如： IdSMTP1.Port ：=strtoint(Edit4.text); / 服務(wù)器端口25; IdSMTP1.Connect; except Showmessa

5、ge(連接失敗,請(qǐng)重試!); Exit; /連接失敗的話 退出該執(zhí)行過程 end; IdMessage1.ContentType：= text/html; /注意此句最好加上，如果body中是html語句，那么這個(gè)必須要。 IdMessage1.Body.Add(Memo1.Lines.Text); /能夠是文本也能夠是html IdMessage1.From.address：=Edit8.Text; / 發(fā)件人地址 IdMessage1.Recipients.EMailAddresses：=Edit7.Text; / 收信人地址 IdMessage1.Subject：=Edit5.Text; / 郵件標(biāo)題 IdMessage1.Priority：=mphigh; /優(yōu)先級(jí)，mphigh為最高級(jí)。 try IdSMTP1.Authenticate; /這句必須加才能發(fā)郵件 IdSMTP1.Send(IdMessage1); /發(fā)送郵件 except Showmessage(發(fā)送失敗,請(qǐng)重試!); IdSMTP1.Dis