Хүлээн авагчийн буруу хаяг руу имэйл илгээх үед та хүргэгдэх боломжгүй имэйл мэдэгдэл хүлээн авах болно. Энэ үед, хэрэв та эдгээр имэйл хаягийг харилцагчдаас устгахыг хүсвэл энэ нийтлэлд хуваалцсан аргыг ашиглаж болно.
Хүчингүй имэйл хаягуудыг жагсаасан, хүргэх боломжгүй имэйл мэдэгдэл хүлээн авч байсан уу? Ерөнхийдөө та хүлээн авагчийн буруу хаяг руу имэйл илгээсний дараа ийм имэйл хүлээн авах болно. Ийм нөхцөлд дараагийн удаа санамсаргүйгээр имэйл илгээхгүйн тулд 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
- Үүний дараа одоо байгаа цонхыг хаах хэрэгтэй.
- Дараа нь Quick Access Toolbar-д шинэ макро нэмнэ үү. Та нийтлэлээс лавлаж болно - "Таны Outlook дээр VBA кодыг хэрхэн ажиллуулах вэ".
- Эцэст нь та дараах алхмуудыг дагаж энэ макро ажиллуулж болно.
- Эхний ээлжинд "Хүргэх боломжгүй" имэйл мессежийг сонгоно уу.
- Дараа нь Quick Access Toolbar дээрх макро дарна уу.
- Макро дууссаны дараа та "Дууссан" гэсэн мессежийг хүлээн авах болно.
- Одоо та доорх дэлгэцийн зураг шиг хүчингүй имэйл хаягуудыг устгасан холбогдох харилцагчдыг шалгаж болно.
Outlook алдаа, авлигыг шийдвэрлэх
Бидний мэдэж байгаагаар Outlook нь янз бүрийн шалтгааны улмаас асуудал, эвдрэлд өртөж болзошгүй юм. Тиймээс, хэрэв та Outlook дээр шинэхэн хүн бол өгөгдлийн тогтмол нөөцлөлт хийх, хүчирхэг, найдвартай програм ашиглах гэх мэт үр дүнтэй урьдчилан сэргийлэх арга хэмжээ авсан нь дээр. Outlook засвар хэрэгсэл, гэх мэт DataNumen Outlook Repair, гэх мэт.
Зохиогчийн танилцуулга:
Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql сэргээх програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com