[아웃룩] 서브폴더의 메일을 상위 폴더로 올리는 스크립트

Sub MoveToParentFolder()

    Dim userInbox As MAPIFolder

    Dim firstInbox As MAPIFolder

    

    Set userInbox = Session.Folders.Item("아웃룩백업").Folders.Item("받았다 편지함")

    

    MsgBox (userInbox.Folders.Count)

    

    For ii = 1 To userInbox.Folders.Count

        Set firstInbox = userInbox.Folders.GetFirst()

        For jj = 1 To firstInbox.Items.Count

            'MsgBox (firstInbox.items.GetFirst())

            firstInbox.Items.GetFirst().Move (Session.Folders.Item("아웃룩백업").Folders("받았다 편지함"))

        

        Next

            

        If firstInbox.Items.Count = 0 And userInbox.Folders.Item(1) = userInbox.Folders.GetFirst() Then

            firstInbox.MoveTo (Session.Folders.Item("아웃룩백업").Folders("지운 편지함"))

            'userInbox.Folders.Remove (1)

            

        End If

        

    Next

    

End Sub