Hoppa till huvudinnehåll

Hur arkiverar jag utan bilagor i Outlook?

I allmänhet kommer Outlooks arkivfunktion att spara alla e-postelement, inklusive e-postinnehåll, e-postrubrik, e-postbilagor etc. Bilagorna kan dock göra den arkiverade PST-filen skrymmande. Här presenterar jag två lösningar för arkivering utan bilagor i Outlook.

Office-fliken - Aktivera flikredigering och surfning i Microsoft Office, vilket gör arbetet enkelt
Kutools för Outlook - Boosta Outlook med 100+ avancerade funktioner för överlägsen effektivitet
Förbättra din Outlook 2021 - 2010 eller Outlook 365 med dessa avancerade funktioner. Njut av en omfattande 60-dagars gratis provperiod och höj din e-postupplevelse!

Arkiv utan bilagor av VBA

Den här metoden kommer att introducera en VBA för att ta bort alla bilagor från den angivna mappen du ska arkivera, och sedan kan du arkivera utan bilagor. Gör så här:

1. I Post visa, välj mappen du ska arkivera och tryck andra + F11 för att öppna Microsoft Visual Basic for Applications-fönstret.

2. Klicka Insert > Modulerna, och klistra sedan in under VBA i det nya modulfönstret.

VBA: Ta bort alla bilagor från den valda e-postmappen 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. tryck på F5 eller klicka på Körning knappen för att köra koden. Då tas alla bilagor bort från den valda e-postmappen omedelbart.

4. Klicka Fil > Info > verktyg > Städa upp gamla föremål (eller Fil > Info > Rengöringsverktyg > arkiv).

5. I dialogrutan Arkiv, klicka för att markera den kopierade mappen, skriv I DAG i Arkivera saker som är äldre än och klicka sedan på Bläddra knapp. Se skärmdump:

6. I dialogrutan Öppna Outlook-datafiler, öppna mappen där du ska spara den arkiverade PST-filen, namnge PST-filen i Filnamn och klicka sedan på OK knapp. Se skärmdump:

7. Nu återgår du till dialogrutan Arkiv, klicka på OK för att avsluta arkiveringen.
Hittills har du arkiverat e-postmappen utan några bilagor.


Arkivera utan bilagor av Kutools för Outlook

Om du har Kutools för Outlook installerat kan du använda det Lossa alla funktion för att snabbt ta bort alla bilagor från den angivna mappen du kommer att arkivera och sedan enkelt arkivera utan bilagor.

Kutools för Outlook: Ultimat Outlook-verktygssats med över 100 praktiska verktyg. Prova GRATIS i 60 dagar, inga begränsningar, inga bekymmer!   Läs mer...   Starta gratis provperiod nu!

1. I Post visa, öppna den angivna e-postmappen du ska arkivera, välj alla e-postmeddelanden med att trycka ctrl + A och klicka sedan på Kutools > Lossa alla. Se skärmdump:

2. I dialogrutan Välj en mapp klickar du på Bläddra Knappen  för att ange vilken mapp du ska spara bilagan i, ange en undermappsstil från skapa undermappar i följande stil rullgardinsmenyn och klicka på Ok knapp. Se skärmdump:

3. var god klicka Ja knappen och OK knappen i tur och ordning i dialogrutorna som visas.

4. Fortsätt att klicka Fil > Info > verktyg > Städa upp gamla föremål (eller Fil > Info > Rengöringsverktyg > arkiv).

5. I dialogrutan Arkiv, vänligen klicka för att markera den angivna mappen som du ska arkivera utan bilagor, skriv I DAG i Arkivera saker som är äldre än och klicka sedan på Bläddra knapp. Se skärmdump:

6. I dialogrutan Öppna Outlook-datafiler, öppna mappen där du ska spara den arkiverade PST-filen, namnge PST-filen i Filnamn och klicka sedan på OK knapp. Se skärmdump:

7. Nu återgår du till dialogrutan Arkiv, klicka på OK för att avsluta arkiveringen.

Hittills har du redan arkiverat den angivna e-postmappen utan bilagor.

Kutools för Outlook: Supercharge Outlook med över 100 måste-ha verktyg. Provkör den GRATIS i 60 dagar, utan begränsningar!   Läs mer...   Ladda ner nu!


Relaterade artiklar


Bästa kontorsproduktivitetsverktyg

Kutools för Outlook - Över 100 kraftfulla funktioner för att överladda din Outlook

📧 Email Automation: Frånvaro (tillgänglig för POP och IMAP)  /  Schemalägg Skicka e-post  /  Auto CC/BCC enligt regler när du skickar e-post  /  Automatisk vidarebefordran (avancerade regler)   /  Lägg automatiskt till hälsning   /  Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...

📨 Email Management: Hämta enkelt e-postmeddelanden  /  Blockera bluff-e-postmeddelanden av ämnen och andra  /  Ta bort duplicerade e-postmeddelanden  /  Avancerad Sökning  /  Konsolidera mappar ...

📁 Bilagor ProBatch Spara  /  Batch lossa  /  Batchkomprimera  /  Automatisk sparning   /  Auto Lossa  /  Automatisk komprimering ...

🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis   /  Öka din Outlook-produktivitet med flikar  /  Minimera Outlook istället för att stänga ...

👍 Underverk med ett klick: Svara alla med inkommande bilagor  /   E-postmeddelanden mot nätfiske  /  🕘Visa avsändarens tidszon ...

👩🏼‍🤝‍👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden  /  Dela upp en kontaktgrupp till individuella grupper  /  Ta bort påminnelser om födelsedag ...

Över 100 funktioner Vänta på din utforskning! Klicka här för att upptäcka mer.

Läs mer       Gratis nedladdning      Inköp
 

 

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