在delphi2010中拖idsmtp和idmessage這倆個控制項。就能夠傳送郵件了。
在buttonbtn1的click事件下寫例如以下**：
值得注意的是：1、你用哪個郵箱的server，在idsmtp1.host:='smtp.qq.com'這都是有差別的。另外還需在所用的郵箱中設定賬號裡面開啟smtp服務。
傳送郵件內容時，假設不指定idmessage1.charset:='utf-8';//，則傳送內容中文顯示為亂碼。
varfilename: string;
begin //傳送郵件主函式
try// idssliohandlersocket1.ssloptions.method:=sslvsslv3;
idssliohandlersocket1; //差別在這兒喲
//設定登陸型別
idsmtp1.username:='你的郵箱賬號'; //設定登陸帳號
idsmtp1.password:='密碼'; //設定登入password
idsmtp1.host:='smtp.qq.com'; //設定smtp位址
idsmtp1.port:=25; //設定port ,預設是25，
//在你的qq郵箱中——設定——賬戶開啟smtp服務，否則報錯 //
if not idsmtp1.connected then
begin
idsmtp1.connect; //開始連線server
end;
except
showmessage('連線失敗,請重試!');
exit; //連線失敗 的話 退出該執行過程
end;
idmessage1.charset:='utf-8';//j解決傳送內容為中文亂碼
idmessage1.body.clear; //先清空上次傳送的內容
idmessage1.subject:='delphi郵件傳送測試'; //設定郵件傳送的標題
idmessage1.body.text:= edt1.text;
//設定郵件傳送的主體
// filename := 'c:\檔案.txt'; //須要加入的附件檔案
filename); //加入附件
idmessage1.from.address:= '郵箱賬號'; //設定郵件的發件人 也就是說該郵件來自什麼地方
idmessage1.from.name := '逍遙';
idmessage1.recipients.emailaddresses:= '***@qq.com'; //收件人的位址
idmessage1.cclist.emailaddresses:='***@qq.com';//抄送
// idmessage1.bcclist.emailaddresses:='[email protected]'; //密送
// idmessage1.priority:=mphighest; //郵件重要性
tryidsmtp1.authenticate;
idsmtp1.send(idmessage1);
showmessage('傳送成功!');
except
showmessage('郵件傳送失敗!');
end;
end;
八 傳送郵件
傳送郵件 如下 from email.mime.text import mimetext from email.header import header import smtplib import datetime from poseidon.myutil import myutil import ...
SQL2005 傳送郵件
最近在csdn上面看了 實現統計乙個表的記錄數,如果每天超過一定數量就傳送郵件報警的作業指令碼 帖子。但是上面好多的意見多是在sql2000上面的。於是自己就開始了一下在sql2005上面的實踐。1。首先要啟用資料庫郵件儲存過程。具體操作如下 在 開始 選單上，依次指向 所有程式 microsoft...
yii2傳送郵件
通過yii2自帶的mailer來傳送郵件。具體步驟如下 1.配置檔案 主要關注mail那部分的配置，需要配置在元件裡面 return components mail class extensions mailer mailer viewpath common mail usefiletranspor...