Exchange - zentrales Archivieren bestimmter Ordner

Dim WithEvents mApp As Outlook.Application
Dim mSpamFolder As Outlook.Folder
Dim mTrashFolder As Outlook.Folder

Const cSpamFolderName As String = "Spam"  
Const cRetentionDays As Integer = 7

Private Sub Application_Startup()
  On Error Resume Next
  
  Set mApp = Outlook.Application
  With mApp.GetNamespace("MAPI")  
    Set mSpamFolder = .GetDefaultFolder(olFolderInbox).Parent.Folders(cSpamFolderName)
    Set mTrashFolder = .GetDefaultFolder(olFolderDeletedItems)
  End With
End Sub
 
Private Sub mApp_NewMail()
  On Error Resume Next
  
  Dim µItem As MailItem
  For Each µItem In mSpamFolder.Items
    If DateDiff("d", µItem.ReceivedTime, Now) >= cRetentionDays Then  
      µItem.Subject = "AutoDeleted___" & µItem.Subject  
      µItem.Save
      µItem.Delete
    End If
  Next
  
  For Each µTrashItem In mTrashFolder.Items
    If Left(µTrashItem.Subject, 14) = "AutoDeleted___" Then  
      µTrashItem.Delete
    End If
  Next
End Sub

  Set mSpamFolder = .GetDefaultFolder(olFolderInbox).Folders(cSpamFolderName)

#NoTrayIcon
#include <Date.au3>
#include <Array.au3>
; Tage welche im Spam Ordner aufbewahrt werden sollen
Const $retention_days = 7

;Outlook Objekt erstellen
$objOL = ObjCreate("Outlook.Application")  
;Array für Mails die gelöscht werden
dim $arr_delete[1]
; SPAM Ordner referenzieren
$folder_spam =  $objOL.GetNamespace("MAPI").GetDefaultFolder(6).Parent.Folders.Item("SPAM")  
; Mülleimer
$folder_trash = $objOL.GetNamespace("MAPI").GetDefaultFolder(3)  

for $mail in $folder_spam.Items
	$mailDate = StringMid($mail.ReceivedTime,1,4) & "/" & StringMid($mail.ReceivedTime,5,2) & "/" & StringMid($mail.ReceivedTime,7,2)  
	if _DateDiff("D",$mailDate,_NowCalcDate()) > $retention_days then  
		_ArrayAdd($arr_delete,$mail)
	EndIf
Next

for $i = 1 to UBound($arr_delete) - 1
	$mailmove = $arr_delete[$i].Move($folder_trash)
	$mailmove.Delete()
Next