Sehr geehrte Damen und Herren,
wir verwenden Excel 2007 und Outlook 2007

Wir erledigen Dienstleistungen für unseren Kunden, dafür habe ich eine Excel Mappe erstellt die der Kunde in seinem Intranet einpflegt. Die Mitarbeiter des Kunden können diese Mappe im Intrant (livelink) öffnen ( nicht downloaden) danach ihre Anforderungen ausfüllen und mit ihrer Anfrage über einen Button (Makro öffnet Outlook und hängt das Excel mit an) an uns senden.

Das hat bisher sehr gut funktioniert, jetzt habe ich einige Änderungen vorgenommen und bekomme nun beim senden aus dem Intranet einen Laufzeitfehler 1004 und weiß nicht wo der Fehler liegt.

Das Makro zum versenden aus dem Intranet in Outlook was bis jetzt funktioniert sieht so aus:

Sub Excel_Workbook_via_Outlook_Senden()

   Dim olApp As Object

   Dim AWS As String

  

   ActiveWorkbook.Save

   AWS = ActiveWorkbook.FullName

  

   Set olApp = CreateObject("Outlook.Application")

   With olApp.CreateItem(0)

      .To = "mailadresse"

      .Subject = "Bestellung für zum Auftrag am " & Sheets("Readme_GER").Range("B24")

      .Attachments.Add AWS

      .Display

   End With

  

End Sub

Das Makro was ich hernehmen möchte sieht so aus:

Sub Excel_Workbook_via_Outlook_Senden()

   Dim olApp As Object

   Dim AWS As String, olOldBody As String, strName As String

  

   strName = Sheets("Readme_GER").Range("B24") & " im Objekt " & Sheets("Readme_GER").Range("B27") & " von " & Sheets("Readme_GER").Range("B21")

  

   AWS = ActiveWorkbook.Path & "\" & "Bestellung zum Auftrag am " & strName & _

      Mid(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, "."))

  

   ActiveWorkbook.SaveCopyAs AWS

  

   Set olApp = CreateObject("Outlook.Application")

   With olApp.CreateItem(0)

      .GetInspector.Display

      olOldBody = .htmlBody

      .To = "p0050001689@xxx.com"

      .Subject = "Bestellung zum Auftrag am " & strName

      .htmlBody = "Sehr geehrte Damen und Herren,

" & _

         "im Anhang sende ich Ihnen die Bestellbestätigung zum Auftrag am " & strName & "." & _

         "

Mit freundlichen Grüßen,
"

      .Attachments.Add AWS

   End With

  

   Kill AWS

  

End Sub

Beim Versenden erhalte ich den Fehler 1004 livelink.exe/open/datei.xls wurde nicht gefunden.

Vielen Dank für Hilfe