Qanday qilib elektron pochtani Outlook-ga yuborganingizdan so'ng uni ma'lum bir jildga avtomatik ko'chirish mumkin

Outlook yechimlari Sentyabr 29, 2025

Pochta qutingizni tartibda saqlash uchun siz ma'lum elektron pochta xabarlarini ma'lum bir papkada saqlashga odatlanishingiz mumkin. Ushbu maqola sizga elektron pochtani uzatganingizdan so'ng uni avtomatik ko'chirish uchun Outlook VBA-dan qanday foydalanishni aytib beradi.

Shu kabi elektron pochta xabarlarini ma'lum bir pochta papkasida saqlash katta miqdordagi elektron pochta xabarlarini boshqarish uchun yaxshi maslahatdir. Turli foydalanuvchilar pochtani tasniflash va boshqarish uchun o'z mezonlariga ega bo'lishi kerak. Masalan, siz elektron pochta xabarlaringizni ularga javob berish, yuborish yoki boshqalar kabi keyingi harakatlaringizga qarab tasniflashni afzal ko'rishingiz mumkin. Agar siz elektron pochta xabarini “Yo'naltirilgan” kabi ma'lum bir jildga avtomatik ko'chirmoqchi bo'lsangiz, uni yo'naltirganingizda, uni tezda olish uchun quyidagi operatsiyalar va VBA kodlarini qo'llashingiz mumkin.

E-pochtani uzatganingizdan so'ng uni ma'lum bir jildga avtomatik ko'chiring

Birinchidan, Outlook-ni ishga tushiring.
Keyin "Tuzuvchi" yorlig'iga o'ting.

Eslatma: Agar siz ushbu yorliqni topa olmasangiz, avval uni yoqish uchun “Fayl” > “Tanlovlar” > “Tasmani moslashtirish” bo‘limiga o‘ting.

Ushbu yorliq paydo bo'lgandan so'ng, uning ostidagi "Visual Basic" tugmasini topib, bosishingiz mumkin.
Keyinchalik, yangi "Microsoft Visual Basic for Applications" oynasi ochiladi. Unda uni ochish uchun chap tarafdagi “ThisOutlookSession” loyihasini ikki marta bosishingiz kerak.
Shundan so'ng siz quyidagi VBA kodlarini nusxalashingiz va unga joylashtirishingiz mumkin.

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

Keyinchalik sizdan yangi VBA loyihasini imzolashingiz talab qilinadi.

Birinchidan, raqamli sertifikat yaratish uchun o'rnatilgan "VBA loyihalari uchun raqamli sertifikatlar" vositasidan foydalaning.
Keyin quyidagi skrinshot kabi sertifikatni ushbu makrosga tayinlang:

Keyinchalik raqamli imzolangan makroslarga ruxsat berish uchun so'l sozlamalaringizni o'zgartirishingiz mumkin.
Nihoyat restart Outlook yangi makroni faollashtirish uchun. Bundan buyon, siz elektron pochtani tanlaganingizda va "O'tkazish" tugmasini bosganingizda, xat bir vaqtning o'zida "Yo'naltirilgan" jildiga ko'chiriladi.

Kiruvchi Outlook PST ma'lumotlarining buzilishidan saqlaning

Ulardan biriost Outlook foydalanuvchilarini uzoq vaqtdan beri qiynab kelayotgan muammolar Outlookning korruptsiyaga moyilligidir. Ya'ni, azob chekish PST shikastlanishi umumiy masaladir. Shuning uchun, prognoz ma'lumotlarini yo'qotishning oldini olish uchun siz PST ma'lumotlaringiz uchun izchil va dolzarb zaxira nusxasini yaratganingiz ma'qul.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc buzilgan SQL Server va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com