Kako hitro poslati določene strani Wordovega dokumenta kot Outlookovo e-pošto

Nekateri uporabniki hrepenijo po rešitvi, ki jim omogoča hitro pošiljanje določenih strani Wordovega dokumenta kot Outlookove e-pošte. V tem članku bomo podrobno predstavili takšno metodo.

Če ste prebrali moj prejšnji članek "Kako hitro priložiti določene strani Wordovega dokumenta Outlookovemu e-poštnemu sporočilu«, boste morda želeli zaprositi za metodo, ki lahko neposredno pošlje določene strani Wordovega dokumenta kot e-poštno sporočilo in ne kot e-poštno prilogo. V nadaljevanju vam bomo pokazali del kode VBA, ki jo lahko z lahkoto realizira.

Pošljite določene strani Wordovega dokumenta kot Outlookovo e-pošto

1. Za začetek morate dostopati do izvornega Wordovega dokumenta, katerega določene strani želite poslati.
2. Nato v oknu Word, ki se odpre, pritisnite gumba "Alt + F11".
3. Odprlo se bo okno »Microsoft Visual Basic for Applications«.
4. V tem oknu bi morali vstaviti nov modul.
5. Nato morate omogočiti »Knjižnico predmetov Microsoft Outlook«.

• Kliknite »Orodja« in na spustnem seznamu izberite »Referenca«.
• V pojavnem pogovornem oknu se pomaknite navzdol, dokler ne vidite »Knjižnice predmetov Microsoft Outlook«. Omogočite jo in kliknite »V redu«.

6. Po tem lahko kopirate spodnji del kode VBA v ta 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. Sčasoma lahko ta makro zaženete naenkrat. V trenutnem modulu samo pritisnite tipko "F5".
8. Morda boste prejeli Outlookovo opozorilo, kot je ta posnetek zaslona. Lahko neposredno kliknete »Dovoli«.
9. Na koncu boste prejeli e-poštno sporočilo, ki vsebuje določene strani Wordovega dokumenta.

Bodite pozorni na Outlookovo zaščito podatkov

Morda ste zelo zadovoljni s količino funkcij v Outlooku. Vendar še vedno vsebuje pomanjkljivosti. Na primer, dovzeten je za napake in pokvarjenost. V tem primeru morate veliko pozornosti nameniti zaščiti Outlooka, vključno z rednim varnostnim kopiranjem datotek Outlook PST. Poleg tega je preudarno in priporočljivo je obdržati mogočnega Popravilo PST uporabnost, kot DataNumen Outlook Repair. Je tako močan, da lahko iz resno poškodovane datoteke Outlook izvleče največ podatkov.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravilo mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com