Kako samodejno shraniti določena poslana e-poštna sporočila v določeno mapo z Outlookom VBA

Outlook bo privzeto shranil poslana e-poštna sporočila v mapo »Poslani predmeti«. Če ne želite shraniti določene poslane pošte v privzeto mapo, lahko uporabite metodo, predstavljeno v tem članku.

Nekateri uporabniki želijo samodejno shraniti nekatera poslana e-poštna sporočila v določeno mapo, namesto da bi jih shranili v privzeto mapo »Poslani predmeti«. Tako se mnogi zatečejo k Outlookovemu pravilu, ki ponuja podobno dejanje – »premakni kopijo v določeno mapo«, prikazano kot naslednji posnetek zaslona. Vendar je na ta način izvirno poslano e-poštno sporočilo še vedno shranjeno v mapi »Poslani predmeti«. Samo kopija poslanega e-poštnega sporočila se premakne v navedeno mapo. Očitno ta funkcija ne more izpolniti dejanskih potreb.

Seveda lahko uporabniki ročno določijo mapo, ki ni privzeta, da shranijo poslano e-pošto. Pojdite na zavihek »Možnosti« in kliknite »Shrani poslani predmet v« > »Druga mapa«. Toda ta pristop bo težaven, saj morajo uporabniki vsakič ročno določiti mapo.

Zdaj, ko obe zgoraj omenjeni sredstvi nista učinkoviti, zakaj ne bi znova uporabili Outlook VBA? Tukaj so konkretne kode in koraki za samodejno shranjevanje določenih poslanih e-poštnih sporočil v določeno mapo.

Samodejno shranjevanje določenih poslanih e-poštnih sporočil v določeno mapo

1. Za začetek zaženite aplikacijo Outlook.
2. Nato morate pritisniti tipke "Alt + F11", ki vam bodo pomagale dostopati do okna urejevalnika VBA.
3. V pojavnem oknu »Microsoft Visual Basic for Applications« lahko najdete in dvokliknete projekt »ThisOutlookSession« na levi strani.
4. Nato morate v odprtem oknu projekta »ThisOutlookSession« vanj kopirati naslednje kode VBA.

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. Nato morate podpisati to kodo in prilagoditi raven makra Outlook na nizko.
6. Končno lahko zapustite trenutno okno. Od zdaj naprej bodo določena poslana sporočila samodejno shranjena v določeno poštno mapo.

Dodaten nasvet: pri pošiljanju prikažite pogovorno okno »Izberi mapo«.

Nekateri ljudje bi želeli ročno izbrati poštno mapo za shranjevanje poslanih e-poštnih sporočil. Toda vedno odpiranje zavihka »Možnost« za izbiro mape bo neurejeno. V tem primeru želijo, da lahko Outlook ob pošiljanju samodejno prikaže pogovorno okno »Izberi mapo«. Kot odgovor na to zahtevo so tu še druge kode VBA. Lahko ga kopirate v projekt »ThisOutlookSession«.

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

Od zdaj naprej se vsakič, ko dokončate e-pošto in kliknete gumb »Poslano«, samodejno pojavi pogovorno okno »Izberi mapo«, kot je spodnja slika. Takrat lahko določite mapo za shranjevanje trenutno poslanega e-poštnega sporočila.

Popravi Outlook

Outlook si zasluži veliko pohval zaradi svojih številnih funkcij. Kljub temu je Outlook zaradi bogatega nabora funkcij precej ranljiv. Zlonamerna e-pošta je tudi ena največjih potencialnih groženj za Outlookove podatke. Zato si kot redni uporabniki Outlooka raje priskrbite vrhunskega. Orodje za popravilo pošte Outlook PSTkot DataNumen Outlook Repair. Tako lahko hitro odpravite različne Outlookove napake in ohranite svoje Outlookove podatke dobro zaščitene.

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 popravilo poškodovano SQL Server MDF in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com