Sähköpostin automaattinen siirtäminen tiettyyn kansioon sen jälkeen, kun olet edelleen välittänyt sen Outlookissa

Jos haluat pitää postilaatikkosi järjestyksessä, voit tottua tallentamaan tietyt sähköpostit tiettyyn kansioon. Tässä artikkelissa kerrotaan, kuinka Outlook VBA: ta käytetään sähköpostin automaattiseen siirtämiseen sen jälkeen, kun se on edelleen lähetetty.

Samanlaisten sähköpostien tallentaminen tiettyyn postikansioon on hyvä vinkki suuren määrän sähköpostien hallintaan. On varmaa, että eri käyttäjillä on oltava omat kriteerit postin luokittelulle ja hallinnalle. Voit esimerkiksi luokitella sähköpostisi niiden jatkotoimien mukaan, kuten vastaus, edelleenlähetys tai muut. Jos haluat siirtää sähköpostin automaattisesti tiettyyn kansioon, kuten "edelleenlähetetty", kun lähetät sen edelleen, voit käyttää seuraavia toimintoja ja VBA-koodeja saadaksesi sen nopeasti.

Siirrä sähköposti automaattisesti tiettyyn kansioon sen jälkeen, kun olet edelleen välittänyt sen

1. Käynnistä ensin Outlook.
2. Siirry sitten Kehittäjä-välilehdelle.

Huomautus: Jos et löydä tätä välilehteä, sinun on ensin siirryttävä kohtaan Tiedosto> Asetukset> Mukauta nauha.

3. Kun tämä välilehti on näkyvissä, löydät sen alapuolelta Visual Basic -painikkeen ja napsautat sitä.
4. Myöhemmin uusi "Microsoft Visual Basic for Applications" -ikkuna avautuu. Siinä sinun pitäisi kaksoisnapsauttaa "ThisOutlookSession" -projektia vasemmalla puolella avataksesi sen.
5. Tämän jälkeen voit kopioida ja liittää seuraavat VBA-koodit siihen.

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. Myöhemmin sinun on allekirjoitettava uusi VBA-projekti.

• Ensinnäkin, luo digitaalinen varmenne sisäänrakennetulla ”Digitaaliset varmenteet VBA-projekteille” -työkalulla.
• Määritä sitten varmenne tälle makrolle, kuten seuraava kuvakaappaus:

7. Myöhemmin voit muuttaa makroasetuksia salliaksesi digitaalisesti allekirjoitetut makrot.
8. Lopuksi restart Outlook aktivoi uuden makron. Tästä eteenpäin, kun valitset sähköpostin ja napsautat edelleenlähetyspainiketta, sähköposti siirretään edelleenlähetettyyn kansioon kerralla.

Vältä ei-toivottua Outlook PST -tietojen vioittumista

Yksi heistäost Outlook-käyttäjiä pitkään vaivanneet ongelmat ovat se, että Outlook on altis korruptiolle. Toisin sanoen kärsimystä PST-vauriot on yleinen asia. Siksi, jotta vältät näkymätietojen menettämisen, sinun on parempi tehdä johdonmukainen ja ajan tasalla oleva varmuuskopio PST-tiedoistasi.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien lahjoa SQL Server ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com