Gå til hovedindhold

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.

Office-faneblad - Aktiver fanebaseret redigering og browsing i Microsoft Office, hvilket gør arbejdet til en leg
Kutools til Outlook - Boost Outlook med 100+ avancerede funktioner for overlegen effektivitet
Boost din Outlook 2021 - 2010 eller Outlook 365 med disse avancerede funktioner. Nyd en omfattende 60-dages gratis prøveperiode og løft din e-mail-oplevelse!

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 filet > INFO > Værktøjer > Ryd op på gamle genstande (eller filet > 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 filet > INFO > Værktøjer > Ryd op på gamle genstande (eller filet > 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


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 ProBatch 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.

Læs mere       Gratis download      Køb
 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations