Si të zhvendosni automatikisht një email në një dosje specifike pasi ta përcillni atë në Outlook

Zgjidhjet e Outlook Shtator 29, 2025

Për të mbajtur në rregull kutinë tuaj postare, mund të mësoheni të ruani emailet specifike në dosjen specifike. Ky artikull do t'ju tregojë se si të përdorni Outlook VBA për të lëvizur automatikisht emailin pasi ta përcillni atë.

Ruajtja e emaileve të ngjashme në një dosje postare specifike është një këshillë e mirë për të menaxhuar një sasi të madhe emailesh. Është e sigurt që përdorues të ndryshëm duhet të kenë kriteret e tyre për klasifikimin dhe menaxhimin e postës. Për shembull, ju mund të preferoni t'i klasifikoni emailet tuaja sipas veprimeve tuaja pasuese mbi to, të tilla si përgjigjja, përcjellja ose të tjera. Nëse dëshironi ta zhvendosni automatikisht emailin në një dosje specifike, si "Përcillet", kur e përcillni, mund të aplikoni veprimet e mëposhtme dhe kodet VBA për ta marrë atë në kohë të shpejtë.Dosja e postës "Përcjellur".

Zhvendoseni automatikisht emailin në një dosje specifike pasi ta përcillni atë

  1. Në radhë të parë, hapni Outlook.
  2. Pastaj kaloni në skedën "Zhvilluesi".

Shënim: Nëse nuk mund ta gjeni këtë skedë, duhet të shkoni te "Skedari" > "Opsionet" > "Personalizoni shiritin" për ta aktivizuar fillimisht.

  1. Pasi kjo skedë të jetë e dukshme, mund të gjeni dhe klikoni butonin "Visual Basic" nën të.
  2. Më pas, do të shfaqet një dritare e re "Microsoft Visual Basic për aplikacione". Në të, duhet të klikoni dy herë projektin "ThisOutlookSession" në anën e majtë për ta hapur atë.
  3. Pas kësaj, mund të kopjoni dhe ngjisni kodet e mëposhtme VBA në të.
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

Kodet VBA - Zhvendosni automatikisht një email në një dosje specifike pasi ta përcillni

  1. Më vonë do t'ju kërkohet të nënshkruani projektin e ri VBA.
  • Së pari, përdorni mjetin e integruar "Certifikatat Dixhitale për Projektet VBA" për të krijuar një certifikatë dixhitale.
  • Më pas caktojeni certifikatën në këtë makro, si pamja e mëposhtme e ekranit:Nënshkruani në mënyrë dixhitale Projektin e Ri VBA
  1. Më vonë mund të ndryshoni cilësimet tuaja të makrove për të lejuar makro të nënshkruara dixhitale.
  2. Më në fund restart Outlook për të aktivizuar makro të re. Tani e tutje, kur zgjidhni një email dhe klikoni butonin "Përpara", emaili do të zhvendoset menjëherë në dosjen "Përcillet".

Shmangni korrupsionin e padëshiruar të të dhënave PST të Outlook

Një prej tyreost problemet që kanë pllakosur përdoruesit e Outlook për një kohë të gjatë është se Outlook është i prirur ndaj korrupsionit. Kjo do të thotë vuajtje Dëmtimi i PST është një çështje e zakonshme. Prandaj, për të parandaluar humbjen e të dhënave të Outlook, është më mirë të bëni një kopje rezervë të qëndrueshme dhe të përditësuar për të dhënat tuaja PST.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë i korruptuar SQL Server dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com

Komentet janë të mbyllura.