Xüsusi e-poçtları Outlook-da oxuduqdan sonra onları xüsusi qovluqlara avtomatik olaraq necə köçürmək olar

Bir çox istifadəçi xüsusi e-poçtları oxuduqdan sonra Gələnlər qutusundan digər xüsusi qovluqlara köçürmək istəyir ki, bu da Gələnlər qutusu poçt qovluğunu təmiz saxlayacaq. Ancaq həmişə əl ilə hərəkət etmək çətin olacaq. Bu məqalə avtomatik olaraq həyata keçirmək üçün sürətli bir üsul təqdim edəcəkdir.

Həmişə olduğu kimi, hər gələn e-poçt Outlook-da Gələnlər qutusu poçt qovluğuna düşəcək. Beləliklə, bu halda, Gələnlər qutusu qovluğu dağınıq olacaq və zamanla doldurulacaq. Çox vaxt siz xüsusi e-poçtları digər poçt qovluqlarına əl ilə köçürə və ya xüsusi e-poçtları poçt qutunuza gələn kimi avtomatik köçürmək üçün Outlook qaydası yarada bilərsiniz. Belə bir qaydanı tətbiq etmək daha rahatdır, lakin yeni məktublara daxil olmaq üçün xüsusi qovluqlara getməlisiniz. Bu problemlə qarşılaşdıqda, Outlook-un xüsusi e-poçtları gələndən sonra deyil, Gələnlər qutusunda oxuyub tamamladıqdan sonra Gələnlər qutusundan digər poçt qovluqlarına avtomatik köçürə biləcəyinə ümid edə bilərsiniz. Lakin Outlook qaydası bunu həyata keçirə bilməz. Xoşbəxtlikdən, bunu gerçəkləşdirmək üçün Outlook VBA-dan istifadə edə bilərsiniz. Burada kodlar, eləcə də ətraflı addımlar var.

Xüsusi e-poçtları oxuduqdan sonra onları xüsusi qovluqlara avtomatik köçürün

1. Əvvəlcə Outlook-u işə salın və "Developer" sekmesine keçin.
2. Sonra bu tabda VBA redaktoru pəncərəsini açmaq üçün “Visual Basic” düyməsini sıxın.
3. Sonrakı yeni pəncərədə "ThisOutlookSession" layihəsini tapmalı və onu açmaq üçün iki dəfə klikləyin.
4. Sonradan aşağıdakı VBA kodlarını kopyalayıb ona yapışdırın.

Public WithEvents olItems As Outlook.Items

Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemChange(ByVal Item As Object)
    Dim deFolder As Folder
 
    'Ensure the email marked as read
    If TypeOf Item Is MailItem And Item.UnRead = False Then
 
    'Check the email subject and then move to specific folder
    'You can change these conditions and folders as per your needs
    If InStr(LCase(Item.Subject), "test") > 0 Then
       Set deFolder = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("Test")
       Item.Move deFolder
    End If
 
    If InStr(LCase(Item.Subject), "worklog") > 0 Then
       Set deFolder = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("WorkLog")
       Item.Move deFolder
    End If
 
    If InStr(LCase(Item.Subject), "report") > 0 Then
       Set deFolder = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("Report")
       Item.Move deFolder
    End If
End Sub

5. Bundan sonra bu kodu rəqəmsal olaraq imzalamalısınız.

• Əvvəlcə yeni sertifikat yaratmaq üçün daxili "VBA Layihələri üçün Rəqəmsal Sertifikatlar" alətindən istifadə edin.
• Sonra bu sertifikatı cari makroya təyin edin. Aşağıdakı şəkildə göstərilən addımları yerinə yetirin:

6. Daha sonra yalnız rəqəmsal imzalanmış makroları aktivləşdirmək üçün makro parametrlərini dəyişdirməlisiniz.
7. Nəhayət, bu VBA layihəsini aktivləşdirmək üçün Outlook-u yenidən başlatmalısınız. Bundan sonra bütün daxil olan e-poçtlar yenə də Gələnlər qutusuna düşəcək. Lakin yeni e-poçt oxunan kimi avtomatik olaraq müəyyən qovluqlara köçürüləcək.

Outlook problemlərini həll etmək üçün ağıllı fəndlər

Outlook-un səhvlərə meylli olması səbəbindən bir çox istifadəçi tez-tez rast gəlinən problemlərin öhdəsindən gəlmək üçün ağıllı məsləhətlər istəyir. Adətən, ən çox yayılmış üsullara yeni poçt profili yaratmaq, üçüncü tərəf əlavələrini deaktiv etmək, Office paketini təmir etmək və Scanpst.exe gələnlər qutusu təmir alətindən istifadə etmək daxildir. Daxili alət sıradan çıxarsa, daha güclü bir vasitəyə müraciət edə bilərsiniz. zədələnmiş Outlook təmir proqramıKimi DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc zədələnmiş SQL db-ni təmir edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com