Fehler bei Versenden Mail per Outlook

[FBrust]

Hallo,

mit folgendem Code versende ich in Delphi eine Mail über Outlook:

Delphi-Quellcode:

    if intMWMail = 0 then
    begin
      WriteLog('Übergebe Textdatei an Outlook...');
      try
        oleOutlook := GetActiveOleObject('Outlook.Application');
      except
        oleOutlook := CreateOleObject('Outlook.Application');
      end;
      strMailText := 'QM-Daten von ' + strCustName + ', Datum ' +
                     FormatDateTime('dd.mm.yyyy', Now);

      TaskItem := oleOutlook.CreateItem(oleMailItem);

      TaskItem.To := GetMailRecipients(intCustID, 0,'Stichprobenergebnis (Textdatei)');
      TaskItem.Subject := 'QM-Daten ' + strCustName;  //  zur Laufzeit bilden
      TaskItem.Body := strMailText;
      vrAttach := TaskItem.Attachments;

      vrAttach.Add(strOldFileName);
      TaskItem.Send;
      oleOutlook := Unassigned;
      WriteLog('...Übergabe Textdatei an Outlook abgeschlossen');
    end;

Das funktioniert auch soweit.

Allerdings habe ich heute auf einem Rechner die folgende Fehlermeldung erhalten:

"Die SaveAs-Methode des Workbooks konnte nicht ausgeführt werden."

Ich hab mal im Internet gesucht, aber nur Hinweise zu Excel gefunden.

Hat vielleicht jemand einen Tip wg. der Ursache oder schonmal sowas erlebt?


Grüße
Frank