আপনার আউটলুকে যদি দেখেন কিছু কন্ট্যাক্টের ইমেল অ্যাড্রেস নেই, তাহলে আপনি প্রতিটি কন্ট্যাক্ট ফোল্ডার থেকে সেই কন্ট্যাক্টগুলো ডিলিট করে দিতে পারেন। এই পোস্টে এর দুটি উপায় আপনাদের সাথে শেয়ার করা হবে।
আপনার আউটলুকে সম্ভবত আপনার অনেক পরিচিতি রয়েছে এবং তাদের কয়েকটিতে ইমেল ঠিকানা নেই। আপনি যদি ভাবেন যে সেগুলি আর কার্যকর হয় না, আপনাকে অবশ্যই ইমেল ঠিকানা ছাড়াই সমস্ত পরিচিতি মোছার আশা করতে হবে। মানক উপায়ে, আপনি তাদের অনুসন্ধানের জন্য "তাত্ক্ষণিক অনুসন্ধান" ব্যবহার করতে পারেন এবং নীচের পদ্ধতিটির মতো 1 টি নিজেই এগুলি মুছতে পারেন Yet তবুও এটি কিছুটা ক্লান্তিকর। সুতরাং, পদ্ধতি 2 এ, আমরা আপনাকে আরও একটি কার্যকর উপায় শিখিয়ে দেব।
পদ্ধতি 1: ইমেল ঠিকানা ছাড়াই যোগাযোগগুলি সন্ধান করার পরে ম্যানুয়ালি মুছুন
- শুরুতে, “Contacts” প্যানে প্রবেশ করতে “Ctrl + 3” কী চাপুন।
- তারপরে, অনুসন্ধান বাক্সে ক্লিক করুন।
- এর পরে, উদীয়মান "অনুসন্ধান" ফিতাটিতে, "সমস্ত পরিচিতি আইটেম" ক্লিক করুন।
- পরবর্তীকালে, "ঠিকানা আছে"> "ইমেল ঠিকানা আছে" ক্লিক করুন।
- এর পরে, "ইমেল ঠিকানাগুলি নয়: = []" মানদণ্ড অনুসন্ধান বাক্সে যুক্ত করা হবে। আপনাকে "না" মুছে ফেলতে হবে।
- এরপরে, ইমেল ঠিকানাবিহীন সমস্ত পরিচিতি তালিকাভুক্ত করা হবে।
- এখন, আপনাকে অনুসন্ধানের ফলাফলগুলিতে ম্যানুয়ালি যোগাযোগগুলি নির্বাচন করা উচিত যাতে আপনার পরিচিতি গোষ্ঠীগুলিও তালিকায় থাকা উচিত।
- শেষ পর্যন্ত, নির্বাচিত সমস্ত পরিচিতি মুছতে "ডেল" কী বোতাম টিপুন।
পদ্ধতি 2: ব্যাচ ভিবিএর সাথে ইমেল ঠিকানা ছাড়াই সমস্ত পরিচিতি মুছুন
- প্রথমে, আউটলুকে ভিবিএ সম্পাদক চালু করতে "Alt + F11" এ আলতো চাপুন।
- নতুন স্ক্রিনে, নিম্নলিখিত ভিবিএ কোডটি একটি মডিউলে অনুলিপি করুন।
Sub BatchDeleteAllContactsWithoutEmailAddress()
Dim objStore As Outlook.Store
Dim lTotalCount As Long
lTotalCount = 0
'Process all stores in your Outlook
For Each objStore In Application.Session.Stores
Call ProcessContactFolders(objStore.GetRootFolder.Folders, lTotalCount)
Next
MsgBox lTotalCount & " contacts are deleted!", vbInformation + vbOKOnly, "Delete Contacts"
End Sub
Sub ProcessContactFolders(ByVal objFolders As Outlook.Folders, lCount As Long)
Dim objFolder As Outlook.Folder
Dim i As Long
Dim objContact As Outlook.ContactItem
Dim objSubfolder As Outlook.Folder
For Each objFolder In objFolders
If (objFolder.DefaultItemType = olContactItem) And (objFolder.Name <> "Skype Contacts") Then
For i = objFolder.Items.Count To 1 Step -1
If objFolder.Items(i).Class = olContact Then
Set objContact = objFolder.Items(i)
'Delete the contact w/o email address
If (objContact.Email1Address = "") And (objContact.Email2Address = "") And (objContact.Email3Address = "") Then
objContact.Delete
lCount = lCount + 1
End If
End If
Next
'Process subfolders recursively
If objFolder.Folders.Count > 0 Then
Call ProcessContactFolders(objFolder.Folders, lCount)
End If
End If
Next
End Sub
- পরে, "ব্যাচডিলিটএলকন্ট্যাক্টস উইথআউটইমেইল অ্যাড্রেস" সাব্রুটাইন ক্লিক করুন।
- শেষ পর্যন্ত, এই ম্যাক্রোটি ট্রিগার করতে "F5" টিপুন।
- এটি সম্পূর্ণ হলে, আপনি নীচের চিত্রের মতো ফলাফলগুলি সম্পর্কে একটি বার্তা পাবেন।
- ইমেল ঠিকানা ব্যতীত সমস্ত পরিচিতিগুলি "মোছা আইটেমগুলি" ফোল্ডারে সরানো হয়েছে।
সমস্ত সম্ভাব্য ঝুঁকি থেকে দূরে রাখুন
আউটলুক বিভিন্ন কারণে যেমন ভাইরাস, ব্যবহারকারীর ত্রুটি, সফ্টওয়্যার ব্যর্থতার পাশাপাশি হার্ডওয়্যার ত্রুটির কারণে ক্ষতিগ্রস্ত হতে পারে। আপনাকে অবশ্যই আউটলুক ক্ষতির অভিজ্ঞতা নিতে অনিচ্ছুক হতে হবে, সুতরাং আপনার এই সমস্ত সম্ভাব্য ঝুঁকি উপশম করা উচিত। উদাহরণস্বরূপ, আপনার পিসিতে আপনাকে শক্তিশালী অ্যান্টিভাইরাস সফ্টওয়্যারটি মাউন্ট করতে হবে। এছাড়াও, আপনার নিয়মিত ভিত্তিতে আপনার আউটলুক ডেটা ব্যাক আপ করতে হবে। সর্বশেষে তবে অন্তত নয়, আপনি আরও শক্তিশালী এবং নির্ভরযোগ্য মেরামতের সরঞ্জাম প্রস্তুত করতে চাই DataNumen Outlook Repair। এটি আপনার ঠিক করতে পারে দুর্নীতিগ্রস্থ পিএসটি সহজেই ফাইল।
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় SQL Server দুর্নীতি এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com