Kaip greitai išsiųsti konkrečius „Word“ dokumento puslapius kaip „Outlook“ el

Kai kurie vartotojai trokšta sprendimo, kuris leistų jiems greitai išsiųsti konkrečius „Word“ dokumento puslapius kaip „Outlook“ el. laišką. Šiame straipsnyje mes išsamiai pristatysime tokį metodą.

Jei perskaitėte mano ankstesnį straipsnį "Kaip greitai pridėti konkrečius „Word“ dokumento puslapius prie „Outlook“ el“, galite paprašyti metodo, kuris galėtų tiesiogiai siųsti konkrečius „Word“ dokumento puslapius kaip el. laišką, o ne kaip el. laiško priedą. Dabar mes parodysime jums VBA kodo dalį, kuri gali lengvai jį realizuoti.

Siųskite konkrečius „Word“ dokumento puslapius kaip „Outlook“ el. laišką

1. Pirmiausia turite pasiekti šaltinio Word dokumentą, kurio konkrečius puslapius norite siųsti.
2. Tada atsidariusiame „Word“ lange turėtumėte paspausti „Alt + F11“ mygtukus.
3. Bus parodytas langas „Microsoft Visual Basic for Applications“.
4. Šiame lange turėtumėte įterpti naują modulį.
5. Toliau turite įjungti „Microsoft Outlook“ objektų biblioteką.

• Spustelėkite „Įrankiai“ ir išskleidžiamajame sąraše pasirinkite „Nuoroda“.
• Iššokančiajame dialogo lange slinkite žemyn, kol pamatysite „Microsoft Outlook“ objektų biblioteką. Įjunkite ją ir spustelėkite „Gerai“.

6. Po to galite nukopijuoti toliau pateiktą VBA kodo dalį į šį modulį.

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. Galų gale galite paleisti šią makrokomandą iš karto. Tiesiog paspauskite „F5“ klavišą dabartiniame modulyje.
8. Galite gauti „Outlook“ įspėjimą, pavyzdžiui, šią ekrano kopiją. Galite tiesiogiai spustelėti „Leisti“.
9. Galiausiai gausite el. laišką, kuriame yra konkretūs „Word“ dokumento puslapiai.

Atkreipkite dėmesį į „Outlook“ duomenų apsaugą

Galite būti labai patenkinti „Outlook“ funkcijų kiekiu. Tačiau jame vis dar yra trūkumų. Pavyzdžiui, jis yra jautrus klaidoms ir korupcijai. Tokiu atveju turite daug dėmesio skirti Outlook apsaugai, įskaitant reguliarų Outlook PST failų atsarginių kopijų kūrimą. Be to, tai protinga ir siūloma išlaikyti galingą PST remontas naudingumas, pvz DataNumen Outlook Repair. Jis yra toks galingas, kad gali išgauti maksimalius duomenis iš rimtai sugadinto „Outlook“ failo.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant mdf remontas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com