讀取資料庫資料自動發mail |
答題得分者是:pigbaby
|
hahalin
版主 發表:295 回覆:1698 積分:823 註冊:2002-04-14 發送簡訊給我 |
|
yachanga
資深會員 發表:24 回覆:335 積分:296 註冊:2003-09-27 發送簡訊給我 |
|
Mickey
版主 發表:77 回覆:1882 積分:1390 註冊:2002-12-11 發送簡訊給我 |
|
pigbaby
初階會員 發表:2 回覆:84 積分:47 註冊:2002-09-02 發送簡訊給我 |
豬寶寶的做去是另有一台server 在該server上執行schedule的程式
可以設定時間一到就執行特定工作(例如寄送MAIL或是其他例行性工作)
豬寶寶是寫了一個函數當執行完該工作時就呼叫寄送MAIL的功能
把產生的報表直接寄給設定好的人 PS.此方式僅供參考,如果有更好的方式請告訴豬寶寶
謝謝^^ PROCEDURE TINDY_FORM.SENDMAIL(mFROM:STRING;mTO:STRING;mTITLE:STRING;mBODY:TSTRINGLIST;mATT_FILE:STRING='');
VAR MAIL_HOST:STRING;
begin
MAIL_HOST:='MAIL.DOMAIN.NAME';
if mbody<>nil then
INDY_FORM.MSG.Body.Assign(mBODY); INDY_FORM.msg.From.Text:=mFROM; //從那邊來的
INDY_FORM.msg.Recipients.EMailAddresses:=mTO; //要給誰
INDY_FORM.msg.Subject:=mTITLE; //信件抬頭
IF mATT_FILE<>'' THEN //如果有設定要附寄的檔案,就產生要送的檔案
BEGIN
TIdAttachment.Create(INDY_FORM.msg.MessageParts,mATT_FILE);
END;
INDY_FORM.smtp.Host:=MAIL_HOST; //設定SMTP SERVER INDY_FORM.smtp.Connect; //設定SMTP 連結
try
INDY_FORM.smtp.Send(indy_form.msg); //設定SMTP 傳送
finally
INDY_FORM.smtp.Disconnect;
mBODY.Free;
end; END;
|
hahalin
版主 發表:295 回覆:1698 積分:823 註冊:2002-04-14 發送簡訊給我 |
|
japhenchen
高階會員 發表:51 回覆:444 積分:184 註冊:2003-07-23 發送簡訊給我 |
|
pigbaby
初階會員 發表:2 回覆:84 積分:47 註冊:2002-09-02 發送簡訊給我 |
引言: 感謝yachanga法國號同學的回應 感謝Mickey長老的指引 感謝豬寶寶的指示 目前看來豬寶寶的方式還不錯唷 我就先朝這個方向進行 有研究出來成果會分享給大家 只不過 到底要作成附加檔案 或是像ktop的訂閱討論區一樣 收到信的內容就是html格式的, 如果是這樣就得在多研究了... 不知道豬寶寶怎麼作的...豬寶寶的做法是直接做成附件檔給user 個人的看法是認為 附件檔的彈性比較大 像有些user需要excel 有些卻需要word 更甚者有些只需要intranet 的link 這麼多種需求要豬寶寶轉成統一格式 實在是做不來 所以豬寶寶才會統一用附件檔 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |