Hvordan man automatisk gemmer specifikke sendte e-mails i en bestemt mappe med Outlook VBA

Outlook-løsninger September 29, 2025

Som standard gemmer Outlook de sendte e-mails i mappen "Sendte emner". Hvis du ikke vil gemme de specifikke sendte mails i standardmappen, kan du bruge metoden introduceret i denne artikel.

Nogle brugere vil automatisk gemme nogle sendte e-mails i den angivne mappe i stedet for at gemme dem i standardmappen "Sendte emner". Således griber mange sig til Outlook-reglen, som tilbyder en lignende handling - "flyt en kopi til den angivne mappe", vist som følgende skærmbillede. Men på denne måde gemmes den oprindeligt sendte e-mail stadig i mappen "Sendte poster". Kun en kopi af den sendte e-mail flyttes til den angivne mappe. Tilsyneladende kan denne funktion ikke opfylde de reelle behov.Opret en regel for automatisk at flytte en kopi til den angivne mappe

Selvfølgelig kan brugere manuelt angive en ikke-standardmappe for at gemme den sendte e-mail. Gå bare til fanen "Valgmuligheder" og klik på "Gem sendt element i"> "Anden mappe". Men denne tilgang vil være besværlig, da brugerne skal angive mappen manuelt hver gang.Gem afsendt emne manuelt i anden mappe

Nu hvor begge ovennævnte midler ikke er effektive, hvorfor ikke gentage sig Outlook VBA? Her er de konkrete koder og trin til automatisk at gemme de specifikke sendte e-mails i en bestemt mappe.

Gem automatisk specifikke sendte e-mails til en bestemt mappe

  1. Til start med, start Outlook-applikationen.
  2. Derefter skal du trykke på “Alt + F11” -tasteknapperne, som hjælper dig med at få adgang til VBA-editorvinduet.
  3. I popup-vinduet "Microsoft Visual Basic for Applications" kan du finde og dobbeltklikke på "ThisOutlookSession" -projektet i venstre side.
  4. Dernæst i det åbne projektvindue “ThisOutlookSession” skal du kopiere følgende VBA-koder til 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 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

VBA-koder - Gem automatisk specifikke sendte e-mails i en bestemt mappe

  1. Derefter skal du underskrive denne kode og justere dit Outlook-makroniveau til lavt.
  2. Endelig kan du lukke det aktuelle vindue. Fra nu af gemmes de specifikke sendte mails automatisk i den angivne mailmappe.

Ekstra tip: Vis dialogboksen "Vælg mappe" under afsendelse

Der er nogle mennesker, der gerne vil manuelt vælge mailmappen for at gemme de sendte e-mails. Men altid at gå til fanen "Option" for at vælge mappe vil være rodet. I dette tilfælde ønsker de, at Outlook automatisk kan vise dialogboksen "Vælg mappe", når den sendes. Som svar på dette krav er her en anden VBA-kode. Du kan kopiere det til “ThisOutlookSession” -projektet.

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

VBA-koder - Vis automatisk dialogboksen "Vælg mappe", når den sendes

Fra nu af, hver gang du afslutter en e-mail og klikker på "Sendt" -knappen, vises dialogboksen "Vælg mappe" automatisk, som billedet nedenfor. På det tidspunkt kan du specificere mappen for at gemme den aktuelle sendte e-mail.Vælg dialogboks Mappe

Reparer Outlook

Outlook tjener en masse kudos for sine mange funktioner. Ikke desto mindre skyldes det rigdom i funktion, at Outlook er ret sårbart. Også ondsindet e-mail er en af ​​most potentielle trusler mod Outlook-data. Derfor, som almindelige Outlook-brugere, skal du hellere få fat i en fremtrædende Outlook PST mail fix værktøjSom DataNumen Outlook Repair. Dermed kan du hurtigt løse forskellige Outlook-fejl og holde dine Outlook-data godt beskyttet.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder reparation beskadiget SQL Server MDF og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com

Kommentarer er lukket.