Pääsisältö

Kuinka siirtää sähköpostiviesti määritettyyn kansioon lukemisen jälkeen Outlookissa?

Kirjailija: Siluvia Viimeksi muokattu: 2024-08-01

Sähköpostiviestin siirtäminen tiettyyn kansioon lukemisen jälkeen on paras tapa pitää Saapuneet-kansio puhtaana Outlookissa. Monilla Outlook-käyttäjillä on tapana luoda sääntö näiden luettujen sähköpostien siirtämiselle. Itse asiassa Outlook ei tue tätä ohjattua sääntötoimintoa. Tässä artikkelissa näytämme sinulle, kuinka voit siirtää sähköpostiviestit määritettyyn kansioon lukemisen jälkeen VBA-koodilla Outlookissa.

Siirrä sähköpostiviesti määritettyyn kansioon lukemisen jälkeen Outlookissa

Office-välilehti – Ota välilehtien muokkaus ja selaaminen käyttöön Microsoft Officessa, mikä tekee työstä helppoa
Avaa Kutools Outlookille ilmainen versio nyt ja nauti yli 70 ominaisuudesta rajoittamattomasti ikuisesti
Tehosta Outlook 2024 - 2010 tai Outlook 365:tä näillä lisäominaisuuksilla. Nauti yli 70 tehokkaasta ominaisuudesta ja paranna sähköpostikokemustasi!

Siirrä sähköpostiviesti määritettyyn kansioon lukemisen jälkeen Outlookissa

Voit siirtää sähköpostiviestit määritettyyn kansioon lukemisen jälkeen käyttämällä VBA-koodia Outlookissa.

1. Ensin sinun on luotava uusi kansion nimi "Arvostellut" Saapuneet-kansiossa.

uusi kansio

2. Avaa Saapuneet-kansio ja paina sitten -painiketta muut + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.

3. Laajenna kaksoisnapsauttamalla Project1 > Microsoft Outlook -objektit > ThisOutlookSession avaa VbaProject.OTM editori.

VbaProject.OTM-editori

4. Kopioi ja liitä sitten alla oleva VBA-koodi VbaProject.OTM-editoriin yllä olevan kuvakaappauksen mukaisesti.

VBA-koodi: siirrä viestit lukemisen jälkeen

Sub MoveInbox2Reviewed()
On Error Resume Next
Set oOutlook = CreateObject("Outlook.Application")
Set oNamespace = oOutlook.GetNamespace("MAPI")
Set oFolderSrc = oNamespace.GetDefaultFolder(olFolderInbox)
Set oFolderDst = oFolderSrc.Folders("Reviewed")
Set oFilteredItems = oFolderSrc.Items.Restrict("[UnRead] = False")
For Each oMessage In oFilteredItems
    oMessage.Move oFolderDst
Next
End Sub 

5. Napsauta sitten Säästä -painiketta tallentaaksesi VBA-koodin ja sulje sitten Microsoft Visual Basic for Applications ikkunassa.

6. Napsauta hiiren kakkospainikkeella Pikavalinta-työkalurivi, ja valitse Muokkaa pikakäyttötyökaluriviä hiiren kakkospainikkeella valikosta. Katso kuvakaappaus:

Mukauta pikatyökaluriviä -painiketta

7. Vuonna Outlook-asetukset valintaikkunassa, sinun tulee:

1). Valitse Makrot vuonna Valitse komennot pudotusvalikosta;

2). Valitse Projekti 1. ThisOutlookSession alla olevassa laatikossa Valitse komennot pudotusvalikosta;

3). Klikkaa Lisää painike;

4). Klikkaa OK painiketta.

Outlookin asetukset -valintaikkunassa

8. Sitten voit nähdä Makro -painike näkyy kohdassa Pikavalinta-työkalurivi. Varmista, että olet saapuneet-kansiossa, josta haluat siirtää kaikki luetut viestit, ja napsauta sitten Makro -painiketta suorittaaksesi VBA-koodin Saapuneet-kansiossa.

makro-painiketta

Huomautuksia:

1. Tätä VBA-koodia voidaan käyttää Outlook 2007:ssä, 2010:ssä ja 2013:ssa; Mutta Outlook 2007:ssä voit napsauttaa suoraan ajaa -painiketta suorittaaksesi koodin.

2. Jos Outlookissasi on useita sähköpostitilejä, VBA-koodia voidaan käyttää vain siinä tilissä, jonka datatiedosto on asetettu oletustiedostoksi. Voit tarkistaa oletustietotiedoston napsauttamalla filee > Tiedot > Tilin asetukset > Tilin asetukset avaa Tilin asetukset valintaikkuna. Siirry sitten kohtaan Tiedosto -välilehti, näet oletusdatatiedoston merkittynä valintamerkki Ennen.

Tilin asetukset -valintaikkunassa

3. Jos haluat vaihtaa oletustietotiedoston toiseen sähköpostitiliin, valitse ja korosta tili, jonka haluat asettaa oletukseksi, ja napsauta sitten Oletusasetuksena vuonna Tilin asetukset valintaikkuna.

4. Kun käytät VBA-koodia ensimmäistä kertaa ja huomaat, että luettuja viestejä ei ole siirretty kerralla, napsauta Makro-painiketta, kunnes kaikki Saapuneet-kansion luetut viestit on siirretty pois.


Parhaat toimiston tuottavuustyökalut

Breaking News: Kutools for Outlook julkaisee ilmaisen version!

Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!

🤖 Kutools AI : Käyttää edistynyttä tekoälytekniikkaa sähköpostien vaivattoman käsittelyyn, mukaan lukien sähköpostien vastaaminen, yhteenveto, optimointi, laajentaminen, kääntäminen ja kirjoittaminen.

📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle)  /  Ajoita sähköpostien lähettäminen  /  Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia  /  Automaattinen edelleenlähetys (lisäsäännöt)   /  Automaattinen tervehdys   /  Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...

📨 Sähköposti Management: Muista sähköpostit  /  Estä huijaussähköpostit aiheiden ja muiden taholta  /  Poista päällekkäiset sähköpostit  /  Tarkennettu Haku  /  Yhdistä kansiot ...

📁 Liitteet ProErätallennus  /  Erä Irrota  /  Eräpakkaus  /  Automaattinen tallennus   /  Automaattinen irrotus  /  Automaattinen pakkaus ...

🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia   /  Muistuttaa sinua tärkeistä sähköpostiviesteistä  /  Minimoi Outlook sulkemisen sijaan ...

???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä  /   Tietojenkalastelun vastaiset sähköpostit  /  🕘Näytä lähettäjän aikavyöhyke ...

👩🏼‍🤝‍👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä  /  Jaa yhteysryhmä yksittäisiin ryhmiin  /  Poista syntymäpäivämuistutukset ...

Avaa Kutools for Outlook välittömästi yhdellä napsautuksella. Älä odota, lataa nyt ja lisää tehokkuuttasi!

kutools Outlook-ominaisuuksille1 kutools Outlook-ominaisuuksille2