আপনার আউটলুকের পুরানো ক্যালেন্ডার আইটেমগুলি থেকে কীভাবে ব্যাচ সরান

এখন শেয়ার:

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

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

ব্যাচ আপনার আউটলুকের পুরানো ক্যালেন্ডার আইটেমগুলি থেকে সংযুক্তিগুলি সরান

পুরানো ক্যালেন্ডার আইটেমগুলি থেকে ব্যাচ সরান সংযুক্তি

  1. শুরু করতে, "Alt + F11" দ্বারা আউটলুক ভিবিএ সম্পাদক অ্যাক্সেস করুন।
  2. তারপরে, "অ্যাপ্লিকেশনগুলির জন্য মাইক্রোসফ্ট ভিজ্যুয়াল বেসিক" উইন্ডোতে, ভিবিএ কোডটি একটি মডিউলে অনুলিপি করুন।
Sub BatchDeleteAttachmentsOfOldCalendarItems()
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Change to your own Outlook file
    Set objOutlookFile = Outlook.Application.Session.Folders("John Smith")
 
    For Each objFolder In objOutlookFile.Folders
        If objFolder.DefaultItemType = olAppointmentItem Then
           Call LoopCalendars(objFolder)
        End If
    Next
End Sub

Sub LoopCalendars(ByVal objCalendar As Outlook.Folder)
    Dim i, n As Long
    Dim objCalendarItem As Outlook.AppointmentItem
    Dim nDateDiff As Integer
    Dim objAttachments As Outlook.Attachments
    Dim objSubCalendar As Outlook.Folder
 
    For i = objCalendar.Items.Count To 1 Step -1
        Set objCalendarItem = objCalendar.Items(i)
 
        'Remove attachments from items that are more than 2 months old
        'Change the datediff as per your needs
        nDateDiff = DateDiff("m", objCalendarItem.End, Now) '=> "m" refers to month; "d" for day; "y" for year
        If nDateDiff > 2 Then
           Set objAttachments = objCalendarItem.Attachments
           If objAttachments.Count > 0 Then
              For n = objAttachments.Count To 1 Step -1
                  objAttachments(n).Delete
              Next
           End If
           objCalendarItem.Save
        End If
    Next

    'Process all subfolders recursively
    If objCalendar.Folders.Count > 0 Then
       For Each objSubCalendar In objCalendar.Folders
           Call LoopCalendars(objSubCalendar)
       Next
    End If
End Sub

ভিবিএ কোড - পুরানো ক্যালেন্ডার আইটেমগুলি থেকে ব্যাচ সরান সংযুক্তি

  1. এরপরে, "ব্যাচডিলিটএটাকমেন্টসফিল্ডক্যালেন্ডার আইটেমস" ম্যাক্রোতে ক্লিক করুন।
  2. শেষ পর্যন্ত, এই ম্যাক্রোটি চালানোর জন্য "F5" কী বোতামটি টিপুন।
  3. যখন ম্যাক্রো সম্পূর্ণ হয়, আপনি আপনার সমস্ত আউটলুক ক্যালেন্ডার চেক করতে পারেন।
  4. আউটলুক অবশ্যই 2 মাসেরও বেশি পুরানো ক্যালেন্ডার আইটেমগুলির সমস্ত সংযুক্তি মুছে ফেলবে।পুরানো ক্যালেন্ডার আইটেমগুলি থেকে সংযুক্তি সরানো হয়েছে

দুর্নীতির আউটলুক ফাইলগুলি সহকারে আসুন

আপনি কি কখনও আউটলুক দুর্নীতির মুখোমুখি হয়েছেন? আপনি কিভাবে সাধারণত এটি নিষ্পত্তি করবেন? প্রায়শই না, আপনি প্রথমে ইনবক্স মেরামতের সরঞ্জামটি ব্যবহার করে দেখবেন - স্ক্যানপস্ট। তবে, গুরুতর পিএসটি ক্ষতিগ্রস্থ হলে অন্তর্নির্মিত ইউটিলিটি আপনাকে সহায়তা করতে পারে না। সুতরাং, এটি কাছাকাছি আরও অভিজ্ঞ এবং লক্ষণীয় তৃতীয় পক্ষের সরঞ্জাম রাখার পরামর্শ দেওয়া হয়েছে, যেমন DataNumen Outlook Repair.

লেখকের ভূমিকা:

শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় বর্গফুট মেরামত এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com

এখন শেয়ার:

মন্তব্যসমূহ বন্ধ করা হয়.