আমার ইনবক্সের বাইরে অন্য আইটেমটিকে অন্য ফোল্ডারে সরানো এবং অপঠিত হিসাবে চিহ্নিত করতে আমি কীভাবে আউটলুক 2007 এ ম্যাক্রো লিখব?

Question

আমি আমার ইনবক্সের সাব-ফোল্ডারগুলিতে নির্বাচিত আইটেমগুলিকে সরানোর জন্য আউটলুক 2007-এ একটি ম্যাক্রো রাখতে চাই এবং সেগুলি আমার যাওয়ার মতো অপঠিত হিসাবে চিহ্নিত করতে চাই। এইভাবে আমি আজ আমার ডিলের কাছে আইটেমগুলি দ্রুত স্থানান্তর করতে এবং এই সপ্তাহের ফোল্ডারগুলিকে ডিল করতে বোতামগুলি বরাদ্দ করতে পারি।

অনেক ধন্যবাদ,

স্যাম

Answer 1

আমি এই প্রশ্নটি সাইটে এবং নেট থেকে অন্য জায়গাগুলিতে অনুসন্ধান করেছি এবং খুব সহজেই একটি সহজ উত্তর নিয়ে আসতে পারিনি, তাই কোডটি নিজেই লিখেছি। এখানে পরবর্তী ব্যক্তির জন্য যারা এটি অর্জন করতে চায়:

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

আশা করি এটি কারও কাজে লাগবে