Kako samodejno premakniti e-pošto v določeno mapo, potem ko jo posredujete v Outlooku

Da bo vaš nabiralnik v redu, se lahko navadite shranjevati določena e-poštna sporočila v določeno mapo. Ta članek vam bo povedal, kako uporabiti Outlook VBA za samodejno premikanje e-pošte, potem ko jo posredujete.

Shranjevanje podobnih e-poštnih sporočil v določeno poštno mapo je dober nasvet za upravljanje velike količine e-poštnih sporočil. Zagotovo morajo imeti različni uporabniki svoje kriterije za razvrščanje in upravljanje pošte. Na primer, morda raje razvrstite svoja e-poštna sporočila glede na vaša nadaljnja dejanja, kot so odgovor, posredovanje ali druga. Če želite e-pošto samodejno premakniti v določeno mapo, na primer »Posredovano«, ko jo posredujete, lahko uporabite naslednje operacije in kode VBA, da jo dobite v kratkem času.

Ko ga posredujete, samodejno premaknite e-pošto v določeno mapo

1. Najprej zaženite Outlook.
2. Nato preklopite na zavihek »Razvijalec«.

Opomba: Če tega zavihka ne najdete, pojdite na »Datoteka« > »Možnosti« > »Prilagodi trak«, da ga najprej omogočite.

3. Ko je ta zavihek viden, lahko pod njim poiščete in kliknete gumb »Visual Basic«.
4. Nato se bo pojavilo novo okno »Microsoft Visual Basic for Applications«. V njem bi morali dvakrat klikniti projekt »ThisOutlookSession« na levi strani, da ga odprete.
5. Po tem lahko vanj kopirate in prilepite naslednje kode 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

6. Kasneje boste morali podpisati nov projekt VBA.

• Najprej uporabite vgrajeno orodje »Digitalna potrdila za projekte VBA«, da ustvarite digitalno potrdilo.
• Nato dodelite potrdilo temu makru, kot je ta posnetek zaslona:

7. Pozneje lahko spremenite nastavitve makrov, da dovolite digitalno podpisane makre.
8. Končno restart Outlook za aktiviranje novega makra. Ko od zdaj naprej izberete e-pošto in kliknete gumb »Posreduj«, bo e-pošta takoj premaknjena v mapo »Posredovano«.

Izogibajte se neželenim poškodbam podatkov Outlook PST

En od njihost Težava, ki že dolgo pesti uporabnike Outlooka, je, da je Outlook nagnjen h korupciji. Se pravi trpljenje PST škoda je običajna zadeva. Zato je bolje, da naredite dosledno in posodobljeno varnostno kopijo svojih podatkov PST, da preprečite izgubo podatkov Outlook.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z pokvarjena SQL Server in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com