我弄了之程式 在收信方面 無法把信件的附加檔案 下載下來!!!! 但是顯示的出來附件 請問有人知道如何把附件下載下來ㄇ!!??

你的問題就是我的問題
現在只知道可以用Base64Decode(TIdAttachment(IdMessage1.MessageParts.Items[i]).FileName)
取得附件名稱

------
小伊

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;
這樣就能下在附件並重新決定所下在附件名稱，希望對你有所幫助

------
小伊

編輯記錄

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;
這樣就可以完全正確下載及加入了防呆機制

------
小伊