Жарамсыз алушы мекенжайларына электрондық пошта жіберген кезде, сіз жеткізілмеген электрондық пошта хабарландыруларын аласыз. Осы кезде, егер сіз бұл электрондық пошта мекенжайларын контактілерден жойғыңыз келсе, осы жазбада бөлісілген әдісті пайдалана аласыз.
Сіз жарамсыз электрондық пошта мекен-жайларын тізімдейтін жеткізілмеген хабарламалар алдыңыз ба? Жалпы алғанда, сіз электронды хатты жарамсыз адресатқа жібергеннен кейін аласыз. Мұндай жағдайда, әдетте, электрондық пошта мекенжайларын келесі жолы кездейсоқ жіберілмеуі үшін Outlook контактілерінен алып тастау ұсынылады. Енді төменде біз оны алудың жылдам шешімімен бөлісеміз.
Контактілерден жарамсыз электрондық пошта адрестерінің мекен-жайларын алып тастаңыз
- Бастау үшін, Outlook терезесінде VBA редакторына кіру үшін «Alt + F11» пернелер тіркесімін басыңыз.
- Әрі қарай, келесі VBA кодын пайдаланылмаған жобаға немесе модульге салуға болады.
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
- Осыдан кейін ағымдағы терезені жабыңыз.
- Кейінірек жылдам қол жеткізу құралдар тақтасына жаңа макросты қосыңыз. Сіз мақалаға сілтеме жасай аласыз - «Outlook бағдарламасында VBA кодын қалай іске қосуға болады«.
- Соңында, осы макросты келесі қадамдарды орындау арқылы іске қосуға болады:
- Біріншіден, «жеткізілмейтін» электрондық пошта хабарларын таңдаңыз.
- Содан кейін, жылдам қол жеткізу құралдар тақтасындағы макросты басыңыз.
- Макрос аяқталған кезде сіз «Аяқталды» деген хабарлама аласыз.
- Енді жарамсыз электрондық пошта мекенжайлары жойылған байланысты контактілерді тексеруге болады, мысалы төмендегі скриншот сияқты:
Outlook қателіктерін және сыбайлас жемқорлықты жою
Барлығымыз білетіндей, Outlook әртүрлі себептермен туындаған мәселелер мен бүлінулерге ұшырауы мүмкін. Демек, егер сіз Outlook бағдарламасында жаңадан бастаған болсаңыз, бірнеше сақтық шараларын қолданғаныңыз жөн, мысалы, деректердің мерзімді сақтық көшірмелерін жасау, қуатты және сенімді пайдалану Перспективаны жөндеу утилита, сияқты DataNumen Outlook Repair, және тағы басқа.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. қалпына келтіру кв және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com