Outlook-da ötürdükdən sonra e-poçtu avtomatik olaraq xüsusi bir qovluğa necə köçürmək olar

Poçt qutunuzu qaydasında saxlamaq üçün siz xüsusi e-poçtları xüsusi qovluqda saxlamağa alışa bilərsiniz. Bu məqalə sizə e-poçtu yönləndirdikdən sonra onu avtomatik köçürmək üçün Outlook VBA-dan necə istifadə edəcəyinizi izah edəcək.

Oxşar e-poçtların müəyyən bir poçt qovluğunda saxlanması çox sayda e-poçtu idarə etmək üçün yaxşı məsləhətdir. Əminik ki, müxtəlif istifadəçilərin poçtun təsnifatı və idarə olunması üçün öz meyarları olmalıdır. Məsələn, siz e-poçtlarınızı cavablandırma, yönləndirmə və ya başqaları kimi sonrakı hərəkətlərinizə görə təsnif etməyə üstünlük verə bilərsiniz. Əgər siz e-poçtu “Yönləndirilmiş” kimi xüsusi bir qovluğa avtomatik köçürmək istəyirsinizsə, onu yönləndirdiyiniz zaman onu tez bir zamanda əldə etmək üçün aşağıdakı əməliyyatları və VBA kodlarını tətbiq edə bilərsiniz.

E-poçtu göndərdikdən sonra onu avtomatik olaraq xüsusi qovluğa köçürün

1. İlk növbədə, Outlook-u işə salın.
2. Sonra "Developer" sekmesine keçin.

Qeyd: Bu nişanı tapa bilmirsinizsə, ilk olaraq onu aktivləşdirmək üçün “Fayl” > “Seçimlər” > “Lenti fərdiləşdirin” bölməsinə keçməlisiniz.

3. Bu nişan göründükdən sonra onun altındakı “Visual Basic” düyməsini tapıb klikləyə bilərsiniz.
4. Sonra, yeni "Proqramlar üçün Microsoft Visual Basic" pəncərəsi açılacaq. Orada, onu açmaq üçün sol tərəfdəki “ThisOutlookSession” layihəsinə iki dəfə klikləməlisiniz.
5. Bundan sonra, aşağıdakı VBA kodlarını kopyalayıb ona yapışdıra bilərsiniz.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objMail_Forward(ByVal Response As Object, Cancel As Boolean)
    Dim objInboxFolder As Folder
    Dim objTargetFolder As Folder
 
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
 
    On Error Resume Next
    Set objTargetFolder = objInboxFolder.parent.Folders("Forwarded")
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = objInboxFolder.parent.Folders.Add("Forwarded")
    End If
    objMail.Categories = "Forwarded"
    objMail.Move objTargetFolder
End Sub

6. Daha sonra sizdən yeni VBA layihəsini imzalamağınız tələb olunacaq.

• Əvvəlcə rəqəmsal sertifikat yaratmaq üçün "VBA Layihələri üçün Rəqəmsal Sertifikatlar" daxili alətindən istifadə edin.
• Sonra sertifikatı aşağıdakı ekran görüntüsü kimi bu makroya təyin edin:

7. Daha sonra rəqəmsal imzalanmış makrolara icazə vermək üçün makro parametrlərinizi dəyişə bilərsiniz.
8. Nəhayət restart Yeni makronu aktivləşdirmək üçün Outlook. Bundan sonra e-poçtu seçdiyiniz və “İrəli” düyməsini kliklədiyiniz zaman e-poçt dərhal “Yönləndirilmiş” qovluğuna köçürüləcək.

Arzuolunmaz Outlook PST Data Korrupsiyasından çəkinin

Onlardan biriost Outlook istifadəçilərini uzun müddət narahat edən problemlər Outlook-un korrupsiyaya meylli olmasıdır. Yəni əzab-əziyyət PST zədəsi ümumi məsələdir. Buna görə də, dünyagörüşü məlumatlarının itirilməsinin qarşısını almaq üçün PST məlumatlarınız üçün ardıcıl və müasir ehtiyat nüsxəsini çıxarmağınız daha yaxşıdır.

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 satqın SQL Server və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com