Slik lagrer du spesifikke sendte e-poster automatisk til en bestemt mappe med Outlook VBA

Som standard vil Outlook lagre de sendte e-postene i mappen "Sendte elementer". Hvis du ikke vil lagre de spesifikke sendte e-postene i standardmappen, kan du bruke metoden introdusert i denne artikkelen.

Noen brukere vil automatisk lagre noen sendte e-poster i den angitte mappen i stedet for å lagre dem i standardmappen "Sendte elementer". Derfor tyr mange til Outlook-regelen, som tilbyr en lignende handling - "flytt en kopi til den angitte mappen", vist som følgende skjermbilde. På denne måten er imidlertid den opprinnelige sendte e-posten fortsatt lagret i mappen "Sendte elementer". Bare en kopi av den sendte e-posten blir flyttet til den angitte mappen. Tilsynelatende kan ikke denne funksjonen oppfylle de reelle behovene.

Selvfølgelig kan brukere manuelt spesifisere en ikke-standard mappe for å lagre den sendte e-posten. Bare gå til "Alternativer"-fanen og klikk på "Lagre sendt element til"> "Annen mappe". Men denne tilnærmingen vil være plagsom siden brukere må spesifisere mappen manuelt hver gang.

Nå som begge virkemidlene nevnt ovenfor ikke er effektive, hvorfor ikke gå tilbake til Outlook VBA? Her er de konkrete kodene og trinnene for å automatisk lagre de spesifikke sendte e-postene til en bestemt mappe.

Lagre spesifikke sendte e-poster automatisk til en bestemt mappe

1. Til start med, start Outlook-applikasjonen.
2. Deretter bør du trykke på "Alt + F11"-tastene, som vil hjelpe deg med å få tilgang til VBA-redigeringsvinduet.
3. I popup-vinduet "Microsoft Visual Basic for Applications" kan du finne og dobbeltklikke på "ThisOutlookSession"-prosjektet på venstre side.
4. Neste i det åpne "ThisOutlookSession" prosjektvinduet, bør du kopiere følgende VBA-koder inn i det.

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 Deretter 'Spesifiser de sendte e-postene If InStr(Item.To, " shirley") > 0 Eller InStr(LCase(Item.Subject), "test") > 0 Deretter 'Spesifiser mappen for å lagre de sendte e-postene'. 'Du kan endre den etter behov. Sett SentFolder = Application.Session.GetDefaultFolder(olFolderSentMail ) Set desFolder = SentFolder.Folders("Test") Set Item.SaveSentMessageFolder = desFolder End If End If End Sub

5. Deretter bør du signere denne koden og justere Outlook-makronivået til lavt.
6. Til slutt kan du gå ut av det gjeldende vinduet. Fra nå av vil de spesifikke sendte e-postene automatisk lagres i den angitte e-postmappen.

Ekstra tips: Vis dialogboksen "Velg mappe" når du sender

Det er noen personer som ønsker å manuelt velge e-postmappen for å lagre de sendte e-postene. Men å alltid gå til "Alternativ"-fanen for å velge mappe vil være rotete. I dette tilfellet ønsker de at Outlook automatisk kan vise dialogboksen "Velg mappe" ved sending. Som svar på dette kravet, her er andre VBA-koder. Du kan kopiere den til "ThisOutlookSession" -prosjektet.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim desFolder As Folder If TypeName(Item) = "MailItem" And Item.DeleteAfterSubmit = False Deretter 'spesifiser e-posten If InStr(Item.To, "shirley") > 0 Eller InStr(LCase(Item.Subject), "test") > 0 Deretter 'Vis "Select Folder"-dialogboksen Set desFolder = Application.Session.PickFolder Set Item.SaveSentMessageFolder = desFolder End If End If End Sub

Fra nå av, hver gang du fullfører en e-post og klikker på "Sendt"-knappen, vil dialogboksen "Velg mappe" dukke opp automatisk, som bildet nedenfor. På det tidspunktet kan du spesifisere mappen for å lagre gjeldende sendte e-post.

Reparer Outlook

Outlook får mye honnør for sine mange funksjoner. Likevel er det på grunn av rikdommen i funksjoner at Outlook er ganske sårbart. Også ondsinnet e-post er en av de most potensielle trusler mot Outlook-data. Derfor, som vanlige Outlook-brukere, bør du heller få tak i en fremtredende Outlook PST e-postrettingsverktøy, Som DataNumen Outlook Repair. Dermed kan du raskt løse ulike Outlook-feil og holde Outlook-dataene dine godt beskyttet.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparasjon ødelagt SQL Server mdf og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med