Passer au contenu principal

Comment archiver sans pièces jointes dans Outlook?

En général, la fonction d'archivage d'Outlook enregistre tous les éléments du courrier électronique, y compris le contenu du courrier électronique, l'en-tête du courrier électronique, les pièces jointes aux courriers électroniques, etc. Cependant, les pièces jointes peuvent rendre le fichier PST archivé volumineux. Ici, je vais présenter deux solutions pour archiver sans pièces jointes dans Outlook.

Onglet Office - Activez l'édition et la navigation par onglets dans Microsoft Office, ce qui facilite le travail
Kutools for Outlook - Boostez Outlook avec plus de 100 fonctionnalités avancées pour une efficacité supérieure
Boostez votre Outlook 2021 - 2010 ou Outlook 365 avec ces fonctionnalités avancées. Profitez d'un essai gratuit complet de 60 jours et améliorez votre expérience de messagerie !

Archiver sans pièces jointes par VBA

Cette méthode introduira un VBA pour supprimer toutes les pièces jointes du dossier spécifié que vous archiverez, puis vous pourrez archiver sans pièces jointes. Veuillez procéder comme suit:

1. Dans le Courrier afficher, sélectionnez le dossier que vous allez archiver et appuyez sur autre + F11 touches pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2Cliquez sur insérer > Module, puis collez sous VBA dans la nouvelle fenêtre de module.

VBA: supprimer toutes les pièces jointes du dossier de messagerie sélectionné dans 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. appuie sur le F5 ou cliquez sur la Courir bouton pour exécuter le code. Ensuite, toutes les pièces jointes sont immédiatement supprimées du dossier de courrier sélectionné.

4Cliquez sur Déposez le > Info > Outils > Nettoyer les anciens éléments (ou Déposez le > Info > Outils de nettoyage > Archive).

5. Dans la boîte de dialogue Archive, cliquez pour mettre en surbrillance le dossier copié, tapez AUJOURD'HUI dans l' Archiver les éléments plus anciens que , puis cliquez sur le Explorer bouton. Voir la capture d'écran:

6. Dans la boîte de dialogue Ouvrir les fichiers de données Outlook, ouvrez le dossier dans lequel vous allez enregistrer le fichier PST archivé, nommez le fichier PST dans le Nom du fichier , puis cliquez sur le OK bouton. Voir la capture d'écran:

7. Maintenant que vous revenez à la boîte de dialogue Archive, cliquez sur le bouton OK bouton pour terminer l'archivage.
Jusqu'à présent, vous avez archivé le dossier de courrier sans aucune pièce jointe.


Archiver sans pièces jointes par Kutools for Outlook

Si Kutools for Outlook est installé, vous pouvez appliquer son Détacher tout pour supprimer rapidement toutes les pièces jointes du dossier spécifié que vous archiverez, puis archiverez sans pièces jointes facilement.

Kutools for Outlook: Boîte à outils Outlook ultime avec plus de 100 outils pratiques. Essayez-le GRATUITEMENT pendant 60 jours, sans limites, sans soucis !   Lire la suite...   Commencez votre essai gratuit maintenant!

1. Dans le Courrier afficher, ouvrez le dossier de messagerie spécifié que vous archiverez, sélectionnez tous les e-mails en appuyant sur Ctrl + A clés, puis cliquez sur Kutools > Détacher tout. Voir la capture d'écran:

2. Dans la boîte de dialogue Veuillez sélectionner un dossier, cliquez sur le bouton Explorer bouton (dans la fenêtre de contrôle qui apparaît maintenant)  pour spécifier le dossier dans lequel vous allez enregistrer la pièce jointe, spécifiez un style de sous-dossier dans le créer des sous-dossiers dans le style suivant liste déroulante, puis cliquez sur le Ok bouton. Voir la capture d'écran:

3. Cliquez s'il vous plait Oui touche et OK bouton successivement dans les boîtes de dialogue contextuelles.

4. Continuez en cliquant Déposez le > Info > Outils > Nettoyer les anciens éléments (ou Déposez le > Info > Outils de nettoyage > Archive).

5. Dans la boîte de dialogue Archiver, veuillez cliquer pour mettre en surbrillance le dossier spécifié que vous archiverez sans pièces jointes, tapez AUJOURD'HUI dans l' Archiver les éléments plus anciens que , puis cliquez sur le Explorer bouton. Voir la capture d'écran:

6. Dans la boîte de dialogue Ouvrir les fichiers de données Outlook, ouvrez le dossier dans lequel vous allez enregistrer le fichier PST archivé, nommez le fichier PST dans le Nom du fichier , puis cliquez sur le OK bouton. Voir la capture d'écran:

7. Maintenant que vous revenez à la boîte de dialogue Archive, cliquez sur le bouton OK bouton pour terminer l'archivage.

Jusqu'à présent, vous avez déjà archivé le dossier de courrier spécifié sans pièces jointes.

Kutools for Outlook: Boostez Outlook avec plus de 100 outils indispensables. Testez-le GRATUITEMENT pendant 60 jours, sans aucune condition !   Lire la suite...   Télécharger maintenant!


Articles Relatifs


Meilleurs outils de productivité bureautique

Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook

🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...

📧 Email Automation: Absent du bureau (disponible pour POP et IMAP)  /  Programmer l'envoi d'e-mails  /  Auto CC/BCC par règles lors de l'envoi d'un e-mail  /  Transfert automatique (règles avancées)   /  Ajouter un message d'accueil automatique   /  Divisez automatiquement les e-mails multi-destinataires en messages individuels 

(I.e. Email Management: Rappel facile des e-mails  /  Bloquer les e-mails frauduleux par sujets et autres  /  Supprimer les e-mails en double  /  Recherche Avancée  /  Consolider les dossiers 

(I.e. Pièces jointes ProSauvegarde par lots  /  Détachement par lots  /  Compression par lots  /  Enregistrement automatique   /  Détachement automatique  /  Compression automatique 

???? Magie de l'interface: 😊Plus d'émojis jolis et cool   /  Boostez votre productivité Outlook avec des vues à onglets  /  Réduire Outlook au lieu de fermer 

???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes  /   E-mails anti-hameçonnage  /  🕘Afficher le fuseau horaire de l'expéditeur 

👩🏼‍🤝‍👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés  /  Diviser un groupe de contacts en groupes individuels  /  Supprimer les rappels d'anniversaire 

infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.

 

 

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