Geçersiz alıcı adreslerine e-posta gönderdiğinizde, teslim edilemeyen e-posta bildirimleri alırsınız. Bu noktada, bu e-posta adreslerini kişilerinizden kaldırmak isterseniz, bu yazıda paylaşılan yöntemi kullanabilirsiniz.
Geçersiz e-posta adreslerini listeleyen teslim edilemeyen e-posta bildirimleri aldınız mı? Genel olarak, bu tür e-postaları, geçersiz alıcı adreslerine e-posta gönderdikten sonra alırsınız. Bu durumda, bir dahaki sefere onlara yanlışlıkla posta gönderilmesini önlemek için genellikle bu e-posta adreslerini Outlook kişilerinden kaldırmanız önerilir. Şimdi, aşağıda, bunu elde etmek için size hızlı bir çözüm paylaşacağız.
Kişilerden Teslim Edilemeyen E-postaların Geçersiz Alıcı Adreslerini Kaldırma
- Öncelikle, Outlook penceresinde "Alt + F11" tuşlarına basarak VBA düzenleyicisine erişin.
- Ardından, kullanılmayan bir proje veya modüle aşağıdaki VBA kodunu koyabilirsiniz.
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
- Bundan sonra mevcut pencereyi kapatın.
- Daha sonra, yeni makroyu Hızlı Erişim Araç Çubuğuna ekleyin. Makaleye başvurabilirsiniz - “Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?".
- Son olarak, aşağıdaki adımları izleyerek bu makroyu çalıştırabilirsiniz:
- İlk etapta, “Teslim edilemeyen” e-posta mesajlarını seçin.
- Ardından, Hızlı Erişim Araç Çubuğundaki makroyu tıklayın.
- Makro bittiğinde, “Tamamlandı” mesajını alacaksınız.
- Artık, aşağıdaki ekran görüntüsü gibi, geçersiz e-posta adreslerinin kaldırıldığı ilişkili kişileri kontrol edebilirsiniz:
Outlook Hatalarını ve Bozulmayı Çözme
Hepimizin bildiği gibi, Outlook çeşitli nedenlerle sorunlara ve bozulmalara maruz kalabilir. Bu nedenle, Outlook'ta acemi iseniz, periyodik veri yedeklemeleri yapmak, güçlü ve güvenilir bir yazılım kullanmak gibi bazı etkili önlemler alsanız iyi olur. Outlook onarımı kullanışlılık gibi DataNumen Outlook RepairVe benzeri.
Yazar Tanıtımı:
Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql'yi kurtar ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com