Export Outlook document Notes ou un fichier texte


Il ya beaucoup de gens qui veulent un moyen gratuit pour exporter leurs billets Outlook pour séparer les fichiers de documents. Voici une approche étape par étape pour exporter ces notes. Il peut sembler difficile, mais il est vraiment simple et devrait prendre toutes les 5 minutes. L'exportation réelle a lieu si rapidement, vous serez surpris. Les notes seront exportés vers des documents Word ou texte avec le même nom des notes.

Se il vous plaît comprendre que Windows ne permet pas de nombreux caractères spéciaux dans les noms de fichiers, de sorte que vous devrez supprimer manuellement les caractères spéciaux comme: "/ \ | * le nom de la note avant de convertir les noms de périphériques suivants sont restreints d'une utilisation comme? . les noms des fichiers à partir de Windows et ne devraient pas être le nom d'une note: CON, PRN, AUX, NUL, COM1, COM2, COM3, COM4, ​​COM5, COM6, COM7, COM8, COM9, LPT1, LPT2, LPT3 , LPT4, LPT5 ,. Ipt6, LPT7, LPT8 et LPT9 pour aider, le code que je ai fourni automatiquement remplace tout ou caractères "/"" avec un "-". Le reste est à vous de renommer manuellement ou vous pouvez modifier le code pour convertir des caractères ou des noms encore plus restreint.




  • Créez un dossier dans la racine (principal) C: drive "notes" nommés. E 'important ce dossier est dans le répertoire racine du lecteur C:.
  • Ouvrez Outlook.
  • Après l'ouverture d'Outlook, cliquez sur la barre supérieure de la fenêtre Outlook côté du nom de Microsoft Outlook.
  • Appuyez sur ALT-F11 que la fenêtre d'Outlook Visual Basic se ouvre. Si elle ne se ouvre pas, assurez-vous que vous cliquez sur la barre supérieure de la fenêtre Outlook et appuyez sur ALT-F11 à nouveau.
  • Sur la barre d'outils, cliquez sur Insérer et sécurisé. Vous devriez voir une case ouverte nouvelle fenêtre Projet1, Module1.
  • Copiez le code que vous trouverez ci-dessous dans cet article et de le coller dans la fenêtre Module1 volet. Si vous voulez exporter un document qui peut être ouvert dans Word (RTF), utilisez le code NotesToRTF. Si vous voulez exporter des fichiers texte, utilisez le code NotesToText.
  • Sur la barre d'outils, cliquez sur Exécuter, puis cliquez sur "Exécuter Sub/UserForm."
  • Un pop-up vous demandant de sélectionner le dossier où vous trouverez les notes Outlook. Pour beaucoup de gens, ce est tout simplement le dossier normal Remarques Outlook. Sélectionnez le dossier Notes, puis cliquez sur OK. [Plus les utilisateurs avancés peuvent sélectionner différents dossiers de notes qui peuvent être créés en suivant ces étapes encore et encore jusqu'à ce que toutes leurs notes sont exportés.]
  • Les billets rapidement exportés à ce point. "Running" apparaît à côté du nom fenêtre "Microsoft Visual Basic" en haut de l'écran et disparaissent lorsque les notes sont exportés. Vous pouvez voir clignoter pendant une seconde si vous avez quelques notes. Pour des centaines ou des milliers de notes, il faudra plus de temps. Attendre "Running" de se en aller, et vous pouvez procéder.
  • Fermez le Microsoft Visual Basic.
  • Quittez Outlook. Vous recevrez une fenêtre pop-up vous demandant si vous souhaitez enregistrer le projet VBA. Réponse n °
  • Regardez dans le dossier Notes sur le lecteur C: pour trouver les notes.

Si vous avez reçu un "Exécuter d'erreur", cliquez sur Terminer, puis vérifiez les points suivants:

  • Avez-vous utilisé un caractère réservé ou un nom dans une note?
  • Vous avez vraiment nommer notes dossier sur la racine du lecteur Csmile
  • Fixer le nom du dossier, puis revenir à la Microsoft Visual Basic et cliquez sur Exécuter, puis "Exécuter Sub/UserForm" à nouveau.
  • Le code est testé et devrait fonctionner à chaque fois que vous suivez les instructions. Si le problème persiste, je soupçonne que vous pourriez avoir un fichiers de données Outlook corrompus. Il ya beaucoup de pages Hub qui traitent comment y remédier. Il suffit de chercher "Scanpst" et suivez les instructions sur la page.

NotesToRTF code

Sous NotesToRTF () Septembre MyNote = Application.GetNamespace ("MAPI"). PickFolder Pour cnt = 1 Pour myNote.Items.Count noteName = Remplacer (Remplacer (myNote.Items (cnt) .Subject, "/", "-"), "", "-") myNote.Items (CNT) .SaveAs "c: \ notes " & noteName & ".rtf", OlSaveAsType.olRTF Suivant End Sub

Code de NotesToText

Sous NotesToText () Septembre MyNote = Application.GetNamespace ("MAPI"). PickFolder Pour cnt = 1 Pour myNote.Items.Count noteName = Remplacer (Remplacer (myNote.Items (cnt) .Subject, "/", "-"), "", "-") myNote.Items (CNT) .SaveAs "c: \ notes " & noteName et ".txt", OlSaveAsType.olTXT Suivant End Sub

(0)
(0)

Commentaires - 0

Sans commentaires

Ajouter un commentaire

smile smile smile smile smile smile smile smile
smile smile smile smile smile smile smile smile
smile smile smile smile smile smile smile smile
smile smile smile smile
Caractères restants: 3000
captcha