mail附件下載的問題!! |
|
s556989
一般會員 發表:5 回覆:1 積分:1 註冊:2006-07-19 發送簡訊給我 |
|
ching042313
一般會員 發表:13 回覆:9 積分:4 註冊:2009-11-02 發送簡訊給我 |
|
ching042313
一般會員 發表:13 回覆:9 積分:4 註冊:2009-11-02 發送簡訊給我 |
procedure TForm1.down(Sender: TObject); //下載附件
var i:integer; filename:string; fn:string; filen:file; begin i:=listview2.Selected.Index 1; //listview2為附件名稱所顯示位置 filename:=listview2.Selected.Caption; savedialog1.FileName:=filename; if savedialog1.Execute then begin TIdAttachment(msg.MessageParts.Items[i]).SaveToFile(savedialog1.FileName); //msg為擷取並分析的郵件資料 end; end; 這樣就能下在附件並重新決定所下在附件名稱,希望對你有所幫助
------
小伊
編輯記錄
|
ching042313
一般會員 發表:13 回覆:9 積分:4 註冊:2009-11-02 發送簡訊給我 |
procedure TForm1.down(Sender: TObject); //下載
var p:integer; filename:string; spatch:string; begin if listview2.Selected=nil then begin application.MessageBox('尚未選取附件!!','訊息',64); end else begin p:=listview2.Selected.Index 1; filename:=listview2.Selected.Caption; savedialog1.FileName:=filename; if savedialog1.Execute then begin if (msg.MessageParts.Items[p] is TIdAttachment) then begin spatch:=savedialog1.FileName; label2.Caption:=spatch; checkn(spatch,p); end else begin spatch:=savedialog1.FileName; label2.Caption:=spatch; checkn(spatch,p 2); end; end; end; end; procedure TForm1.checkn(spatch:string;p:integer); begin if (FileExists(spatch)) then begin if Application.MessageBox(pchar(spatch #10#13 '檔案已存在,是否覆蓋檔案'),'警告',mb_yesno)=mryes then begin DeleteFile(spatch); TIdAttachment(msg.MessageParts.Items[p]).SaveToFile(savedialog1.FileName); end; end else begin if Application.MessageBox(pchar(spatch),'儲存檔案',mb_yesno)=mryes then begin TIdAttachment(msg.MessageParts.Items[p]).SaveToFile(savedialog1.FileName); end; end; end; 這樣就可以完全正確下載及加入了防呆機制
------
小伊 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |