কোনো ভুল প্রাপকের ঠিকানায় ইমেল পাঠানোর সময়, আপনি 'ইমেলটি পাঠানো যায়নি' এমন বিজ্ঞপ্তি পাবেন। সেই মুহূর্তে, আপনি যদি এই ইমেল ঠিকানাগুলি আপনার পরিচিতি তালিকা থেকে মুছে ফেলতে চান, তাহলে এই পোস্টে শেয়ার করা পদ্ধতিটি ব্যবহার করতে পারেন।
আপনি কি কখনও অবৈধ ইমেল ঠিকানাগুলি তালিকা বর্ধনযোগ্য ইমেল বিজ্ঞপ্তি পেয়েছেন? সাধারণভাবে, আপনি অবৈধ প্রাপক ঠিকানায় ইমেল প্রেরণের পরে আপনি এই জাতীয় ইমেলগুলি পাবেন। এই পরিস্থিতিতে, পরের বার দুর্ঘটনাক্রমে মেলগুলি তাদের প্রেরণ রোধ করতে এই ইমেল ঠিকানাগুলি আউটলুক পরিচিতিগুলি থেকে সরিয়ে ফেলার পরামর্শ দেওয়া হয়। এখন, নিম্নলিখিতগুলিতে, আমরা এটির দ্রুত সমাধান পেতে আপনাকে ভাগ করব।
পরিচিতিগুলি থেকে অপরিবর্তনযোগ্য ইমেলের অবৈধ প্রাপক ঠিকানাগুলি সরান
- শুরুতে, Outlook উইন্ডোতে VBA এডিটর অ্যাক্সেস করতে “Alt + F11” চাপুন।
- এরপরে, আপনি নীচের ভিবিএ কোডটিকে একটি অব্যবহৃত প্রকল্প বা মডিউলটিতে রাখতে পারেন।
Sub RemoveUndeliverableEmailAddressesfromContacts()
Dim objSelection As Outlook.Selection
Dim objContacts As Outlook.Items
Dim objMail As Outlook.MailItem
Dim i, n As Long
Dim objWordApp As Word.Application
Dim objWordDocument As Word.Document
Dim strEmailAddress As String
Dim strFilter As String
Dim objFoundContact As Outlook.ContactItem
'Get selected emails
Set objSelection = Application.ActiveExplorer.Selection
'Get the contacts
Set objContacts = Application.Session.GetDefaultFolder(olFolderContacts).Items
On Error Resume Next
For Each objMail In objSelection
objMail.Display
Set objWordDocument = objMail.GetInspector.WordEditor
Set objWordApp = objWordDocument.Application
Set objSearchRange = objWordDocument.Range
'Extract email addresses via wildcards
With objWordApp.Selection.Find
.Text = "[A-z,0-9]{1,}\@[A-z,0-9,.]{1,}"
.MatchWildcards = True
.Execute
End With
While objWordApp.Selection.Find.Found
strEmailAddress = objWordApp.Selection.Text
'Remove the invalid email addresses from the associated contacts
strFilter = "[Email1Address] = " & strEmailAddress
Set objFoundContact = objContacts.Find(strFilter)
If Not (objFoundContact Is Nothing) Then
With objFoundContact
.Email1Address = ""
.Email1DisplayName = ""
.Save
End With
strFilter = ""
Set objFoundContact = Nothing
Else
strFilter = "[Email2Address] = " & strEmailAddress
Set objFoundContact = objContacts.Find(strFilter)
If Not (objFoundContact Is Nothing) Then
With objFoundContact
.Email2Address = ""
.Email2DisplayName = ""
.Save
End With
strFilter = ""
Set objFoundContact = Nothing
Else
strFilter = "[Email3Address] = " & strEmailAddress
Set objFoundContact = objContacts.Find(strFilter)
If Not (objFoundContact Is Nothing) Then
With objFoundContact
.Email3Address = ""
.Email3DisplayName = ""
.Save
End With
strFilter = ""
Set objFoundContact = Nothing
End If
End If
End If
objWordApp.Selection.Find.Execute
Wend
objMail.Close olDiscard
Next
MsgBox "Completed!", vbInformation
End Sub
- এর পরে, বর্তমান উইন্ডোটি বন্ধ করুন।
- পরে, কুইক অ্যাক্সেস সরঞ্জামদণ্ডে নতুন ম্যাক্রো যুক্ত করুন। আপনি নিবন্ধটি উল্লেখ করতে পারেন - “আপনার আউটলুকে কীভাবে ভিবিএ কোড চালাবেন"।
- অবশেষে, আপনি নীচের পদক্ষেপগুলি অনুসরণ করে এই ম্যাক্রোটি চালাতে পারেন:
- প্রথম স্থানে, "অপরিবর্তনযোগ্য" ইমেল বার্তাগুলি নির্বাচন করুন।
- তারপরে, দ্রুত অ্যাক্সেস সরঞ্জামদণ্ডে ম্যাক্রোটি ক্লিক করুন।
- ম্যাক্রো শেষ হয়ে গেলে, আপনি "সম্পন্ন" নির্দেশিত বার্তাটি পাবেন।
- এখন, আপনি সম্পর্কিত পরিচিতিগুলি পরীক্ষা করতে পারেন, যাতে নীচের স্ক্রিনশটের মতো অবৈধ ইমেল ঠিকানাগুলি সরানো হয়েছে:
আউটলুক ত্রুটি এবং দুর্নীতি সমাধান করুন
যেমনটি আমরা সবাই জানি, আউটলুক বিভিন্ন কারণে সমস্যাগুলি এবং দুর্নীতির শিকার হতে পারে। অতএব, আপনি যদি আউটলুকের একজন শিক্ষানবিশ হন তবে আপনি কার্যকরভাবে কিছু কার্যকর সতর্কতা তৈরি করতে চাই যেমন সাময়িকভাবে ডেটা ব্যাকআপ তৈরি করা, শক্তিশালী এবং নির্ভরযোগ্য নিয়োগ দেওয়া as আউটলুক মেরামত ইউটিলিটি, মত DataNumen Outlook Repair, এবং তাই।
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় পুনরুদ্ধার এসকিএল এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com