none
Outlook 2013 Macro RRS feed

  • Frage

  • 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

    Samstag, 28. September 2013 08:46