Bagaimana cara menulis makro di Outlook 2007 untuk memindahkan item dari Kotak Masuk saya ke folder lain dan menandainya sebagai belum dibaca?

Saya ingin memiliki makro di Outlook 2007 untuk memindahkan item yang dipilih ke sub-folder Kotak Masuk saya, menandainya sebagai belum dibaca saat saya pergi. Dengan cara ini saya dapat menetapkan tombol untuk memindahkan item dengan cepat ke transaksi saya hari ini dan menangani folder minggu ini.

Terimakasih banyak,

Sam

Saya mencari pertanyaan ini di situs dan di tempat-tempat lain di internet dan tidak dapat dengan cepat menghasilkan jawaban yang mudah, jadi saya sendiri yang menulis kodenya. Di sini untuk orang berikutnya yang ingin mencapai ini:

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

Semoga bermanfaat bagi seseorang