Hallo zusammen,
und vorab schon DANKE!!!! ich habe ein Makro Bestandteil vor einigen Jahren hier bei herber.de gefunden.
Dieses Makro öffnet mir eine Exceltabelle in einem Email Anhang in Outlook.....
leider habe ich den Fall das Die Datei nicht per Makro geöffnet werden kann da sie totalzerschossen ist... ich bekomme nur die Meldung das Dateienformat ist ungültig!
Woran kann es liegen? Danke für eure Hilfe!
Dim objOL As Object, objFolder As Object
Dim Betreffsuch As String, Pfad As String
Betreffsuch = Sheets("SETUP").Range("S11").Value
Pfad = Sheets("SETUP").Range("S16").Value
Dim Wb As Workbook, oMail As Object, objNS As Object, Anlagen As Object, Anlage As Object, _
oFldInbox As Object
Set objNS = CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(6).Items
Set oFldInbox = objNS
For x = 1 To oFldInbox.Count
Set oMail = oFldInbox(x)
If oMail.Subject = Betreffsuch Then
If oMail.Attachments.Count 0 Then
Set Anlagen = oMail.Attachments
For Each Anlage In Anlagen
Anlage.SaveAsFile Pfad & "DFS.xlsx"
Workbooks.Open (Pfad & "DFS.xlsx")
Danke
Raphael