Delphi傳送郵件

2021-06-08 20:20:27 字數 1222 閱讀 1477

///首先在控制項欄定位到: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...