Outlook-ийн өнгөний ангиллыг VBA-аар хэрхэн солих вэ

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

Бид Outlook дээр өнгөний ангиллыг ашиглах болсон гол шалтгаан нь таны Outlook-ийн зүйлсийг илүү сайн ангилж, удирдах явдал юм. Үүнээс гадна Outlook нь бидэнд нэг зүйлд нэг буюу хэд хэдэн өнгөт категори олгохыг зөвшөөрдөг. Гэсэн хэдий ч, нэг зүйлд хэт олон категори хуваарилсан нь заримдаа таны ангиллын дүрмийг эмх замбараагүй болгодог. Тиймээс олон хэрэглэгчид категориудыг давхарлахын оронд өнгөний ангиллыг солихыг хүсдэг. Энд бид танд үр дүнтэй аргыг танилцуулах болно.

Outlook зүйлийн өнгөний ангиллыг солих

1. Хамгийн эхэнд Outlook програмаа ажиллуулна уу.
2. Дараа нь "Хөгжүүлэгч" таб руу шилжиж, "Visual Basic" товчийг дарж эсвэл "Alt + F11" товчийг дарна уу.
3. Дараа нь та "Програмд ​​зориулсан Microsoft Visual Basic" цонхонд орно.
4. Энэ үед та зүүн талд байгаа "ThisOutlookSession" төсөл дээр давхар товшиж нээх хэрэгтэй.
5. Дараа нь дараахь VBA кодыг энэхүү төслийн цонхонд хуулж ав.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
'Take Mailitem as an example
Public WithEvents objMail As Outlook.MailItem

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

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

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    Set objMail = Inspector.CurrentItem
End Sub

Private Sub objMail_PropertyChange(ByVal Name As String)
    Dim strSpecificCategory As String
    Dim strCategories As String
    Dim varArray As Variant
    Dim i As Long
  
    If Name = "Categories" Then
       strCategories = objMail.Categories
       varArray = Split(objMail.Categories, ",")
       If UBound(varArray) >= 1 Then
          'If want to get a confirmation before removing the original category
          'Add the following lines
          'Dim strPrompt As String
          'Dim nResponse As Integer
          'strPrompt = "Do you want to remove the original color category?"
          'nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Color Category Assignment")
          'If nResponse = vbYes Then
          For i = 0 To UBound(varArray)
              'Remove the previous color categories
              varArray(1) = ""
              'Rebuild the categories
              objMail.Categories = Join(varArray, ",")
              Exit Sub
          Next i
          'End If
       End If
    End If
End Sub

6. Үүний дараа та энэ шинэ макрот дижитал гэрчилгээ олгох ёстой.
7. Дараа нь та гарын үсэг зурсан макро идэвхжсэн эсэхийг шалгахын тулд Outlook макро тохиргоогоо шалгах хэрэгтэй.
8. Эцэст нь та шинэ VBA төслийг идэвхжүүлэхийн тулд Outlook-г дахин эхлүүлэх хэрэгтэй.
9. Одооноос эхлэн тухайн зүйлд шинэ ангиллыг оноох болгонд өмнөх нь автоматаар устах болно.

Nettlesome Outlook-ийн асуудлуудыг шийдвэрлэх

Outlook нь алдаа, эвдрэлд өртөмтгий байдаг тул та Outlook дээр янз бүрийн асуудалтай тулгарах болно. Тиймээс та хангалттай урьдчилан сэргийлэх арга хэмжээ авах хэрэгтэй. Жишээлбэл, PST файлаа тогтмол нөөцлөхийг зөвлөж байна. Нэмж дурдахад та хүчирхэг хүнийг барьж авах хэрэгтэй PST засах гэх мэт хэрэгсэл DataNumen Outlook Repair.

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

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