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

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

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

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

1. როგორცtart, გაუშვით თქვენი Outlook პროგრამა ჩვეულებრივად.
2. შემდეგ დააჭირეთ "Alt + F11" ღილაკებს VBA რედაქტორზე წვდომისთვის.
3. მომდევნო "Microsoft Visual Basic აპლიკაციებისთვის" ფანჯარაში შეგიძლიათ იპოვოთ და ორჯერ დააწკაპუნოთ პროექტზე "ThisOutlookSession" მარცხენა მხარეს.
4. შემდეგ გახსნილ "ThisOutlookSession" პროექტის ფანჯარაში დააკოპირეთ და ჩასვით შემდეგი VBA კოდები.

Public WithEvents objMails As Outlook.Items

Private Sub Application_Startup()
 Set objMails = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objMails_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim strAttachmentName As String
    Dim objInboxFolder As Outlook.Folder
    Dim objTargetFolder As Outlook.Folder
 
    'Ensure the incoming item is an email
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objAttachments = objMail.attachments
 
       'Check if the incoming email contains one or more attachments
       If objAttachments.Count > 0 Then
          For Each objAttachment In objAttachments
              strAttachmentName = objAttachment.DisplayName
              Set objInboxFolder = Application.Session.GetDefaultFolder(olFolderInbox)
              'Check the names of all the attachments
              'Specify the target folders
              If InStr(LCase(strAttachmentName), "worklog") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("WorkLog")
              ElseIf InStr(LCase(strAttachmentName), "report") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("Report")
              ElseIf InStr(LCase(strAttachmentName), "statistics") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("Statistics")
              End If
         Next
         'Move the email to specific folder
          objMail.Move objTargetFolder
       End If
    End If
End Sub

5. შემდგომში, თქვენ უნდა ციფრულად მოაწეროთ ხელი ახალ VBA პროექტს.

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

6. ამის შემდეგ, შეგიძლიათ გახვიდეთ VBA რედაქტორიდან და შეცვალოთ Outlook მაკრო უსაფრთხოება დაბალზე.
7. მოგვიანებით თქვენ უნდა რესtart Outlook ახალი VBA პროექტის გასააქტიურებლად.
8. საბოლოო ჯამში, ამიერიდან, Outlook ავტომატურად შეამოწმებს ყველა შემომავალი ელფოსტის დანართების ფაილის სახელებს და გადაიტანს კონკრეტულს კონკრეტულ საქაღალდეებში.

დაიცავით თქვენი PST მონაცემები

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

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

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