আউটলুক VBA এর সাথে নির্দিষ্ট ইমেল সংযুক্তিগুলি কীভাবে স্বয়ংক্রিয়ভাবে সংরক্ষণ করবেন

এখন শেয়ার:

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

আমার দৈনন্দিন কাজে, যদি প্রাপ্ত ইমেলগুলির সংযুক্তিগুলি খুব গুরুত্বপূর্ণ না হয়, আমি সেগুলিকে আমার স্থানীয় ডিস্কে সংরক্ষণ করতে পছন্দ করি না, কেবল সেগুলি সরাসরি Outlook এ পড়ি৷ কিন্তু যদি সংযুক্তিগুলি গুরুত্বপূর্ণ হয়, যেমন কর্মীদের প্রবিধান, মাসিক কাজের প্রতিবেদন, আমি সেগুলিকে আমার কম্পিউটারের একটি নির্দিষ্ট ফোল্ডারে সংরক্ষণ করব৷ এই ধরনের ক্ষেত্রে, আমি স্বয়ংক্রিয়ভাবে ইমেল সংযুক্তিগুলিকে সংরক্ষণ করতে Outlook কনফিগার করতে চাই, যার নামগুলিতে নির্দিষ্ট শব্দ রয়েছে, একটি নির্দিষ্ট ফোল্ডারে৷ তাই আমি আউটলুক VBA এর সাথে এটি উপলব্ধি করার জন্য একটি দ্রুত পদ্ধতি খুঁজে বের করি। এখানে বিস্তৃত VBA কোড এবং পদক্ষেপ রয়েছে:

স্বয়ংক্রিয়ভাবে নির্দিষ্ট ইমেল সংযুক্তি সংরক্ষণ করুন

  1. প্রথমত, আপনাকে আউটলুক চালু করতে হবে এবং "ডেভেলপার" ট্যাবে যেতে হবে।
  2. পরবর্তীকালে, "কোড" গ্রুপে "ভিজ্যুয়াল বেসিক" বোতামে ক্লিক করুন।ভিজ্যুয়াল বেসিক বোতাম
  3. তারপর "ভিজ্যুয়াল বেসিক" উইন্ডোতে, আপনাকে "ThisOutlookSession" প্রকল্প খুলতে হবে এবং এতে নিম্নলিখিত কোডগুলি অনুলিপি করতে হবে।
Public WithEvents olItems As Outlook.Items

Private Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim NewMail As Outlook.MailItem
    Dim Atts As Attachments
    Dim Att As Attachment
    Dim strPath As String
    Dim strName As String
 
    If Item.Class = olMail Then
       Set NewMail = Item
    End If
 
    Set Atts = Item.Attachments
 
    If Atts.Count > 0 Then
       For Each Att In Atts
           'Replace "test" with what you want to look for in attachment name
           If InStr(LCase(Att.FileName), "test") > 0 Then
              'Use your wanted destination folder path to save the attachments
              strPath = "C:\Attachments\"
              strName = NewMail.Subject & " " & Chr(45) & " " & Att.FileName
              Att.SaveAsFile strPath & strName
           End If
       Next
    End If
End Sub

স্বয়ংক্রিয়ভাবে নির্দিষ্ট ইমেল সংযুক্তি সংরক্ষণ করুন

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

গুরুতর আউটলুক দুর্নীতি থেকে পুনরুদ্ধার করুন

একাধিক ফাংশন নিয়ে গর্ব করা সত্ত্বেও, আউটলুক এখনও দুর্নীতির প্রবণ। এইভাবে আপনার আউটলুকে ঘটতে পারে এমন সমস্ত সমস্যার উপর ট্যাব রাখা উচিত, যেমন PST মেল ত্রুটি, আউটলুক সাড়া দিচ্ছে না ইত্যাদি। ত্রুটিগুলির মুখোমুখি হলে, আপনি সেগুলি ঠিক করতে Outlook বিল্ট-ইন মেরামতের সরঞ্জাম, ScanPST.exe ব্যবহার করতে পারেন৷ যদি এটি ব্যর্থ হয়, তাহলে আরও শক্তিশালী টুলের আশ্রয় নিন।

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

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

এখন শেয়ার:

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