outlook二次开发里要让保存附件时覆盖同名文件时弹出询问要怎么做？

Question

我用Delphi为Outlook2003添加了一个按钮，功能是把指定邮件的附件保存到本地上。我用了saveasfile函数，但是会把本地的同名文件覆盖。我希望能弹出对话框选择是否覆盖，请问代码要怎么写？

Answer 1

你不会在调用saveasfile前判断文件是否存在吗

Answer 2

用API MessageBox弹出个对话框问用户是否覆盖啊
另,保存附件接口应该有方法是弹出"另存为..."对话框的吧,找找看

Answer 3

var
i:integer;
begin
if FileExists('filename') then
   begin
   i:=Application.MessageBox('文件已经存在，是否要覆盖？','提示对话框',MB_YESNO);
   if i=IDYES then
      begin
      //覆盖
      end
      else if i=IDNO then
      begin
      //不覆盖
      end;
   end;
end;

Answer 4

感谢ysai 和hys_427 的指导