Әр түрлі түсті санаттармен электрондық поштаны Outlook бағдарламасындағы әртүрлі қалталарға қалай автоматты түрде жылжытуға болады

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

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

Әр түрлі түсті санаттармен электрондық пошталарды әртүрлі қалталарға автоматты түрде жылжыту

1. Бастау үшін Outlook бағдарламаңызды іске қосыңыз.
2. Содан кейін, Outlook бағдарламасында VBA редакторына кіру үшін «Alt + F11» батырмаларын басыңыз.
3. Содан кейін келесі 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

Ескертулер:

• Басқа қалталардағы элементтерді өңдеу үшін «Жіберілген элементтер» қалтасы үшін «Application.Session.GetDefaultFolder (olFolderSentMail)» сияқты «objInboxFolder» нысанын өзгертуге болады.
• Сондай-ақ, жоғарыдағы кодта алдын ала анықталған түс санаттары мен мақсатты қалталарды нақты жағдайларыңызға сәйкес өзгертіңіз.
• Сонымен қатар, сіз басқа қосымша түстер санаттарын қосу үшін «ElseIf» -ті пайдалана аласыз.

4. Осыдан кейін, курсорды «Application_Startup» кіші бағдарламасына жылжытып, «F5» пернесін басыңыз, бұл осы макросты іске қосады.
5. Ақыр соңында, сіз атуға болады. Міне менің мысалы.

• Кіріс қалтасында электрондық поштаны таңдаңыз.
• Содан кейін оған «Жеке» түс категориясын тағайындаңыз.
• Бірден бұл пошта «Кіріс жәшігі» ішіндегі «Жеке» қалтасына көшіріледі.

Өзіңіздің көзқарастарыңызды мұқият қолданыңыз

Мүмкін сіз Outlook бағдарламасында бірнеше мәселелерге тап болған шығарсыз. Көбінесе, олар сіздің дұрыс емес өңдеуіңізден туындайды. Мысалы, сіз әрқашан Outlook бағдарламасын қате жауып тастайсыз, мысалы, кенеттен өшіп қалу. Немесе сіз Outlook деректерінің сақтық көшірмесін белгілі бір уақыт аралығында жасаған жоқсыз. Барлық ұқсас әрекеттер сіздің Outlook бағдарламаңызды әлдеқайда осал ете алады. Өздеріңіз білетіндей, PST файлы бүлінгеннен кейін оны қалпына келтіру өте қиын. Жалпы, кіріс жәшігін жөндеу құралы әсер етпейді. Сияқты сыртқы көмекші утилиталардан көмек сұраудан басқа амалың жоқ, мысалы DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. қалпына келтіру кв және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com