Kuidas kiiresti saata Wordi dokumendi konkreetseid lehti Outlooki meilina

Outlooki lahendused September 29, 2025

Mõned kasutajad igatsevad lahendust, mis võimaldaks neil Wordi dokumendi konkreetsed lehed kiiresti Outlooki meilina saata. Selles artiklis tutvustame sellist meetodit üksikasjalikult.

Kui olete lugenud minu eelmist artiklit "Kuidas Wordi dokumendi konkreetseid lehti kiiresti Outlooki meilile manustada“, võite küsida meetodit, mis saaks Wordi dokumendi konkreetsed leheküljed saata otse meilisõnumina, mitte meilimanuksena. Järgnevalt näitame teile VBA-koodi, mis võimaldab seda hõlpsalt realiseerida.

Saatke Wordi dokumendi konkreetsed lehed Outlooki meilina

Saatke Wordi dokumendi konkreetsed lehed Outlooki meilina

  1. Alustuseks peate pääsema juurde Wordi lähtedokumendile, mille konkreetseid lehti soovite saata.
  2. Seejärel peaksite avanenud Wordi aknas vajutama nuppe "Alt + F11".
  3. See toob välja akna "Microsoft Visual Basic for Applications".
  4. Selles aknas peaksite sisestama uue mooduli.
  5. Järgmisena peate lubama „Microsoft Outlooki objektiteegi”.
  • Klõpsake "Tööriistad" ja valige ripploendist "Viide".
  • Kerige hüpikaknas allapoole, kuni näete valikut „Microsoft Outlook Object Library”. Lubage see ja klõpsake nuppu „OK”.Luba „Microsoft Outlooki objektiteek”
  1. Pärast seda saate sellesse moodulisse kopeerida allpool oleva VBA-koodi.
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

VBA kood – saatke Wordi dokumendi konkreetsed lehed Outlooki meilina

  1. Lõpuks saate seda makrot korraga käivitada. Lihtsalt vajutage praeguses moodulis klahvi "F5".
  2. Võite saada Outlooki hoiatuse, nagu järgmine ekraanipilt. Võite otse klõpsata "Luba".Hoiatus
  3. Lõppkokkuvõttes saate meili, mis sisaldab Wordi dokumendi konkreetseid lehti.Meil, mis sisaldab Wordi dokumendi konkreetseid lehti

Pöörake tähelepanu Outlooki andmekaitsele

Võite olla Outlooki funktsioonide hulgaga märkimisväärselt rahul. Kuid sellel on endiselt vigu. Näiteks on see vastuvõtlik vigadele ja korruptsioonile. Sel juhul peate pöörama palju tähelepanu Outlooki kaitsele, sealhulgas Outlooki PST-failide regulaarsete ajavahemike järel varundamisele. Pealegi on see mõistlik ja soovitav hoida vägevat PST remont utiliit, nagu DataNumen Outlook Repair. See on nii võimas, et suudab tõsiselt rikutud Outlooki failist maksimaalselt andmeid ekstraheerida.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas mdf remont ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.