Lorsque vous souhaitez insérer rapidement des textes à la fin d'un e-mail assez long, il vous faudra un certain temps pour faire défiler jusqu'à la fin. Cet article exposera une méthode qui peut vous permettre de passer rapidement à la fin ou au début du corps de l'e-mail via VBA.
Parfois, lors de la lecture d'un long courriel, il peut être utile de pouvoir accéder rapidement au début ou à la fin du corps du message. Par exemple, pour consulter la signature de l'expéditeur, il faut se rendre à la fin. Habituellement, il faut faire défiler la page jusqu'au bout, ce qui peut s'avérer fastidieux. C'est pourquoi nous vous proposons ici un extrait de code VBA qui vous permettra d'accéder au début ou à la fin du message en un seul clic.
Aller rapidement au début ou à la fin du corps du message
- Dès le départ, lancez votre programme Outlook.
- Ensuite, dans la fenêtre principale d'Outlook, appuyez sur les touches "Alt + F11".
- Ensuite, vous entrerez dans la fenêtre "Microsoft Visual Basic pour Applications".
- À ce stade, vous devez ouvrir un module vierge ou en insérer directement un nouveau.
- Ensuite, vous devez copier et coller le code VBA suivant dans une telle fenêtre de module.
Dim objCurrentMail As Outlook.MailItem Dim objWordDocument As Word.Document Dim objWordRange As Word.Range Dim VarPosition As Variant Sub JumpToEnd() 'Fonctionne uniquement si le courriel actuel utilise l'éditeur Word Set objCurrentMail = Outlook.Application.ActiveInspector.CurrentItem Set objWordDocument = objCurrentMail.GetInspector.WordEditor If Not (objWordDocument Is Nothing) Then VarPosition = objWordDocument.Range.End - 1 Set objWordRange = objWordDocument.Range(VarPosition, VarPosition) objWordRange.Select End If End Sub Sub JumpToStart() If Not (objWordDocument Is Nothing) Then VarPosition = objWordDocument.Range.Start Set objWordRange = objWordDocument.Range(VarPosition, VarPosition) objWordRange.Select End If End Sub
- Après cela, vous feriez mieux d'ajouter les deux nouveaux sous-programmes à la barre d'outils d'accès rapide de la fenêtre de message.
- Tout d'abord, ouvrez un e-mail dans la fenêtre Message.
- Cliquez ensuite sur la flèche vers le bas dans la barre d'outils d'accès rapide.
- Dans la liste déroulante, vous devez sélectionner "Plus de commandes".
- Dans la fenêtre suivante, vous pouvez ajouter les macros à la barre d'outils d'accès rapide comme dans la capture d'écran suivante :
- Cliquez enfin sur une série de "OK" pour enregistrer les modifications.
- Désormais, vous pourrez accéder au début ou à la fin d'un e-mail en cliquant simplement sur le bouton de la barre d'outils Accès rapide, comme illustré dans l'image suivante :
Que faire si le fichier PST est compromis
En raison du fait que le fichier PST est susceptible d'erreurs et de corruption, vous devez faire de votre mieux pour protéger vos données PST. Par exemple, vous devez sauvegarder votre fichier PST sur une base périodique. De plus, afin de pouvoir récupérer PST endommagé données à temps, vous feriez mieux de garder un outil puissant à proximité, comme DataNumen Outlook Repair. Il est spécialisé dans la résolution des problèmes PST et la récupération des données PST.
Introduction de l'auteur:
Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris SQL Server fixer et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com