我贴的样例中已有保存附件为文件的功能,再贴一次:
procedure TjobForm.btnSaveClick(Sender: TObject);
begin
SaveDialog1.FileName := recvAtach.Text;
if SaveDialog1.Execute then
//就是这部分......
SakMsgList[iMailRecvCurrentMsg].AttachedFiles[recvAtach.ItemIndex].SaveToFile(saveDialog1.FileName);
end;