Outlook 2007에서 매크로를 작성하여받은 편지함에서 다른 폴더로 항목을 이동하고 읽지 않은 상태로 표시하려면 어떻게해야합니까?

Outlook 2007에서 선택한 항목을받은 편지함의 하위 폴더로 이동하여 읽지 않은 상태로 표시하도록 매크로를 만들고 싶습니다. 이 방법으로 오늘 상품을 신속하게 거래하고 이번 주 폴더를 처리하는 버튼을 할당 할 수 있습니다.

많은 감사합니다

샘

나는이 질문을 사이트와 인터넷의 다른 곳에서 검색했으며 쉽게 대답 할 수 없었으므로 직접 코드를 작성했습니다. 이것을 달성하려는 다음 사람을 위해 여기에 :

Option Explicit

Public Sub Today()

Dim myFolder As Folder

    Set myFolder = GetInboxSubFolder("* 0. Today")
    If Not myFolder Is Nothing Then
        MoveItemAndMarkAsUnread myFolder
    End If

End Sub

Private Function GetInboxSubFolder(folderName As String) As Folder

Dim myNamespace As NameSpace
Dim myInbox As Folder

    Set myNamespace = Application.GetNamespace("MAPI")
    Set myInbox = myNamespace.GetDefaultFolder(olFolderInbox)
    Set GetInboxSubFolder = myInbox.Folders(folderName)

End Function

Private Sub MoveItemAndMarkAsUnread(myFolder As Folder)

Dim myExplorer As Explorer
Dim mySelection As Selection

    Set myExplorer = Application.ActiveExplorer
    Set mySelection = myExplorer.Selection

Dim i As Integer
Dim myItem As MailItem

    For i = mySelection.Count To 1 Step -1

        mySelection.Item(i).UnRead = True
        mySelection.Item(i).Move myFolder

    Next i

End Sub

누군가에게 유용한 희망