Өөр имэйлийг өөр өнгөт категориуд хэрхэн Outlook-ийн өөр хавтас руу автоматаар шилжүүлэх вэ

Outlook шийдлүүд Есдүгээр сарын 29, 2025

Хэрэв та имэйлийг өөр өөр өнгөний ангилал оноох үед Outlook нь өөр хавтас руу автоматаар зөөхийг хүсвэл энэ нийтлэлд танилцуулсан аргыг ашиглаж болно.

Олон хэрэглэгчид имэйлийг тодорхой өнгөний категорид хуваарилагдсан тохиолдолд тодорхой фолдерт автоматаар шилжүүлэх аргыг хүсдэг. Ямар ч эргэлзээгүйгээр Outlook нь үүнийг хэрэгжүүлэх ийм шууд шинж чанарыг санал болгодоггүй. Тиймээс дараахь зүйлийг олж авах арга хэрэгслийг танд заах болно. Одоо дэлгэрэнгүй алхмуудыг авахын тулд уншина уу.

Өөр өөр өнгөт ангилалтай имэйлийг өөр хавтас руу автоматаар шилжүүлэх

Эхлээд Outlook програмаа ажиллуулна уу.
Дараа нь Outlook дээр "Alt + F11" товчийг дарж VBA засварлагч руу орно уу.
Дараа нь дараахь VBA кодыг “ThisOutlookSession” төсөлд оруулна уу.

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

Тайлбар:

Бусад фолдерт байгаа зүйлийг боловсруулахын тулд та "ObjInboxFolder" объектыг "Илгээсэн зүйл" хавтасны "Application.Session.GetDefaultFolder (olFolderSentMail)" гэх мэтээр өөрчилж болно.
Мөн дээрх кодонд урьдчилан тодорхойлсон өнгөний ангилал болон зорилтот хавтаснуудыг өөрийн бодит тохиолдлуудын дагуу өөрчилнө үү.
Нэмж дурдахад, та "ElseIf" -ийг ашиглан бусад сонголттой өнгөний ангиллыг нэмж болно.

Үүний дараа курсорыг "Application_Startup" дэд програм руу зөөж, энэ макрог идэвхжүүлэх "F5" товчийг дарна уу.
Эцэст нь та буудаж болно. Миний жишээ энд байна.

Ирсэн имэйлийн хавтаснаас имэйл сонгоно уу.
Дараа нь түүнд "Хувийн" өнгө ангиллыг хуваарилна уу.
Энэ захидлыг нэг дор "Ирсэн имэйл" доторх "Хувийн" хавтас руу зөөх болно.

Өөрийн хэтийн төлөвийг анхааралтай авч үзээрэй

Магадгүй та Outlook дээр хэд хэдэн асуудалтай тулгарсан байх. Ихэнх тохиолдолд эдгээр нь таны зохисгүй харьцалтаас болдог. Жишээлбэл, та гэнэт цахилгаан унах гэх мэт Outlook програмаа үргэлж буруу хаадаг. Эсвэл та Outlook өгөгдлөө тодорхой хугацаанд нөөцлөөгүй байна. Үүнтэй төстэй бүх үйлдэл нь таны Outlook-ийг илүү эмзэг болгож чадна. Нэгэнт PST файл гэмтсэн тохиолдолд түүнийг засах нь туйлын хэцүү болохыг та мэдэж байгаа. Ерөнхийдөө ирсэн хайрцаг засах хэрэгсэл үр нөлөө үзүүлэхгүй. Гэх мэт гадны шилдэг үйлчилгээнүүдийн тусламжийг авахаас өөр аргагүй болно DataNumen Outlook Repair.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql сэргээх програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com