Hallo liebes Formum,
ich habe mir ein Macro erstellt mit welchen der Excell-Anhang von täglich eintreffenden E-Mails automatisch in einen Ordner, unter neuen Namen, abgespeichert wird. Um den Namen zu generieren greife ich per ExecuteExcel4Macro auf den, zunächst zwischengespeicherten Anhang zu, und entnehme dort den Zeitstempel (dieser weicht vom Erstelldatum des Anhangs ab). Dann wird die Datei mit neuen Namen abgespeichert. Dieser Code hat auf meinem alten PC, ich denke Outlook 2010, noch gut funktioniert. Auf meinem neuen System, mit Outlook 2013, erhalte ich allerdings den Fehler: "Sub oder Funktion nicht definiert" und executeexcel4macro ist makiert. Kommentiere ich die betreffende Zeile aus geht es auch wieder.
Meine Frage wäre daher ob jemand weis ob es möglich ist diese Funktion nachträglich im VBA von Office zu implementiern oder ob jemand den Code hat so das ich diesen einfach in einem neuen Modul einfügen kann.
Falls nicht, gibt es noch andere Möglichkeiten auf die Zellen zuzugreifen ohne den Anhang zu öffnen?
Ich wäre über jede Hilfe dankbar.
Viele Grüße
Alf
Hier der Code:
Sub Daten(olMail As Outlook.MailItem)
Dim Pfad, Temp As String
Dim GetValue As Date
Dim Datei As Attachments
Temp = "C:\Users\Alf\Temp\"
Pfad = "C:\Users\Alf\Documents\Daten\"
On Error Resume Next
Set Datei = olMail.Attachments
For i = 1 To Datei.Count
Datei.Item(i).SaveAsFile Temp & Datei.Item(i).FileName
arg = "'" & Temp & "[" & Datei.Item(i).FileName & "]Tabelle1'!R2C5"
GetValue = ExecuteExcel4Macro(arg)
Kill (Temp & Datei.Item(i).FileName)
Datei.Item(i).SaveAsFile Pfad & "Referenzanlage " & CDate(DateValue(GetValue)) & ".xls"
Next i
End Sub
|