როგორ ავტომატურად გადაიტანოთ ელფოსტა კონკრეტულ საქაღალდეში, მას შემდეგ რაც გადაგზავნათ Outlook-ში

Outlook Solutions სექტემბერი 29, 2025
გააზიარე ახლა:

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

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

ავტომატური გადატანა ელ.წერილი კონკრეტულ საქაღალდეში გადაგზავნის შემდეგ

  1. პირველ რიგში, გაუშვით Outlook.
  2. შემდეგ გადადით "დეველოპერი" ჩანართზე.

შენიშვნა: თუ თქვენ ვერ პოულობთ ამ ჩანართს, უნდა გადახვიდეთ "ფაილი" > "ოფციები" > "ლენტის მორგება", რომ ჯერ ჩართოთ.

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

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objMail_Forward(ByVal Response As Object, Cancel As Boolean)
    Dim objInboxFolder As Folder
    Dim objTargetFolder As Folder
 
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
 
    On Error Resume Next
    Set objTargetFolder = objInboxFolder.parent.Folders("Forwarded")
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = objInboxFolder.parent.Folders.Add("Forwarded")
    End If
    objMail.Categories = "Forwarded"
    objMail.Move objTargetFolder
End Sub

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

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

მოერიდეთ Outlook PST მონაცემთა არასასურველ კორუფციას

Ერთ - ერთი მათგანიost პრობლემები, რომლებიც დიდი ხანია აწუხებს Outlook-ის მომხმარებლებს, არის ის, რომ Outlook მიდრეკილია კორუფციისკენ. ანუ ტანჯვა PST დაზიანება საერთო საქმეა. ამიტომ, იმისათვის, რომ თავიდან აიცილოთ პერსპექტიული მონაცემების დაკარგვა, სჯობს გააკეთოთ თქვენი PST მონაცემების თანმიმდევრული და განახლებული სარეზერვო ასლი.

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

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

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

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