আপনি যদি বর্তমান ইমেইলের "টু" ক্ষেত্রের সাথে পরিচিতি গোষ্ঠী যোগ করেন, তাদের মধ্যে কিছু সদৃশ হতে পারে। এই নিবন্ধটি আপনাকে শিখিয়ে দেবে যে কীভাবে সদৃশ প্রাপকদের দ্রুত অপসারণ করতে VBA ব্যবহার করতে হয়।
একটি ইমেল রচনা করার সময়, যদি আপনি কেবলমাত্র পরিচিতি যোগ করেন না, তবে প্রাপক হিসাবে গোষ্ঠীর সাথেও যোগাযোগ করেন, কখনও কখনও, কিছু সদৃশ প্রাপক থাকতে পারে কারণ পরিচিতি গোষ্ঠীগুলি ডিফল্টভাবে ভেঙে পড়ে। এই ক্ষেত্রে, যদি আপনি সদৃশদের খুঁজে বের করতে চান, তাহলে আপনাকে প্রথমে পরিচিতি গোষ্ঠীগুলি প্রসারিত করতে হবে এবং তারপরে প্রাপকদের ম্যানুয়ালি তুলনা করতে হবে, যা আমার পূর্ববর্তী নিবন্ধে বিস্তারিতভাবে উপস্থাপিত হয়েছে - "আপনার আউটলুক ইমেলগুলি থেকে সদৃশ প্রাপকদের কীভাবে সরানো যায়”। কোন সন্দেহ ছাড়াই, এটা খুব ক্লান্তিকর। সুতরাং, অনেক ব্যবহারকারী ডুপ্লিকেট প্রাপকদের অপসারণের দ্রুত উপায় চান। নিম্নলিখিতগুলিতে, আমরা আপনাকে Outlook VBA এর সাথে এটি পেতে শেখাব।
আপনার আউটলুক ইমেলে ডুপ্লিকেট প্রাপকদের দ্রুত সরান
- প্রথম স্থানে, আপনার আউটলুক অ্যাপ্লিকেশন চালু করুন।
- তারপরে "বিকাশকারী" ট্যাবে যান এবং "ভিজ্যুয়াল বেসিক" বোতামে ক্লিক করুন বা কেবল "Alt + F11" কী টিপুন।
- "অ্যাপ্লিকেশনগুলির জন্য মাইক্রোসফ্ট ভিজ্যুয়াল বেসিক" উইন্ডোতে, আপনি একটি ফাঁকা মডিউল খুলতে পারেন।
- পরবর্তীকালে, এই মডিউলটিতে নিম্নলিখিত ভিবিএ কোডগুলি অনুলিপি করুন এবং আটকান।
Sub RemoveDuplicateRecipients()
Dim objCurrentMail As MailItem
Dim objRecipients As Recipients
Dim ContactGroupFound As Boolean
Dim i, n As Long
Set objCurrentMail = ActiveInspector.CurrentItem
ContactGroupFound = True
While ContactGroupFound = True
Set objRecipients = objCurrentMail.Recipients
ContactGroupFound = False
'Expand the contact groups in "To" field
For i = objRecipients.Count To 1 Step -1
If objRecipients(i).AddressEntry.DisplayType <> olUser Then
For n = 1 To objRecipients(i).AddressEntry.Members.Count
If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
objCurrentMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
Else
objCurrentMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
ContactGroupFound = True
End If
Next
objRecipients(i).Delete
End If
Next i
objRecipients.ResolveAll
Wend
'Remove the duplicate recipients
For i = objRecipients.Count To 1 Step -1
For n = (i - 1) To 1 Step -1
If objRecipients(i).Address = objRecipients(n).Address Then
objRecipients(i).Delete
Exit For
End If
Next
Next
End Sub
- এর পরে, আপনি বার্তা উইন্ডোর দ্রুত অ্যাক্সেস টুলবারে নতুন VBA প্রকল্প যুক্ত করতে পারেন।
- পরে আপনাকে আপনার আউটলুক ম্যাক্রো নিরাপত্তা স্তর কম করতে হবে।
- শেষ পর্যন্ত আপনি চেষ্টা করতে পারেন।
- প্রথমে, যথারীতি একটি ইমেল রচনা করুন।
- তারপরে "টু" ক্ষেত্রের মধ্যে পরিচিতি গোষ্ঠী এবং পরিচিতি যুক্ত করুন।
- পরবর্তী আপনি দ্রুত অ্যাক্সেস টুলবারে নতুন ম্যাক্রো বোতামে ক্লিক করতে পারেন।
- একবারে, আউটলুক স্বয়ংক্রিয়ভাবে পরিচিতি গোষ্ঠীগুলি প্রসারিত করবে এবং তারপরে সদৃশ প্রাপকদের সরিয়ে দেবে।
আপনার মূল্যবান আউটলুক ডেটা সুরক্ষিত করুন
যেহেতু আউটলুক ক্র্যাশ হওয়ার প্রবণ, আপনার আউটলুক ডেটা দুর্নীতির জন্য সংবেদনশীল। সুতরাং, আপনার আউটলুক ফাইলটি সুরক্ষিত করার জন্য আপনাকে অনেক প্রচেষ্টা করতে হবে। প্রথমত, আপনাকে নিয়মিত আপনার পিএসটি ফাইল ব্যাকআপ করতে হবে। এতে সুবিধা হবে দুর্নীতিগ্রস্থ পিএসটি মেরামত উপরন্তু, আপনি একটি শক্তিশালী ফিক্স টুল সহজভাবে প্রস্তুত করেছিলেন, যেমন DataNumen Outlook Repair.
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় এমডিএফ ঠিক করা এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com