Comment envoyer rapidement les pages spécifiques d'un document Word en tant qu'e-mail Outlook

Certains utilisateurs aspirent à une solution leur permettant d'envoyer rapidement les pages spécifiques d'un document Word sous forme d'e-mail Outlook. Dans cet article, nous présenterons une telle méthode en détail.

Si vous avez lu mon article précédent "Comment joindre rapidement les pages spécifiques d'un document Word à un e-mail Outlook“, vous pouvez avoir tendance à demander une méthode qui peut envoyer directement les pages spécifiques d'un document Word sous forme d'e-mail, plutôt que sous forme de pièce jointe. Maintenant, dans ce qui suit, nous allons vous montrer un morceau de code VBA, qui peut le réaliser facilement.

Envoyer les pages spécifiques d'un document Word en tant qu'e-mail Outlook

1. Pour commencer, vous devez accéder au document Word source dont vous souhaitez envoyer les pages spécifiques.
2. Ensuite, dans la fenêtre Word ouverte, vous devez appuyer sur les boutons "Alt + F11".
3. Il fera apparaître la fenêtre "Microsoft Visual Basic pour Applications".
4. Dans cette fenêtre, vous devez insérer un nouveau module.
5. Ensuite, vous devez activer « Bibliothèque d'objets Microsoft Outlook ».

• Cliquez sur "Outils" et choisissez "Référence" dans la liste déroulante.
• Dans la boîte de dialogue qui s'affiche, faites défiler vers le bas jusqu'à trouver « Bibliothèque d'objets Microsoft Outlook ». Activez-la et cliquez sur « OK ».

6. Après cela, vous pouvez copier le morceau de code VBA ci-dessous dans ce module.

Sub SendSpecificPagesAsOutlookEmail()
    Dim objSelectedPages As Word.Range
    Dim objOutlookApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
 
    'Copy the contents from Page 3 to 4
    'Change the page number as per your needs
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=3
    Set objSelectedPages = Selection.Range
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=4
    objSelectedPages.End = Selection.Bookmarks("\Page").Range.End
    objSelectedPages.Select
    objSelectedPages.Copy
 
    'Get Outlook Application
    On Error Resume Next
    Set objOutlookApp = GetObject(, "Outlook.Application")
    If objOutlookApp Is Nothing Then
       Set objOutlookApp = CreateObject("Outlook.Application")
    End If
 
    'Create a new email
    Set objMail = objOutlookApp.CreateItem(olMailItem)
    objMail.Display
 
    'Paste the contents in specific pages into message body
    Set objMailDocument = objMail.GetInspector.WordEditor
    Set objTempRange = objMailDocument.Range(0, 0)
    objTempRange.PasteAndFormat (wdFormatOriginalFormatting)
End Sub

7. Finalement, vous pouvez exécuter cette macro à la fois. Appuyez simplement sur la touche "F5" dans le module actuel.
8. Vous pouvez recevoir un avertissement Outlook comme la capture d'écran suivante. Vous pouvez cliquer directement sur "Autoriser".
9. En fin de compte, vous recevrez un e-mail contenant les pages spécifiques du document Word.

Faites attention à la protection des données Outlook

Vous pouvez être considérablement satisfait des quantités de fonctions dans Outlook. Mais, il contient encore des défauts. Par exemple, il est sensible aux erreurs et à la corruption. Dans ce cas, vous devez faire très attention à la protection d'Outlook, notamment en sauvegardant vos fichiers Outlook PST à intervalles réguliers. En outre, il est prudent et suggéré de garder un puissant Réparation PST utilitaire, comme DataNumen Outlook Repair. Il est si puissant qu'il peut extraire un maximum de données d'un fichier Outlook gravement corrompu.

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 réparation mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com