Kuinka siirtää sähköpostit määritettyyn kansioon tietyn luokan määrittämisen jälkeen Outlookissa?

Oletetaan, että olet määrittänyt luokan vastaanotetulle sähköpostille Outlookissasi, luokan määrittämisen jälkeen haluat tämän sähköpostin siirtyvän automaattisesti tiettyyn sähköpostikansioon, joka on nimetty luokan nimellä. Esimerkiksi sähköposti, jonka luokka on "Yksityinen", siirretään Outlookissasi kansioon "Private". Miten se saavutetaan? Tämän artikkelin menetelmä voi auttaa sinua ratkaisemaan ongelman helposti.

Siirrä sähköpostit määritettyyn kansioon, kun olet määrittänyt tietyn luokan VBA:lla

Siirrä sähköpostit määritettyyn kansioon, kun olet määrittänyt tietyn luokan VBA:lla

Alla oleva VBA-koodi voi auttaa siirtämään sähköpostit automaattisesti määritettyyn kansioon tietyn luokan määrittämisen jälkeen Outlookissa. Toimi seuraavasti.

1. paina muut + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.

2. Vuonna Microsoft Visual Basic for Applications ikkuna, avaa se kaksoisnapsauttamalla ThisOutlookSession (koodi) ikkuna. Kopioi sitten alla oleva VBA-koodi ikkunaan. Katso kuvakaappaus:

VBA-koodi: Siirrä sähköpostit määritettyyn kansioon tietyn luokan määrittämisen jälkeen

Private WithEvents xInboxFld As Outlook.Folder
Private WithEvents xInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set xInboxFld = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set xInboxItems = xInboxFld.Items
End Sub

Private Sub xInboxItems_ItemChange(ByVal Item As Object)
Dim xMailItem As Outlook.MailItem
Dim xFlds As Outlook.Folders
Dim xFld As Outlook.Folder
Dim xTargetFld As Outlook.Folder
Dim xFlag As Boolean
On Error Resume Next
If Item.Class = olMail Then
    Set xMailItem = Item
    xFlag = False
    If xMailItem.Categories <> "" Then
        Set xFlds = Application.Session.GetDefaultFolder(olFolderInbox).Folders
        If xFlds.Count <> 0 Then
            For Each xFld In xFlds
                If xFld.Name = xMailItem.Categories Then
                    xFlag = True
                End If
            Next
        End If
        If xFlag = False Then
            Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add xMailItem.Categories, olFolderInbox
        End If
        Set xTargetFld = Application.Session.GetDefaultFolder(olFolderInbox).Folders(xMailItem.Categories)
        xMailItem.Move xTargetFld
    End If
End If
End Sub

3. Tallenna koodi ja käynnistä Outlook uudelleen.

4. Tästä lähtien, kun määrität luokkaa vastaanottavalle sähköpostille, kansio luokan nimellä luodaan automaattisesti Saapuneet-kansioon, johon sähköposti on siirretty. Katso kuvakaappaus:

Huomautuksia: Kaikki samaan luokkaan määritetyt sähköpostit siirretään automaattisesti samaan kansioon. Mutta jos sähköpostille on määritetty uusi luokka, uusi kansio luodaan automaattisesti.

AI Mail Assistant Outlookissa: älykkäämpiä vastauksia, selkeämpi viestintä (yhden napsautuksen taikuutta!) VAPAA

Virtaviivaista päivittäisiä Outlook-tehtäviäsi Kutools for Outlookin AI Mail Assistantin avulla. Tämä tehokas työkalu oppii aiemmista sähköpostiviesteistäsi ja tarjoaa älykkäitä ja tarkkoja vastauksia, optimoi sähköpostisi sisällön ja auttaa sinua luomaan ja tarkentamaan viestejä vaivattomasti.

Tämä ominaisuus tukee:

• Älykkäät vastaukset: saat aiemmista keskusteluistasi luotuja vastauksia – räätälöityjä, tarkkoja ja valmiita käyttöön.
• Parannettu sisältö: tarkenna sähköpostisi tekstiä automaattisesti selkeyden ja vaikutuksen saamiseksi.
• Vaivaton kokoonpano: Anna vain avainsanoja ja anna tekoäly hoitaa loput useilla kirjoitustyyleillä.
• Älykkäät laajennukset: Laajenna ajatuksiasi kontekstitietoisilla ehdotuksilla.
• Yhteenveto: Saat lyhyet yleiskatsaukset pitkistä sähköposteista välittömästi.
• Globaali kattavuus: Käännä sähköpostisi helposti mille tahansa kielelle.

Tämä ominaisuus tukee:

• Älykkäät sähköpostivastaukset
• Optimoitu sisältö
• Avainsanoihin perustuvat luonnokset
• Älykäs sisältölaajennus
• Yhteenveto sähköpostitse
• Monikielinen käännös

Mikä parasta, tämä ominaisuus on täysin Ilmainen ikuisesti! Älä odota -lataa AI Mail Assistant nyt ja nauti!

Aiheeseen liittyviä artikkeleita:

• Kuinka määrittää luokka lähtevälle sähköpostille Outlookissa?
• Kuinka säilyttää alkuperäiset luokat, kun vastaat tai lähetät sähköpostia Outlookissa?