So senden Sie schnell bestimmte Seiten eines Word-Dokuments als Outlook-E-Mail

Einige Benutzer sehnen sich nach einer Lösung, mit der sie die spezifischen Seiten eines Word-Dokuments in kurzer Zeit als Outlook-E-Mail senden können. In diesem Artikel werden wir eine solche Methode im Detail vorstellen.

Wenn Sie meinen vorherigen Artikel gelesen haben “So fügen Sie schnell bestimmte Seiten eines Word-Dokuments an eine Outlook-E-Mail anMöglicherweise fragen Sie nach einer Methode, mit der bestimmte Seiten eines Word-Dokuments direkt als E-Mail und nicht als E-Mail-Anhang gesendet werden können. Im Folgenden zeigen wir Ihnen nun einen Teil des VBA-Codes, mit dem Sie ihn problemlos realisieren können.

Senden Sie die spezifischen Seiten eines Word-Dokuments als Outlook-E-Mail

1. Zunächst müssen Sie auf das Word-Quelldokument zugreifen, dessen spezifische Seiten Sie senden möchten.
2. Dann sollten Sie im geöffneten Word-Fenster die Tasten „Alt + F11“ drücken.
3. Das Fenster "Microsoft Visual Basic für Applikationen" wird geöffnet.
4. In diesem Fenster sollten Sie ein neues Modul einfügen.
5. Als Nächstes müssen Sie die „Microsoft Outlook-Objektbibliothek“ aktivieren.

• Klicken Sie auf "Extras" und wählen Sie "Referenz" aus der Dropdown-Liste.
• Scrollen Sie im Popup-Dialogfeld nach unten, bis Sie die „Microsoft Outlook-Objektbibliothek“ sehen. Aktivieren Sie diese und klicken Sie auf „OK“.

6. Danach können Sie den folgenden VBA-Code in dieses Modul kopieren.

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. Schließlich können Sie dieses Makro sofort ausführen. Drücken Sie einfach die Taste „F5“ im aktuellen Modul.
8. Möglicherweise erhalten Sie eine Outlook-Warnung wie im folgenden Screenshot. Sie können direkt auf "Zulassen" klicken.
9. Letztendlich erhalten Sie eine E-Mail, die die spezifischen Seiten des Word-Dokuments enthält.

Achten Sie auf den Outlook-Datenschutz

Möglicherweise sind Sie mit der Anzahl der Funktionen in Outlook sehr zufrieden. Aber es enthält immer noch Mängel. Zum Beispiel ist es anfällig für Fehler und Korruption. In diesem Fall müssen Sie dem Outlook-Schutz viel Aufmerksamkeit schenken, einschließlich der regelmäßigen Sicherung Ihrer Outlook PST-Dateien. Außerdem ist es klug und schlägt vor, einen Mächtigen zu behalten PST-Reparatur Dienstprogramm, wie DataNumen Outlook Repair. Es ist so leistungsfähig, dass es maximale Daten aus ernsthaft beschädigten Outlook-Dateien extrahieren kann.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich MDF-Reparatur und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX