Ինչպե՞ս ավտոմատ կերպով էլեկտրոնային նամակ տեղափոխել որոշակի պանակ ՝ այն Outlook- ում փոխանցելուց հետո

Outlook լուծումներ Սեպտեմբեր 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. Վերջապես restart Outlook ՝ նոր մակրոը ակտիվացնելու համար: Այսուհետ, երբ ընտրեք էլ.փոստ և սեղմեք «Փոխանցել» կոճակը, էլ.փոստը միանգամից կտեղափոխվի «Փոխանցված» պանակ:

Խուսափեք անցանկալի Outlook PST- ի տվյալների փչացումից

Նրանցից մեկըost Outlook- ի օգտվողներին երկար ժամանակ տառապող խնդիրներն այն են, որ Outlook- ը հակված է կոռուպցիայի: Ասել է թե ՝ տառապանք PST- ի վնաս ընդհանուր խնդիր է: Հետևաբար, կանխատեսման տվյալների կորուստը կանխելու համար, ձեր PST տվյալների համար ավելի լավ է կատարել հետեւողական և արդի պահուստային տարբերակ:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում կոռումպացված SQL Server և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com

Կիսվել հիմա ՝

Comments փակվում են: