Delphi發email

控制元件

smtp: TIdSMTP;
MgeSend: TIdMessage;

程式碼

procedure TForm1.Button1Click(Sender: TObject);
begin
SMTP.Host:='smtp.163.com';
smtp.Username:='zhm001x@163.com';
smtp.Password:='paswrd';
smtp.Port:=25;
smtp.Connect(); idsmtp1.AuthenticationType:=atLogin;
MgeSend.Recipients.EMailAddresses:='zhm001x@qq.com';
MgeSend.From.Text :='zhm001x@163.com';
MgeSend.Subject:='test';
MgeSend.Body.Text:='發郵件測試';
SMTP.Authenticate;
Smtp.Send(mgeSend);
end;

==============================================

在主form1上新增 兩個button，一個IdSMTP1，一個IdMessage1。
然後，
1，先連線伺服器
程式碼：
procedure TMainForm.Button1Click(Sender: TObject);
begin
IdSMTP1.Username :='XXXX'; //伺服器上的使用者名稱
IdSMTP1.Password :='XXXX'; //伺服器上的密碼
IdSMTP1.Host :='XXX.XXX.com'; //伺服器SMTP地址
IdSMTP1.Port :=25; //伺服器埠
IdSMTP1.Connect; //建立連線
end;
2，傳送郵件
程式碼：
procedure TMainForm.Button2Click(Sender: TObject);
begin
IdMessage1.Body.Add( ' 呵呵，感謝' ); //郵件正檔案內容
IdMessage1.From.address :='XXX@XXX.com'; //發件人地址
IdMessage1.Recipients.EMailAddresses :='XXX@XXX.com'; //收件人地址，這裡改為你的EMAIL地址
IdMessage1.Subject:='傳送郵件就這麼簡單' ; //郵件標題
IdMessage1.Priority := mphigh; //優先順序，mphigh為最高階。
IdSMTP1.Send(IdMessage1); //傳送郵件
end;
//注意以上XXX為代指，以實際情況而定。測試看看吧

[@more@]

hehehha