Kaip automatiškai perkelti el. laišką į konkretų aplanką, kai jį persiunčiate programoje „Outlook“.

Norėdami, kad jūsų pašto dėžutė būtų tvarkinga, galite priprasti prie konkrečių el. laiškų saugojimo konkrečiame aplanke. Šiame straipsnyje bus pasakyta, kaip naudoti „Outlook VBA“, kad automatiškai perkeltumėte el. laišką, kai jį persiųsite.

Panašių el. laiškų saugojimas tam tikrame pašto aplanke yra geras patarimas norint tvarkyti daug el. laiškų. Neabejotina, kad skirtingi vartotojai turi turėti savo pašto klasifikavimo ir valdymo kriterijus. Pavyzdžiui, galbūt norėsite klasifikuoti savo el. laiškus pagal su jais susijusius tolesnius veiksmus, pvz., atsakymą, persiuntimą ar kitus. Jei norite automatiškai perkelti el. laišką į konkretų aplanką, pvz., „Persiųsta“, kai jį persiunčiate, galite taikyti šias operacijas ir VBA kodus, kad jį gautumėte greitai.

Automatiškai perkelkite el. laišką į konkretų aplanką, kai jį persiųsite

1. Pirmiausia paleiskite „Outlook“.
2. Tada pereikite į skirtuką „Kūrėjas“.

Pastaba: Jei nerandate šio skirtuko, pirmiausia turėtumėte eiti į „Failas“ > „Parinktys“ > „Tinkinti juostelę“, kad pirmiausia jį įjungtumėte.

3. Pamatę šį skirtuką, po juo galite rasti ir spustelėti mygtuką „Visual Basic“.
4. Vėliau pasirodys naujas „Microsoft Visual Basic for Applications“ langas. Jame turėtumėte du kartus spustelėti "ThisOutlookSession" projektą kairėje pusėje, kad jį atidarytumėte.
5. Po to galite nukopijuoti ir įklijuoti šiuos VBA kodus.

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

6. Vėliau turėsite pasirašyti naują VBA projektą.

• Pirma, norėdami sukurti skaitmeninį sertifikatą, naudokite integruotą įrankį „Skaitmeniniai sertifikatai VBA projektams“.
• Tada priskirkite sertifikatą šiai makrokomandai, kaip parodyta šioje ekrano kopijoje:

7. Vėliau galėsite pakeisti makrokomandos nustatymus, kad būtų galima naudoti skaitmeniniu būdu pasirašytas makrokomandas.
8. Pagaliau restart Outlook, kad suaktyvintumėte naują makrokomandą. Nuo šiol pasirinkus el. laišką ir spustelėjus mygtuką „Persiųsti“, el. laiškas iš karto bus perkeltas į aplanką „Persiųsti“.

Venkite nepageidaujamos Outlook PST duomenų sugadinimo

Vienas iš jųost „Outlook“ naudotojus ilgą laiką kamavusi problema yra ta, kad „Outlook“ yra linkusi į korupciją. Tai reiškia, kančia PST žala yra bendras reikalas. Todėl, kad neprarastumėte perspektyvos duomenų, geriau pasidarykite nuoseklią ir naujausią PST duomenų atsarginę kopiją.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas SQL Server ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com