Hvordan arkiveres uden vedhæftede filer i Outlook?
Generelt vil Outlooks arkivfunktion gemme alle e-mail-elementer, herunder e-mail-indhold, e-mail-header, vedhæftede filer osv. Vedhæftede filer kan dog muligvis gøre den arkiverede PST-fil voluminøs. Her vil jeg introducere to løsninger til arkivering uden vedhæftede filer i Outlook.
- Automatiser e-mail med Auto CC / BCC, Automatisk videresendelse ved regler; sende Auto svar (Ikke til stede) uden at kræve en udvekslingsserver...
- Få påmindelser som BCC Advarsel når du svarer til alle, mens du er på BCC-listen, og Påmind, når du mangler vedhæftede filer for glemte vedhæftede filer...
- Forbedre e-mail-effektiviteten med Svar (alle) med vedhæftede filer, Tilføj automatisk hilsen eller dato og tid til signatur eller emne, Besvar flere e-mails...
- Strømline e-mail med Genkald e-mails, Vedhæftningsværktøjer (Komprimer alle, Gem alt automatisk...), Fjern duplikaterog Hurtig rapport...
Arkiver uden vedhæftede filer af VBA
Denne metode introducerer en VBA for at slette alle vedhæftede filer fra den angivne mappe, du arkiverer, og derefter kan du arkivere uden vedhæftede filer. Gør følgende:
1. I Post visning, vælg den mappe, du vil arkivere, og tryk på andre + F11 taster for at åbne vinduet Microsoft Visual Basic for Applications.
2. Klik indsatte > Moduler, og indsæt derefter under VBA i det nye modulvindue.
VBA: Fjern alle vedhæftede filer fra den valgte mailmappe i Outlook
Public Sub SaveDeleteAttachments()
Dim xMailItem As Outlook.MailItem 'Object
Dim xAttachments As Outlook.Attachments
Dim i As Long
Dim xFolder As Folder
Dim xFilePath As String
Dim xFldPath As String
Dim xDeletedFilePath As String
On Error Resume Next
xFldPath = CreateObject("WScript.Shell").SpecialFolders(16)
xFldPath = xFldPath & "\MyAttachments"
If Dir(xFldPath, vbDirectory) = "" Then
MkDir xFldPath
End If
Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
For Each xMailItem In xFolder.Items
If xMailItem.Class = olMail Then
Set xAttachments = xMailItem.Attachments
While xAttachments.Count > 0
xFilePath = xAttachments.Item(1).FileName
xFilePath = xFldPath & "\" & xFilePath
xAttachments.Item(1).SaveAsFile xFilePath
xAttachments.Item(1).Delete
If xMailItem.BodyFormat <> olFormatHTML Then
xDeletedFilePath = xDeletedFilePath & vbCrLf & "<file://" & xFilePath & ">"
Else
xDeletedFilePath = xDeletedFilePath & "
" & "" & xFilePath & ""
End If
Wend
If xDeletedFilePath <> "" Then
If xMailItem.BodyFormat <> olFormatHTML Then
xMailItem.Body = "The file(s) were saved to: " & xDeletedFilePath & vbCrLf & xMailItem.Body
Else
xMailItem.HTMLBody = "
" & _
"The file(s) were saved to: " & xDeletedFilePath & "
" & xMailItem.HTMLBody
End If
xMailItem.Save
xDeletedFilePath = ""
End If
End If
Next
Exit Sub:
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub
3. Tryk på F5 eller klik på Kør knappen for at køre koden. Så fjernes alle vedhæftede filer fra den valgte mailmappe med det samme.
4. Klik File (Felt) > INFO > Værktøjer > Ryd op på gamle genstande (eller File (Felt) > INFO > Oprydningsværktøjer > Arkiv).
5. I dialogboksen Arkiv skal du klikke for at fremhæve den kopierede mappe, skriv I DAG i Arkiver emner ældre end og klik derefter på Gennemse knap. Se skærmbillede:
6. I dialogboksen Åbn Outlook-datafiler skal du åbne den mappe, du vil gemme den arkiverede PST-fil i, navngiv PST-filen i Filnavn og klik derefter på OK knap. Se skærmbillede:
7. Nu vender du tilbage til dialogboksen Arkiv, klik på OK knappen for at afslutte arkiveringen.
Indtil videre har du arkiveret mailmappen uden nogen vedhæftede filer.
Arkiver uden vedhæftede filer af Kutools til Outlook
Hvis du har Kutools til Outlook installeret, kan du anvende det Fjern alle funktion til hurtigt at slette alle vedhæftede filer fra den angivne mappe, du vil arkivere, og derefter nemt arkivere uden vedhæftede filer.
Kutools til Outlook: Ultimativt Outlook-værktøjssæt med over 100 praktiske værktøjer. Prøv det GRATIS i 60 dage, ingen begrænsninger, ingen bekymringer! Læs mere ... Start gratis prøveversion nu!
1. I Post se, åbn den angivne mailmappe, du vil arkivere, vælg alle e-mails med at trykke Ctrl + A tasterne, og klik derefter på Kutools > Fjern alle. Se skærmbillede:
2. I dialogboksen Vælg venligst en mappe skal du klikke på Gennemse . for at angive den mappe, du vil gemme den vedhæftede fil i, skal du angive en undermappestil fra oprette undermapper i følgende stil rullelisten, og klik på Ok knap. Se skærmbillede:
3. Klik venligst Ja -knappen og OK knappen successivt i dialogboksene, der popper ud.
4. Fortsæt med at klikke File (Felt) > INFO > Værktøjer > Ryd op på gamle genstande (eller File (Felt) > INFO > Oprydningsværktøjer > Arkiv).
5. I dialogboksen Arkiv, klik venligst for at fremhæve den angivne mappe, du vil arkivere uden vedhæftede filer, skriv I DAG i Arkiver emner ældre end og klik derefter på Gennemse knap. Se skærmbillede:
6. I dialogboksen Åbn Outlook-datafiler skal du åbne den mappe, du vil gemme den arkiverede PST-fil i, navngiv PST-filen i Filnavn og klik derefter på OK knap. Se skærmbillede:
7. Nu vender du tilbage til dialogboksen Arkiv, klik på OK knappen for at afslutte arkiveringen.
Indtil videre har du allerede arkiveret den angivne mailmappe uden vedhæftede filer.
Kutools til Outlook: Supercharge Outlook med over 100 must-have værktøjer. Prøv den GRATIS i 60 dage, uden betingelser! Læs mere ... Hent nu!
Relaterede artikler
Hvordan arkiveres automatisk vedhæftede filer kun i Outlook?
Hvordan arkiveres e-mails efter år / måned / dato i Outlook?
Bedste kontorproduktivitetsværktøjer
Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook
🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...
📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP) / Planlæg Send e-mails / Auto CC/BCC efter regler ved afsendelse af e-mail / Automatisk videresendelse (avancerede regler) / Tilføj automatisk hilsen / Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...
📨 Email Management: Genkald nemt e-mails / Bloker svindel-e-mails af emner og andre / Slet duplikerede e-mails / Avanceret søgning / Konsolider mapper ...
📁 Vedhæftede filer Pro: Batch Gem / Batch adskilles / Batch komprimere / Automatisk gem / Automatisk afmontering / Automatisk komprimering ...
🌟 Interface Magic: 😊 Flere smukke og seje emojis / Boost din Outlook-produktivitet med fanebaserede visninger / Minimer Outlook i stedet for at lukke ...
👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer / Anti-phishing e-mails / 🕘Vis afsenderens tidszone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails / Opdel en kontaktgruppe til individuelle grupper / Fjern fødselsdagspåmindelser ...
Over 100 Features Afvent din udforskning! Klik her for at finde mere.