unit unit1;
inte***ce
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
public
end;
varform1: tform1;
implementation
procedure tform1.btn1click(sender: tobject);
vari: integer;
semail, sfullname: string;
begin
semail :='[email protected]';//semail 用於臨時儲存收件者的郵箱位址如我本人的:[email protected]
if trim(semail) <> '' then
begin
with mailmessage do
begin
clear; // 清除前一次產生的 body & headerm, 以免第二次按時重複
body.assign(mmo1.lines); //郵件正文
from.text :='[email protected]'; // 傳送者的郵箱位址
recipients.emailaddresses := semail ; // 前面申請的收件者位址變數
subject := '你好嗎，親愛的'; //寫入郵件主題
//priority := tidmessagepriority(2);//設定傳送的優先順序 0-4, 0表示最高優先順序
cclist.emailaddresses :='[email protected]';//如果要抄送可以在這裡進行操作
// receiptrecipient.text := from.text; //若要寄件回函,那麼就新增這行
end;
// 以下幾行**就是傳送email的驗證使用者名稱及密碼**:
smtp.authenticationtype := atlogin;
smtp.username :='weifengx10';//如傳送者的email位址為'[email protected]'那麼在此時可以在使用者名稱中填入'a123456'
smtp.password := 'weifeng123';//'在所在的郵件伺服器中註冊的密碼'
//一般設定
smtp.host := 'smtp.163.com';//一般傳送郵件伺服器的位址都以smtp.***x.com進行,如此時的126郵箱的為:smtp.126.com;
smtp.port := 25;//發郵件者的傳送郵件伺服器端口號,一般為25要注意的是這裡25是乙個integer型別的.
//傳送
trysmtp.connect;//與發件者伺服器建立連線
trysmtp.send(mailmessage);//傳送email內容至收件者.
showmessage('send email successful.');
finally
smtp.disconnect;//此時不管傳送是否成功與否都將free掉所佔的資源
end;
except
on e:exception do
begin
showmessage('send email unsuccessful.' + e.message);//當連線錯誤時顯示具體錯誤資訊.
end;
end;
end;
end;
end.
Delphi傳送郵件
首先在控制項欄定位到 indy clients新增控制項idsmtp 再定位到 indy misc新增控制項idmessage 傳送郵件函式 procedure tform1.sendmail yyuser string yypass string begin tryidsmtp1.authenti...
Delphi傳送郵件
首先在控制項欄定位到 indy clients加入控制項idsmtp 再定位到 indy misc加入控制項idmessage 傳送郵件函式 procedure tform1.sendmail yyuser string yypass string begin tryidsmtp1.authenti...
delphi郵件定時傳送
unit smtp inte ce uses windows,messages,sysutils,variants,classes,graphics,controls,forms,dialogs,stdctrls,idbasecomponent,idcomponent,idtcpconnection...