Hallo,
ich würde gerne einen Macro benutzen um aus einem Ordner jeglichen Inhalt automatisch in einen anderen zu verschieben.
Wer kann mir da helfen?
Wäre sicherlich eine gute Lösung auch für alle 2013 Outlook IMAP Ordner verärgerten
Sub move2folder()
On Error Resume Next
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolderSrc = objNamespace.GetDefaultFolder(olFolderInbox)
Set objFolderDst = objFolderSrc.Folders("_Reviewed")
Set colItems = objFolderSrc.Items
For Each objMessage In colFilteredItems
objMessage.move objFolderDst
Next
End Sub