Belirli Köprülerle Gelen E-postaları Önemsiz E-posta Klasörüne Otomatik Olarak Taşıma

İleti gövdesinde belirli köprüler bulunan gelen e-postaları otomatik olarak Outlook'unuzdaki Önemsiz E-posta klasörüne taşımak istiyorsanız, bu makalede açıklanan yöntemi kullanabilirsiniz.

Bazen, Outlook Önemsiz e-posta filtresi, orijinal e-postaları yanlışlıkla istenmeyen e-posta olarak işaretler. Bu nedenle, Outlook önemsiz e-posta koruma düzeyinizi düşük olarak ayarlamayı tercih edebilirsiniz. Ancak bu durumda, riskli köprülere sahip e-postalar gibi birçok gereksiz e-posta Outlook önemsiz e-posta filtresi tarafından tanınmayabilir. Yalnızca gelen kutusu klasörünüzü karıştırmakla kalmaz, aynı zamanda bağlantılara tıklarsanız Outlook verilerinize de bulaşabilir. Ayrıca, belirli köprüler içeren e-postaları almaktan hoşlanmazsanız, bunları da Önemsiz E-posta klasörüne taşımak isteyebilirsiniz. Bu nedenle, burada bu konuya odaklanacağız ve belirli köprülere sahip gelen e-postaları Önemsiz E-posta klasörüne otomatik olarak taşımak için VBA'yı nasıl kullanacağınız konusunda size rehberlik edeceğiz.

Belirli Köprülere Sahip E-postaları Önemsiz E-posta Klasörüne Otomatik Olarak Taşı

1. En başta, Outlook uygulamanızı başlatın.
2. Ardından ana Outlook penceresinde “Alt + F11” tuş düğmelerine basın.
3. Ardından açılan "Microsoft Visual Basic for Applications" penceresinde "ThisOutlookSession" projesini açın.
4. Ardından, aşağıdaki VBA kodunu kopyalayıp bu proje penceresine yapıştırın.

Public WithEvents objIncomingItems As Outlook.Items

Private Sub Application_Startup()
    Set objIncomingItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objIncomingItems_ItemAdd(ByVal objItem As Object)
    Dim objMail As Outlook.MailItem
    Dim objWordDocument As Word.Document
    Dim objHyperlinks As Word.Hyperlinks
    Dim i As Long
    Dim strURL As String
    Dim objJunkMailFolder As Outlook.Folder
 
    Set objJunkMailFolder = Application.Session.GetDefaultFolder(olFolderJunk)
 
    If TypeOf objItem Is MailItem Then
       Set objMail = objItem
       Set objWordDocument = objMail.GetInspector.WordEditor
       Set objHyperlinks = objWordDocument.Hyperlinks
 
       If objHyperlinks.Count > 0 Then
          For i = objHyperlinks.Count To 1 Step -1
              strURL = objHyperlinks.Item(i).Address
              'Check if the hyperlink addresses contain specific words
              'You can change the condition as per your needs
              If InStr(LCase(strURL), "www.test.com") > 0 Or InStr(LCase(strURL), "www.sales.com") > 0 Then
                 objMail.Move objJunkMailFolder
              End If
          Next i
       End If
    End If
End Sub

5. Bundan sonra, bu kodu her zamanki gibi imzalayın.
6. Daha sonra imzalı makrolara izin vermek için Outlook makro ayarlarını değiştirin.
7. Sonunda restar• Yeni eklenen VBA projesini etkinleştirmek için Outlook'unuz.
8. Bundan sonra, belirli köprüler içeren tüm gelen e-postalar otomatik olarak Önemsiz E-posta klasörüne taşınacaktır.

PST Hataları Arada sırada Oluşabilir

Çeşitli güçlü işlevlere sahip olmasına rağmen, Outlook hala PST hatalarından kurtulamıyor. Bu nedenle, Outlook kullanıcıları için PST verilerinizi kaybolmaya karşı korumak zorlu, sıkıcı ama hayati derecede önemli bir görevdir. Onlardan biriost etkili yol, PST dosyanızı düzenli olarak yedeklemektir; bu, geleceğe çok şey katacaktır. PST kurtarma beklenmedik PST bozulmasından sonra.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. düzeltmek SQL Server ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com