ich habe folgendes Problem:
Ich erhalte täglich eine Mail mit einem Report zum letzten Arbeitstag. Die Anhänge aus dieser Mail möchte ich in einem Order abspeichern, welcher nach dem Datum des letzten Arbeitstages benannt wurde.
Leider funktioniert mein Code bisher nicht (kann nur an Variable für letzten Arbeitstag liegen - denn mit heutigem Datum funktioniert es).
Hier der Code:
Public Sub Anhaenge_speichern(myItem As Outlook.MailItem)
Dim mAtts As Attachments
Dim mAtt As Attachment
Dim intMonth As Integer
For intMonth = 1 To 12
Debug.Print LastDay(2011, intMonth, 6) ' 6=Freitag
Next
Function LastDay(ByVal intYear As Integer, ByVal intMonth As Integer, ByVal intWeekday As _
Integer) As Date
Dim d As Date
'intWeekday >> 1=Sonntag,...,7= Samstag
d = DateSerial(intYear, intMonth + 1, 0)
LastDay = IIf(Weekday(d, intWeekday) = 1, d, d - Weekday(d, intWeekday) + 1)
End Function
Set mAtts = myItem.Attachments
While mAtts.Count > 0
Set mAtt = mAtts(1)
mAtt.SaveAsFile "O:\Dat\5920\03AlleUser\" & Format(LastDay, "yyyymmdd") & "\" & mAtt. _
DisplayName
mAtts.Remove 1
Wend
End Function
Vielen dank für eure Hilfe und einen schönen Arbeitstag!Julian