কখনও কখনও, আপনি আপনার পরিচিতিগুলি থেকে একটি নির্দিষ্ট ডোমেন সহ সমস্ত ইমেল ঠিকানা মুছে ফেলার আশা করতে পারেন। এই পরিস্থিতিতে আপনার অবশ্যই এটি একে একে করতে ইচ্ছুক নয়। এইভাবে, এই পিost আপনাকে একটি আরও স্মার্ট পদ্ধতি শিখিয়ে দেবে।
উদাহরণস্বরূপ, একটি সংস্থা তার নাম পরিবর্তন করে। ইতিমধ্যে, কোম্পানির ডোমেনও পরিবর্তিত হয়ে যায়। তবে, আউটলুকে আপনি এই সংস্থায় অনেক পরিচিতি সঞ্চয় করেছেন, যাদের ইমেল ঠিকানাগুলি পুরানো ডোমেনের সাথে রয়েছে। অবশ্যই, এই ইমেল ঠিকানাগুলি আর বৈধ নয়। অতএব, এই পরিস্থিতিতে আপনি যদি এই ইমেল ঠিকানাগুলি একবারে মুছে ফেলতে চান তবে আপনি নিম্নলিখিত উপায়টি ব্যবহার করতে পারেন।
ব্যাচ পরিচিতি থেকে একটি নির্দিষ্ট ডোমেন সহ সমস্ত ইমেল ঠিকানা সরান
- সেই জন্যtarটি, কী শর্টকাট দ্বারা আউটলুক ভিবিএ সম্পাদক অ্যাক্সেস করুন - "Alt + F11"।
- তারপরে, নতুন উইন্ডোতে, নিম্নলিখিত ভিবিএ কোডটি খালি মডিউলে রাখুন।
Dim strDomain As String
Sub BatchRemoveAllEmailAddressesInSpecificDomain()
Dim objStore As Store
Dim objFolder As Folder
Dim lTotalCount As Long
'Input the specific domain
strDomain = InputBox("Enter the specific domain:", , "@false.com")
If Len(strDomain) <> 0 Then
lTotalCount = 0
'Process all Contact folders in your Outlook
For Each objStore In Application.Session.Stores
For Each objFolder In objStore.GetRootFolder.Folders
If objFolder.DefaultItemType = olContactItem Then
Call ProcessContactFolders(objFolder, lTotalCount)
End If
Next
Next
'Prompt you
MsgBox lTotalCount & " email addresses in " & strDomain & " are removed!", vbInformation + vbOKOnly
End If
End Sub
Sub ProcessContactFolders(ByVal objCurrentFolder As Folder, ByRef lCount As Long)
Dim objContacts As Items
Dim i As Long
Dim objContact As ContactItem
Set objContacts = objCurrentFolder.Items
For i = objContacts.Count To 1 Step -1
If TypeName(objContacts(i)) = "ContactItem" Then
Set objContact = objContacts(i)
'Check 3 email addresses of each contact
If InStr(objContact.Email1Address, strDomain) > 0 Then
lCount = lCount + 1
objContact.Email1Address = ""
objContact.Email1DisplayName = ""
ElseIf InStr(objContact.Email2Address, strDomain) > 0 Then
lCount = lCount + 1
objContact.Email2Address = ""
objContact.Email2DisplayName = ""
ElseIf InStr(objContact.Email3Address, strDomain) > 0 Then
lCount = lCount + 1
objContact.Email3Address = ""
objContact.Email3DisplayName = ""
End If
objContact.Save
End If
Next
If objCurrentFolder.Folders.Count > 0 Then
For Each objSubfolder In objCurrentFolder.Folders
Call ProcessContactFolders(objSubfolder, lCount)
Next
End If
End Sub
- এর পরে, "ব্যাচআরমিওএলইমেইল অ্যাড্রেসসইনস্পিফিকডোমাইন" সাব্রোটিনে কার্সার রাখুন।
- অবশেষে, এই ম্যাক্রোটিকে ট্রিগার করতে "F5" কী বোতামটি ক্লিক করুন।
- পরবর্তী সময়ে, নির্দিষ্ট ডোমেনটি পপআপ ডায়ালগ বাক্স প্রবেশ করান।
- "ওকে" ক্লিক করার পরে, ম্যাক্রো চলবে।
- এটি শেষ হয়ে গেলে, আপনি ফলাফলগুলি সম্পর্কে একটি বার্তা পাবেন।
- এখন, আপনি পরিচিতিগুলি পরীক্ষা করতে পারেন। নির্দিষ্ট ডোমেন সহ সমস্ত ইমেল ঠিকানা অবশ্যই অদৃশ্য হয়ে গেছে।
আপনার আউটলুক ফাইল সংরক্ষণ করুন
আপনার আউটলুককে ঘিরে আরও বেশি ঝুঁকি থাকা, আপনার মূল্যবান আউটলুক ডেটা রক্ষা করা ক্রমশ কঠিন। উদাহরণস্বরূপ, আপনি কেবল নিয়মিত ডেটা ব্যাকআপ অবলম্বন করা উচিত নয়, তবে আপনাকে আপনার ক্রিয়াকলাপটিও সন্ধান করতে হবে। অজানা প্রেরকের কোনও ইমেলের উপর সহজেই বিশ্বাস করা বুদ্ধিমানের কাজ নয়। অন্যথায়, যদি এটি ভাইরাস বহন করে তবে আপনার আউটলুক ফাইল সংক্রামিত হবে। সেই সময়, আপনি চেষ্টা করতে হবে আউটলুক মেরামত একটি উল্লেখযোগ্য ফিক্স সরঞ্জামের মাধ্যমে, যেমন DataNumen Outlook Repair.
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় পুনরুদ্ধার Sql Server এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com