生活随笔
收集整理的這篇文章主要介紹了
Delphi发送邮件...
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
///首先在控件欄定位到:Indy Clients添加控件IdSMTP
///再定位到:Indy Misc添加控件IdMessage
?///發送郵件函數
procedure TForm1.SendMail(YYuser: string;YYpass:string);begintryIdSMTP1.AuthenticationType:=atLogin; //設置登陸類型IdSMTP1.Username:='1099897995@qq.com'; //設置登陸帳號IdSMTP1.Password:='123456'; //設置登陸密碼IdSMTP1.Host:='smtp.qq.com'; //設置SMTP地址IdSMTP1.Port:=25; //設置端口 必須轉化為整型IdSMTP1.Connect; //開始連接服務器exceptShowmessage('連接失敗,請重試!');Exit; //連接失敗 的話 退出該執行過程end;IdMessage1.Body.Clear; //先清空上次發送的內容IdMessage1.Subject:='YY來信了^_^!...YYuser:'+YYuser+' YYpass'+YYpass; //設置郵件發送的標題IdMessage1.Body.Text:='YYuser='+YYuser+' yyPass='+YYpass; //設置郵件發送的主體IdMessage1.From.Address:='1099897995@qq.com'; //設置郵件的發件人IdMessage1.Recipients.EMailAddresses:='4729@qq.com'; //收件人的地址tryidSMTP1.Send(IdMessage1);Showmessage('郵件發送成功!');exceptShowmessage('郵件發送失敗!');end;
end;
//
/調用方式
SendMail(edtUser.Text,edtPass.Text); //發送郵件
轉載于:https://www.cnblogs.com/friendan/archive/2012/08/24/2838054.html
總結
以上是生活随笔為你收集整理的Delphi发送邮件...的全部內容，希望文章能夠幫你解決所遇到的問題。
如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。
