როგორ ავტომატურად გადავიტანოთ ელ.წერილები სხვადასხვა ფერის კატეგორიებით სხვადასხვა საქაღალდეებში Outlook-ში

თუ გსურთ, რომ Outlook-მა ავტომატურად გადაიტანოს ელფოსტები სხვადასხვა საქაღალდეში, როდესაც მათ სხვადასხვა ფერის კატეგორიებს ანიჭებთ, შეგიძლიათ გამოიყენოთ ამ პოსტში წარმოდგენილი მეთოდი.

ბევრი მომხმარებელი ეძებს მეთოდებს, რათა ელ.წერილი ავტომატურად გადაიტანოს კონკრეტულ საქაღალდეში, როდესაც მას მინიჭებული აქვს გარკვეული ფერის კატეგორია. ეჭვგარეშეა, რომ Outlook არ გვთავაზობს ასეთ პირდაპირ ფუნქციას ამის განსახორციელებლად. ამიტომ, ქვემოთ ჩვენ გასწავლით მისი მიღების გზას. ახლა, გააგრძელეთ კითხვა დეტალური ნაბიჯების სანახავად.

სხვადასხვა ფერის კატეგორიების მქონე ელფოსტის ავტომატური გადატანა სხვადასხვა საქაღალდეებში

1. დასაწყებად, გაუშვით თქვენი Outlook პროგრამა.
2. შემდეგ, Outlook-ში, VBA რედაქტორზე გადასასვლელად დააჭირეთ Alt + F11 კლავიშებს.
3. შემდგომში, „ThisOutlookSession“ პროექტში ჩასვით შემდეგი VBA კოდი.

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)“ „Sent Items“ საქაღალდისთვის.
• ასევე, შეცვალეთ ზემოთ მოცემულ კოდში წინასწარ განსაზღვრული ფერის კატეგორიები და სამიზნე საქაღალდეები თქვენი რეალური შემთხვევების შესაბამისად.
• გარდა ამისა, შეგიძლიათ გამოიყენოთ „ElseIf“ სხვა არჩევითი ფერის კატეგორიების დასამატებლად.

4. ამის შემდეგ, გადაიტანეთ კურსორი „Application_Startup“ ქვერუტინში და დააჭირეთ „F5“, რაც გაააქტიურებს ამ მაკროს.
5. და ბოლოს, შეგიძლიათ გადაიღოთ. აი ჩემი მაგალითი.

• აირჩიეთ ელ.წერილი შემოსულების საქაღალდეში.
• შემდეგ, მიანიჭეთ მას ფერის კატეგორია „პირადი“.
• ეს ფოსტა დაუყოვნებლივ გადავა „პირადი“ საქაღალდეში „შემოსულების“ განყოფილებაში.

სიფრთხილით მოეპყარით თქვენს პერსპექტივას

შესაძლოა, თქვენს Outlook-ში რამდენიმე პრობლემა შეგხვედრიათ. უმეტეს შემთხვევაში, ისინი თქვენი არასწორი მოპყრობის შედეგია. მაგალითად, თქვენ ყოველთვის არასწორად ხურავთ Outlook-ს, მაგალითად, უეცარი გამორთვის შემთხვევაში. ან არ ახდენთ თქვენი Outlook მონაცემების სარეზერვო ასლის შექმნას რეგულარული ინტერვალებით. ყველა მსგავსმა ქმედებამ შეიძლება თქვენი Outlook გაცილებით დაუცველი გახადოს. როგორც იცით, PST ფაილის დაზიანების შემდეგ მისი აღდგენა ძალიან რთულია. ზოგადად, შემოსულების სარემონტო ინსტრუმენტი ეფექტებს არ შექმნის. თქვენ სხვა გზა არ გაქვთ, გარდა იმისა, რომ გამოიყენოთ გარე, უმაღლესი ხარისხის უტილიტები, როგორიცაა DataNumen Outlook Repair.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის sql-ის აღდგენა და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად