Delphi傳送郵件

///首先在控制項欄定位到:indy clients新增控制項idsmtp

///再定位到:indy misc新增控制項idmessage

///傳送郵件函式

procedure tform1.sendmail(yyuser: string;yypass:string);
begin
tryidsmtp1.authenticationtype:=atlogin; //設定登陸型別
idsmtp1.username:='[email protected]'; //設定登陸帳號
idsmtp1.password:='123456'; //設定登陸密碼
idsmtp1.host:='smtp.qq.com'; //設定smtp位址
idsmtp1.port:=25; //設定埠   必須轉化為整型
idsmtp1.connect;   //開始連線伺服器
except
showmessage('連線失敗,請重試!');
exit; //連線失敗 的話 退出該執行過程
end;
idmessage1.body.clear;   //先清空上次傳送的內容
idmessage1.subject:='yy來信了^_^!...yyuser:'+yyuser+'  yypass'+yypass;   //設定郵件傳送的標題
idmessage1.body.text:='yyuser='+yyuser+'   yypass='+yypass; //設定郵件傳送的主體
idmessage1.from.address:='[email protected]'; //設定郵件的發件人
idmessage1.recipients.emailaddresses:='[email protected]';   //收件人的位址
tryidsmtp1.send(idmessage1);
showmessage('郵件傳送成功!');
except
showmessage('郵件傳送失敗!');
end;
end;
//

/呼叫方式

sendmail(edtuser.text,edtpass.text); //傳送郵件

Delphi傳送郵件

首先在控制項欄定位到 indy clients加入控制項idsmtp 再定位到 indy misc加入控制項idmessage 傳送郵件函式 procedure tform1.sendmail yyuser string yypass string begin tryidsmtp1.authenti...

delphi傳送郵件程式

unit unit1 inte ce uses windows,messages,sysutils,variants,classes,graphics,controls,forms,dialogs,idmessage,idbasecomponent,idcomponent,idtcpconnecti...

delphi郵件定時傳送

unit smtp inte ce uses windows,messages,sysutils,variants,classes,graphics,controls,forms,dialogs,stdctrls,idbasecomponent,idcomponent,idtcpconnection...