Outlook элементінің түс санатын VBA көмегімен қалай ауыстыруға болады

Outlook элементінің түс санатын ауыстырғыңыз келсе, жаңа санат тағайындалғандықтан, түпнұсқасын жоюыңыз керек. Осылайша, осы мақалада біз сізге VBA арқылы оны автоматтандыруды үйретеміз.

Outlook бағдарламасында түс санаттарын пайдалануымыздың негізгі себебі - Outlook элементтерін жақсырақ жіктеу және басқару. Сонымен қатар, Outlook бағдарламасы бір элементке бір немесе бірнеше түс санаттарын тағайындауға мүмкіндік береді. Дегенмен, бір элементке тағайындалған тым көп санаттар кейде жіктеу ережелерін бұзуы мүмкін. Сондықтан көптеген пайдаланушылар санаттарды қабаттаудың орнына түс санатын ауыстырғысы келеді. Мұнда біз сізге тиімді жолды көрсетеміз.

Outlook элементінің Түс санатын ауыстырыңыз

1. Ең басында Outlook қосымшасын іске қосыңыз.
2. Содан кейін «Әзірлеуші» қойындысына ауысып, «Visual Basic» түймесін басыңыз немесе «Alt + F11» пернелер тіркесімін басыңыз.
3. Әрі қарай «Microsoft Visual Basic for Applications» терезесіне кіресіз.
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