代码如下： if TIdAttachment(IdMessage1.MessageParts.Items[i]).SaveToFile        ('C:\Temp.dat') then //运行这句后出错               AdoOAEAttach.Parameters.ParamByName('attach').LoadFromFile('C:\Temp.dat', ftBlob);    报错如图： 有时错有时对，不知道是怎么回事，请帮忙

http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&selm=3f4b2f0b%40newsgroups.borland.com&rnum=2

  if (Msg.MessageParts.Count <> 0) OR
     (Pos('multipart/', Msg.ContentType) <> 0) then
  begin
    // try to fix the quoted-printable bug
    with Msg.MessageParts do
      if (Count = 1) and
         (Items[0] is TidText) and
         (Items[0].ContentType = '') then
        Items[0].ContentType := Msg.ContentType;        // this is a multipart mime message msg.body is invalid
    for j := 0 to Msg.MessageParts.Count - 1 do
    begin
      if (Msg.MessageParts.Items[j] is TIdAttachment) then
      begin
        // handle attachments            // take out some special characters
        fName :=
GenerateSaveFileName(TIdAttachment(Msg.MessageParts.Items[j]).Filename);
        att := attachmentPath   '\'   fName;
        att := GenerateUniqueFileName(att);
        try
          TIdAttachment(Msg.MessageParts.Items[j]).SaveToFile(att); 
          attList := attList   ExtractFileName(att)   Chr(13);
        except on e:Exception do
          WriteToLog('EMAIL: exception in domessages: ' e.Message '
while saving to ' att ' of msg nr. ' inttostr(i));
        end; {end try}          end else
        // handle body text
      if Msg.MessageParts.Items[j] is TIdText then
          if Pos('text/plain', Msg.MessageParts[j].ContentType) > 0 then
            // It's a text part...
            for k := 0 to
TIdText(Msg.MessageParts.Items[j]).Body.Count-1 do // save body text
              mensagem := mensagem  
TIdText(Msg.MessageParts.Items[j]).Body.Strings[k]  Chr(13) Chr(10)
          else if Pos('text/html', Msg.MessageParts[j].ContentType) > 0
then
              // It's a HTML part
              for k := 0 to
TIdText(Msg.MessageParts.Items[j]).Body.Count-1 do // save body text
                mensagemHTML := mensagemHTML  
TIdText(Msg.MessageParts.Items[j]).Body.Strings[k]  Chr(13) Chr(10);
    end; { end for }
  end else { end if }
  begin
    // this is a text/* message
    // idMessage.Body contains the entire body
    for j := 0 to Msg.Body.Count-1 do // save body text
      mensagem := mensagem   Msg.Body.Strings[j]   Chr(13) Chr(10);
  end;    

请教大大： fName := GenerateSaveFileName(TIdAttachment(Msg.MessageParts.Items[j]).Filename); att := attachmentPath '\' fName; att := GenerateUniqueFileName(att); GenerateSaveFileName和attachmentPath 是怎么定义的

我想重點不在 GenerateSaveFileName 因沒有看過您完整的碼, 所以猜測可能是您沒做 if (Msg.MessageParts.Items[j] is TIdAttachment) 這個檢查 所以有時出錯有時正確

我的代码如下： IdMessage1.MessageParts.CountParts; if IdMessage1.MessageParts.AttachmentCount > 0 then begin for i := 0 to IdMessage1.MessageParts.Count - 1 do begin if (IdMessage1.MessageParts.Items[i] is TIdAttachment) then begin AdoOAEAttach.Parameters.ParamByName('attachname').Value := Base64Decode(TIdAttachment(IdMessage1.MessageParts.Items[i]).FileName); fName := Base64Decode(TIdAttachment(IdMessage1.MessageParts.Items[i]).Filename); if TIdAttachment(IdMessage1.MessageParts.Items[i]).SaveToFile(fName) then AdoOAEAttach.Parameters.ParamByName('attach').LoadFromFile(fName, ftBlob); AdoOAEAttach.ExecSQL; 请问少了什么？

檢查一下 fName := Base64Decode(TIdAttachment(IdMessage1.MessageParts.Items[i]).Filename); 這句 看出錯時, fName 的值是什麼？

就是附件的名称（不带路径的） 有时能保存有时就会出错 出错时调用了下面函数： function TIdAttachment.SaveToFile(const FileName: TFileName): Boolean; begin Result := CopyFileTo(StoredPathname, FileName); if not Result then begin raise EIdException.Create(RSTIdMessageErrorSavingAttachment); end; end;

http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&th=bf369363981694b9&rnum=1 由這篇回答來看, 檢查幾點: 1.要存檔時所得的 fName 值是不是合法的檔名 2.若是合法的檔名的話, 這個檔是不是已經存在了 3.可以用 GetLastError 來取得實際的錯誤訊息

begin
  IdMessage1.MessageParts.CountParts;
  if IdMessage1.MessageParts.AttachmentCount > 0 then
  begin
    for i := 0 to IdMessage1.MessageParts.Count - 1 do
    begin
      if (IdMessage1.MessageParts.Items[i] is TIdAttachment) then
      begin
        AdoOAEAttach.Parameters.ParamByName('attachname').Value := Base64Decode(TIdAttachment(IdMessage1.MessageParts.Items[i]).FileName);
        fName := Base64Decode(TIdAttachment(IdMessage1.MessageParts.Items[i]).Filename);
        if FileExists(fName) then
          DeleteFile(fName);
        try
          if TIdAttachment(IdMessage1.MessageParts.Items[i]).SaveToFile(fName) then
            AdoOAEAttach.Parameters.ParamByName('attach').LoadFromFile(fName, ftBlob);
           AdoOAEAttach.ExecSQL;
        except
          ShowMessage(SysErrorMessage(GetLastError));
        end;
// ...
end;