Thema Datum  Von Nutzer Rating
Antwort
Rot Versenden einer Arbeitsmappe über ein Makro mit Outlook aus einem Intranet
 09.03.2012 14:11:59 Michael Gerwin
NotSolved

Ansicht des Beitrags:
Von:
Michael Gerwin		 Datum:
09.03.2012 14:11:59		 Views:
3494		 Rating:
     
Antwort:
  Ja
Thema:
Versenden einer Arbeitsmappe über ein Makro mit Outlook aus einem Intranet

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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
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

 

 

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Versenden einer Arbeitsmappe über ein Makro mit Outlook aus einem Intranet
 09.03.2012 14:11:59 Michael Gerwin
NotSolved