Turli xil rangdagi toifalarga ega elektron pochta xabarlarini Outlook-dagi turli jildlarga qanday ko'chirish mumkin

Agar siz Outlook-ga elektron pochta xabarlarini turli xil rang toifalarini tayinlaganingizda ularni avtomatik ravishda turli papkalarga ko'chirishni xohlasangiz, ushbu postda keltirilgan usuldan foydalanishingiz mumkin.

Ko'pgina foydalanuvchilar elektron pochtani ma'lum bir rang toifasi tayinlanganda ma'lum bir jildga avtomatik ko'chirish usullarini orzu qiladi. Hech qanday shubhasiz, Outlook buni amalga oshirish uchun bunday to'g'ridan-to'g'ri xususiyatni taklif qilmaydi. Shuning uchun, quyida biz sizga uni olish vositasini o'rgatamiz. Endi batafsil qadamlarni olish uchun o'qing.

Turli xil rangdagi toifalarga ega elektron pochta xabarlarini turli jildlarga avtomatik ko‘chirish

1. Boshlash uchun Outlook dasturingizni ishga tushiring.
2. Keyin, Outlook-da VBA muharririga kirish uchun "Alt + F11" tugmachalarini bosing.
3. Keyinchalik, quyidagi VBA kodini "ThisOutlookSession" loyihasiga qo'ying.

Private WithEvents objInboxFolder As Outlook.Folder
Private WithEvents objInboxItems As Outlook.Items

'Process inbox mails
Private Sub Application_Startup()
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInboxFolder.Items
End Sub

'Occurs when changing item
Private Sub objInboxItems_ItemChange(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objTargetFolder As Outlook.Folder
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Move mails based on color category
       If InStr(objMail.Categories, "Private") > 0 Then
          Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Private")
          objMail.Move objTargetFolder
       ElseIf InStr(objMail.Categories, "Business") > 0 Then
          Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Business")
          objMail.Move objTargetFolder
       End If
    End If
End Sub

Eslatmalar:

• Boshqa papkalardagi elementlarni qayta ishlash uchun siz “ObjInboxFolder” obyektini o‘zgartirishingiz mumkin, masalan “Application.Session.GetDefaultFolder(olFolderSentMail)” “Yuborilgan elementlar” jildi uchun.
• Shuningdek, yuqoridagi kodda oldindan belgilangan rang toifalari va maqsadli papkalarni haqiqiy holatlaringizga muvofiq o'zgartiring.
• Bundan tashqari, boshqa ixtiyoriy rang toifalarini qo'shish uchun "ElseIf" dan foydalanishingiz mumkin.

4. Shundan so'ng, kursorni "Application_Startup" kichik dasturiga o'tkazing va "F5" tugmasini bosing, bu esa ushbu makrosni faollashtiradi.
5. Nihoyat, siz suratga olishingiz mumkin. Mana mening misolim.

• Inbox papkasida elektron pochtani tanlang.
• Keyin unga "Shaxsiy" rang toifasini belgilang.
• Bu xat birdaniga “Kirish qutisi” ostidagi “Shaxsiy” jildiga ko'chiriladi.

Outlookni ehtiyotkorlik bilan ishlating

Ehtimol, Outlook-da bir nechta muammolarga duch kelgandirsiz. Ko'pincha, ular sizning noto'g'ri ishlashingizdan kelib chiqadi. Masalan, siz doimo Outlook-ni noto'g'ri yopasiz, masalan, to'satdan quvvat o'chirilishi. Yoki siz muntazam ravishda Outlook ma'lumotlarining zaxira nusxasini yaratmagansiz. Barcha shunga o'xshash harakatlar Outlook-ni yanada zaifroq qilishi mumkin. Ma'lumki, PST fayli shikastlanganda uni tuzatish juda qiyin. Umuman olganda, pochta qutisini tuzatish vositasi effektlar yaratmaydi. Sizda tashqi yordamchi dasturlardan, masalan, yordam olishdan boshqa ilojingiz yo'q DataNumen Outlook Repair.

Muallif kirish:

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