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

გააზიარე ახლა:

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

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

ავტომატური შექმენით დავალება, როდესაც ელ.წერილს ენიჭება კონკრეტული კატეგორია

  1. დასაწყებად, გახსენით Outlook და გადადით "დეველოპერის" ჩანართზე.
  2. ამ ჩანართზე შეგიძლიათ იპოვოთ და დააწკაპუნოთ ღილაკზე „Visual Basic“.
  3. შემდეგ გაიხსნება ახალი ფანჯარა "Microsoft Visual Basic აპლიკაციებისთვის". მასში ორჯერ უნდა დააწკაპუნოთ პროექტზე „ThisOutlookSession“.
  4. შემდეგ თქვენ უნდა დააკოპიროთ შემდეგი VBA კოდები "ThisOutlookSession" პროექტის ფანჯარაში.
Public WithEvents OlItems As Outlook.Items

Sub Application_Startup()
    Set OlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Sub OlItems_ItemChange(ByVal Item As Object)
    Dim obApp As Application
    Dim olTask As TaskItem

    If Item.Class = olMail And Item.Categories = "Task" Then
       Set obApp = Outlook.Application
       Set olTask = obApp.CreateItem(olTaskItem)
       With olTask
            .Subject = Item.Subject
            .Body = Item.Body
            .Attachments.Add Item
            .StartDate = Now
            .DueDate = Now + 3
            .Save
            .Display
       End With
    End If
 
    'To clear the category
    'If you want to keep the category, remove the following four lines
    With Item
         .Categories = ""
         .Save
    End With
 
    Set obApp = Nothing
    Set olTask = Nothing
End Sub

დააკოპირეთ და ჩასვით კოდები ThisOutlookSession-ში

  1. ამის შემდეგ, თქვენ მოგიწევთ ხელი მოაწეროთ ამ კოდს. ამის მისაღწევად შეგიძლიათ გამოიყენოთ Office ჩაშენებული პროგრამა – „ციფრული სერთიფიკატი VBA პროექტებისთვის“. უფრო დეტალური ნაბიჯებისთვის შეგიძლიათ იხილოთ ნაბიჯი 2 ამ სტატიაში "2 ნაბიჯი, რათა ავტომატურად მონიშნოთ არასასურველი ელფოსტა, როგორც წაკითხული Outlook-ში".ციფრული სერთიფიკატები VBA პროექტებისთვის
  2. მოგვიანებით, გარე მავნე მაკროების თავიდან ასაცილებლად, უნდა მიმართოთ „ნდობის ცენტრს“ და შეცვალოთ მაკრო პარამეტრები, რომ ჩართოთ მხოლოდ ციფრულად ხელმოწერილი მაკროები.შეცვალეთ მაკრო პარამეტრები
  3. საბოლოოდ შეგიძლიათ სცადოთ.
  • დააყენეთ ფოსტის ნივთი და მიაკუთვნეთ მას კონკრეტული კატეგორია, როგორიცაა შემდეგი ეკრანის სურათი:მიანიჭეთ კონკრეტული კატეგორია ელ.წერილს
  • ერთბაშად, ახალი დავალება შეიქმნება ავტომატურად და გამოჩნდება ახალ ამომხტარ ფანჯარაში.Ახალი დავალება

შეინახეთ ჩანართები მავნე მაკროებზე საეჭვო ელ.წერილებში

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

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

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

გააზიარე ახლა:

კომენტარები დახურულია.