Kuinka tallentaa tietyt lähetetyt sähköpostit automaattisesti tiettyyn kansioon Outlook VBA: lla

Oletuksena Outlook tallentaa lähetetyt sähköpostit Lähetetyt-kansioon. Jos et halua tallentaa tiettyjä lähetettyjä viestejä oletuskansioon, voit käyttää tässä artikkelissa esitettyä menetelmää.

Jotkut käyttäjät haluavat tallentaa jotkut lähetetyt sähköpostit automaattisesti määritettyyn kansioon sen sijaan, että tallentaisivat ne oletuskansioon Lähetetyt. Niinpä monet turvautuvat Outlook-sääntöön, joka tarjoaa samanlaisen toiminnan - "siirrä kopio määritettyyn kansioon", joka näkyy seuraavana kuvakaappauksena. Tällä tavoin alkuperäinen lähetetty sähköposti tallennetaan kuitenkin edelleen Lähetetyt-kansioon. Vain kopio lähetetystä sähköpostista siirretään määritettyyn kansioon. Ilmeisesti tämä ominaisuus ei voi täyttää todellisia tarpeita.

Tietysti käyttäjät voivat määrittää manuaalisesti muun kuin oletuskansio lähetetyn sähköpostin tallentamiseksi. Siirry vain "Asetukset" -välilehdelle ja napsauta "Tallenna lähetetty kohde"> "Muu kansio". Mutta tämä lähestymistapa on hankala, koska käyttäjien on määritettävä kansio manuaalisesti joka kerta.

Nyt kun molemmat yllä mainitut keinot eivät ole tehokkaita, miksi et palaisi Outlook VBA: han? Tässä ovat konkreettiset koodit ja vaiheet tiettyjen lähetettyjen sähköpostien automaattiseen tallentamiseen tiettyyn kansioon.

Tallenna tietyt lähetetyt sähköpostit automaattisesti tiettyyn kansioon

1. Kohteeseen starKäynnistä Outlook-sovellus.
2. Sitten sinun on painettava "Alt + F11" -näppäimiä, mikä auttaa sinua pääsemään VBA-editorin ikkunaan.
3. "Visual Basic for Applications" -ikkunasta löydät vasemman reunan "ThisOutlookSession" -projektin ja kaksoisnapsauta sitä.
4. Seuraavaksi sinun pitäisi kopioida seuraavat VBA-koodit avoimessa ”ThisOutlookSession” -ikkunaikkunassa.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim SentFolder As Folder
    Dim desFolder As Folder
 
    If TypeName(Item) = "MailItem" And Item.DeleteAfterSubmit = False Then
       'Specify the sent emails
       If InStr(Item.To, "shirley") > 0 Or InStr(LCase(Item.Subject), "test") > 0 Then
          'Specify the folder for saving the sent emails
          'You can change it as per your needs
          Set SentFolder = Application.Session.GetDefaultFolder(olFolderSentMail)
          Set desFolder = SentFolder.Folders("Test")
          Set Item.SaveSentMessageFolder = desFolder
       End If
    End If
End Sub

5. Tämän jälkeen sinun tulee allekirjoittaa tämä koodi ja säätää Outlook-makrotasosi matalaksi.
6. Lopuksi voit poistua nykyisestä ikkunasta. Tästä eteenpäin tietyt lähetetyt sähköpostit tallennetaan automaattisesti määritettyyn postikansioon.

Lisävinkki: Näytä "Valitse kansio" -valintaikkuna lähetettäessä

On joitain ihmisiä, jotka haluavat valita postikansion manuaalisesti lähetettyjen sähköpostien tallentamiseksi. Mutta aina siirtyminen “Optio” -välilehdelle kansion valitsemiseksi on sotkuista. Tällöin he haluavat, että Outlook voi automaattisesti näyttää "Valitse kansio" -valintaikkunan lähetettäessä. Vastauksena tähän vaatimukseen tässä on toinen VBA-koodi. Voit kopioida sen “ThisOutlookSession” -projektiin.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim desFolder As Folder
 
    If TypeName(Item) = "MailItem" And Item.DeleteAfterSubmit = False Then
       'specify the email
       If InStr(Item.To, "shirley") > 0 Or InStr(LCase(Item.Subject), "test") > 0 Then
          'Display the “Select Folder” dialog box
          Set desFolder = Application.Session.PickFolder
          Set Item.SaveSentMessageFolder = desFolder
       End If
    End If
End Sub

Tästä eteenpäin joka kerta, kun olet valmis ja napsautat Lähetetyt-painiketta, Valitse kansio -valintaikkuna tulee esiin automaattisesti, kuten alla oleva kuva. Siinä vaiheessa voit määrittää kansion, johon nykyinen lähetetty sähköposti tallennetaan.

Korjaa Outlook

Outlook ansaitsee paljon tunnustusta useista toiminnoistaan. Siitä huolimatta ominaisuuksien rikkaudesta Outlook on melko haavoittuva. Myös haitallinen sähköposti on yksi most mahdolliset uhkat Outlook-tiedoille. Siksi, tavallisten Outlook-käyttäjien, sinun on parempi saada käsiinsä preeminent Outlook PST -postikorjaustyökalu, Kuten DataNumen Outlook Repair. Näin voit nopeasti ratkaista erilaiset Outlook-virheet ja pitää Outlook-tietosi hyvin suojattuina.

Tekijän esittely:

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