Office: skript scheint anhänge zu löschen?

hallo zusammen,
ich speichere mit folgendem skript anhänge von emails automatisch. das postfach wird von drei pcs genutzt. auf dem pc auf dem das skript wahrscheinlich als erstes ausgeführt wird, sind danach in outlook die anhänge nicht mehr sichtbar. woran kann das liegen?
danke!

Function checkForDir(ByVal baseDir As String, ByVal dateTime As Date)
Dim monthName As String
Dim yearInt As String
Dim wholeDir As String

' Prüfen, ob der Ordner existiert
yearInt = Year(dateTime)
wholeDir = baseDir & yearInt & "\" ' muss erst nur jahr ordner sein
If dir(wholeDir, vbDirectory) = vbNullString Then
MkDir wholeDir
End If

monthName = Format(dateTime, "mmmm")
wholeDir = wholeDir & monthName & "\" ' dann erst monat ordner
If dir(wholeDir, vbDirectory) = vbNullString Then
MkDir wholeDir
End If

checkForDir = wholeDir
End Function

Sub Anhaenge_handeln(myItem As Outlook.MailItem, baseDir As String)
'MsgBox "Ich funktioniere", vbOKOnly
Dim mAtts As Attachments
Dim dateiName As String
Dim punktPosition As Integer
Dim nameVorPunkt As String
Dim Dateiendung As String
Dim saveName As String
Dim emailDate As Date ' inkl. Zeit
Dim mAtt As Attachment
Dim targetDir As String

Set mAtts = myItem.Attachments
emailDate = myItem.ReceivedTime

While mAtts.Count > 0
Set mAtt = mAtts(1)
dateiName = mAtt.FileName
punktPosition = InStrRev(dateiName, ".")
nameVorPunkt = Left(dateiName, punktPosition - 1)
'MsgBox "nameVorPunkt: " & nameVorPunkt, vbOKOnly
Dateiendung = Right(dateiName, Len(dateiName) - punktPosition)

targetDir = checkForDir(baseDir, emailDate)

saveName = targetDir & nameVorPunkt & " von " & myItem.SenderEmailAddress & "." & Dateiendung

If dir(saveName, vbNormal) = "" Then
mAtt.SaveAsFile saveName
End If
mAtts.Remove 1
Wend
End Sub

Public Sub AnhaengeBelege(myItem As Outlook.MailItem)
Dim baseDir As String
baseDir = "K:\BÜRO AKTUELL\Buchhaltung\Belege per E-Mail\"
Call Anhaenge_handeln(myItem, baseDir)
End Sub

 

ich vermute "mAtts.Remove 1" löscht den anhang auch aus der Email? falls es das sein sollte, wie kann ich ohne das durch die anhänge loopen?

 

okay, hab es selber gefunden, ich musste es wie vermutet ohne "mAtts.Remove 1" machen mit einer for schleife, die nicht direkt die anhänge ändert.