Ինչպե՞ս ավտոմատ կերպով ներմուծվող էլ.փոստերը հատուկ հիպերհղումներով տեղափոխել աղբի էլ.փոստի թղթապանակ

Եթե ​​ցանկանում եք ավտոմատ կերպով փոխանցել հաղորդագրության մարմնում առկա հատուկ հղումներով մուտքային էլ. Փոստերը ձեր Outlook- ի Անպիտան փոստի պանակին, կարող եք օգտագործել այս հոդվածում ներկայացված մեթոդը:

Երբեմն, Outlook Junk էլփոստի զտիչը սխալմամբ նշում է իսկական էլփոստերը որպես junks: Այսպիսով, դուք կարող եք նախընտրել ցածր մակարդակի վրա դնել ձեր Outlook անպիտան փոստի պաշտպանության մակարդակը: Այնուամենայնիվ, այս դեպքում շատ անպիտան նամակներ կարող են չճանաչվել Outlook աղբի էլփոստի զտիչի կողմից, օրինակ ՝ ռիսկային հիպերհղումներով նամակները: Դա ոչ միայն կխճճի ձեր մուտքի արկղի պանակը, այլև կարող է վարակել ձեր Outlook- ի տվյալները, եթե կտտացրեք հղումները: Բացի այդ, եթե չեք սիրում ստանալ հատուկ հիպերհղումներ պարունակող նամակները, գուցե ցանկանաք դրանք նաև տեղափոխել «Անպիտան էլ. Փոստ» պանակ: Հետևաբար, այստեղ մենք կկենտրոնանանք այս խնդրի վրա և կառաջնորդենք, թե ինչպես օգտագործել VBA- ն մուտքային նամակները ավտոմատ կերպով տեղափոխելու հատուկ հիպերհղումներով Junk E-mail թղթապանակ:

Էլեկտրոնային նամակները հատուկ հղումներով ավտոմատ տեղափոխեք աղբի էլփոստի թղթապանակ

1. Հենց սկզբից գործարկեք ձեր Outlook հավելվածը:
2. Ապա Outlook- ի հիմնական պատուհանում սեղմեք «Alt + F11» ստեղնային կոճակները:
3. Հետևաբար, «Microsoft Visual Basic հավելվածների համար» պատուհանում բացեք «ThisOutlookSession» նախագիծը:
4. Հաջորդը պատճենեք և տեղադրեք հետևյալ VBA կոդը այս նախագծի պատուհանում:

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. Դրանից հետո ստորագրեք այս կոդը, ինչպես միշտ:
6. Ավելի ուշ փոխեք Outlook մակրո պարամետրերը ՝ ստորագրված մակրոները թույլ տալու համար:
7. Ի վերջո restarձեր Outlook- ը `նոր ավելացված VBA նախագիծը միացնելու համար:
8. Այսուհետ, բոլոր մուտքային էլ. Փոստերը, որոնք պարունակում են հատուկ հղումներ, ավտոմատ կերպով կտեղափոխվեն Անպիտան փոստապանակ:

PST- ի սխալները կարող են առաջանալ հիմա և հետո

Չնայած պարծենալով տարբեր հզոր գործառույթներով, Outlook- ը դեռ չի կարող ազատվել PST- ի սխալներից: Հետեւաբար, Outlook- ի օգտագործողների համար դժվար, հոգնեցուցիչ, բայց կենսականորեն կարևոր խնդիր է պաշտպանել ձեր PST տվյալները կորստից: Նրանցից մեկըost Ձեր PST ֆայլը կանոնավոր կերպով կրկնօրինակելը արդյունավետ միջոց է, ինչը մեծապես կնպաստի ապագային PST- ի վերականգնում PST- ի չնախատեսված կոռուպցիայից հետո:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում ուղղել SQL Server և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com