Kako automatski sačuvati određene poslate e-poruke u određenu fasciklu sa Outlook VBA

Outlook će prema zadanim postavkama sačuvati poslane e-poruke u folderu „Poslane stavke“. Ako ne želite da sačuvate određene poslane poruke u podrazumevanoj fascikli, možete koristiti metodu predstavljenu u ovom članku.

Neki korisnici žele automatski sačuvati neke poslane e-poruke u navedenu mapu umjesto da ih spremaju u zadanu mapu „Poslane stavke“. Stoga mnogi pribjegavaju pravilu Outlooka, koje nudi sličnu akciju – „premjesti kopiju u navedenu mapu“, prikazanu na sljedećem snimku ekrana. Međutim, na ovaj način, zapravo, originalna poslana e-pošta je i dalje sačuvana u folderu „Poslane stavke“. Samo kopija poslane e-pošte se premješta u navedeni folder. Očigledno, ova karakteristika ne može zadovoljiti stvarne potrebe.

Naravno, korisnici mogu ručno odrediti fasciklu koja nije zadana za spremanje poslane e-pošte. Samo idite na karticu "Opcije" i kliknite na "Sačuvaj poslanu stavku u" > "Drugi folder". Ali ovaj pristup će biti problematičan jer korisnici moraju svaki put ručno odrediti folder.

Sada kada oba gore pomenuta sredstva nisu efikasna, zašto se ne biste vratili na Outlook VBA? Evo konkretnih kodova i koraka za automatsko spremanje određenih poslanih e-poruka u određenu mapu.

Automatsko spremanje određenih poslanih e-poruka u određenu mapu

1. Za početak, pokrenite Outlook aplikaciju.
2. Zatim biste trebali pritisnuti tipke “Alt + F11” koje će vam pomoći da pristupite prozoru VBA editora.
3. U iskačućem prozoru „Microsoft Visual Basic za aplikacije“ možete pronaći i dvaput kliknuti na projekat „ThisOutlookSession“ na lijevoj strani.
4. Zatim u otvorenom prozoru projekta “ThisOutlookSession” trebate kopirati sljedeće VBA kodove u njega.

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. Nakon toga, trebalo bi da potpišete ovaj kod i podesite svoj Outlook makro nivo na niski.
6. Konačno, možete izaći iz trenutnog prozora. Od sada će se određene poslane poruke automatski pohranjivati ​​u navedeni folder pošte.

Dodatni savjet: Prikažite dijaloški okvir “Odaberi mapu” prilikom slanja

Postoje neki ljudi koji bi željeli ručno odabrati mapu e-pošte za spremanje poslanih e-poruka. Ali uvijek će odlazak na karticu “Opcije” za odabir foldera biti neuredan. U ovom slučaju žele da Outlook može automatski prikazati dijaloški okvir “Odaberi mapu” prilikom slanja. Kao odgovor na ovaj zahtjev, evo još jednog VBA koda. Možete ga kopirati u projekat “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 sada, svaki put kada završite slanje e-pošte i kliknete na dugme „Poslano“, dijaloški okvir „Odaberi fasciklu“ će se automatski pojaviti, kao na slici ispod. U tom trenutku možete odrediti folder za spremanje trenutno poslane e-pošte.

Popravi Outlook

Outlook zaslužuje mnogo pohvala za svoje brojne funkcije. Ipak, upravo zbog bogatstva funkcija Outlook je prilično ranjiv. Također, zlonamjerna e-pošta jedna je od najvećih potencijalnih prijetnji Outlook podacima. Stoga, kao redovni korisnici Outlooka, bolje je da nabavite vrhunski... Outlook PST alat za popravku pošte, kao DataNumen Outlook Repair. Na taj način možete brzo riješiti razne Outlook greške i održavati svoje Outlook podatke dobro zaštićenim.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravka oštećena SQL Server mdf i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com