unit smtp;
inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls, idbasecomponent, idcomponent, idtcpconnection,
idtcpclient, idmessageclient, idsmtp, idmessage, extctrls;
type
tform1 = class(tform)
edit1: tedit;
edit2: tedit;
edit3: tedit;
btn1: tbutton;
edit4: tedit;
edit5: tedit;
edit6: tedit;
idsmtp1: tidsmtp;
idmessage1: tidmessage;
memo1: tmemo;
btn2: tbutton;
edit8: tedit;
edit7: tedit;
tmr1: ttimer;
procedure btn1click(sender: tobject);
procedure btn2click(sender: tobject);
private
public
end;
var form1: tform1;
i: integer;
n: integer;
implementation
procedure tform1.btn1click(sender: tobject);
begin
tmr1.enabled:=true;//啟動定時器
tryidsmtp1.authenticationtype:=atlogin; //設定登陸型別
idsmtp1.username:=edit1.text; //設定登陸帳號
idsmtp1.password:=edit2.text; //設定登陸密碼
idsmtp1.host:=edit3.text; //設定smtp位址
idsmtp1.port:=strtoint(edit4.text); //設定埠 必須轉化為整型
idsmtp1.connect; //開始連線伺服器
except
showmessage('連線失敗,請重試!');
exit; //連線失敗 的話 退出該執行過程
end;
idmessage1.body.clear; //先清空上次傳送的內容
idmessage1.subject:=edit5.text; //設定郵件傳送的標題
idmessage1.body.assign(memo1.lines); //設定郵件傳送的主體
idmessage1.from.address:=edit6.text; //設定郵件的發件人 也就是說該郵件來自什麼地方
idmessage1.recipients.emailaddresses:=edit7.text; //收件人的位址
tryidsmtp1.send(idmessage1);
showmessage('郵件傳送成功!');
except
showmessage('郵件傳送失敗!');
end;
end;
procedure tform1.btn2click(sender: tobject);
begin
tryn:=strtoint(edit8.text);
for i:=1 to n do
begin
idsmtp1.send(idmessage1);
end;
showmessage('郵件傳送成功!');
except
showmessage('郵件傳送失敗!');
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...
定時傳送郵件
香港那邊的公司的erp糸統是bs模式，由於對方公司伺服器環境條件與解決方案要簡單的限制，我和我師傅決定用第三種方法。在程式設計之前，先介紹一下global.asax檔案裡的幾個方法。protected void protected void 下面是具體的做法 protected void new t...