Ako rýchlo odoslať konkrétne stránky dokumentu Word ako e-mail programu Outlook

Niektorí používatelia túžia po riešení, ktoré im umožní rýchlo odoslať konkrétne stránky dokumentu Word ako e-mail programu Outlook. V tomto článku si takúto metódu podrobne predstavíme.

Ak ste si prečítali môj predchádzajúci článok “Ako rýchlo pripojiť konkrétne stránky dokumentu Word k e-mailu programu Outlook„, Môžete mať tendenciu požadovať metódu, ktorá dokáže priamo poslať konkrétne stránky dokumentu Word ako e-mail, a nie ako prílohu e-mailu. Teraz vám v nasledujúcich ukážeme kúsok kódu VBA, ktorý to dokáže ľahko realizovať.

Pošlite konkrétne stránky dokumentu vo formáte Word ako e-mail programu Outlook

1. Najprv musíte získať prístup k zdrojovému dokumentu programu Word, ktorého konkrétne stránky chcete odoslať.
2. Potom by ste v otvorenom okne programu Word mali stlačiť tlačidlá „Alt + F11“.
3. Zobrazí sa okno „Microsoft Visual Basic for Applications“.
4. V tomto okne by ste mali vložiť nový modul.
5. Ďalej musíte povoliť „Microsoft Outlook Object Library “.

• Kliknite na „Nástroje“ a z rozbaľovacieho zoznamu vyberte možnosť „Referencia“.
• V rozbaľovacom dialógovom okne posuňte zobrazenie nadol, kým sa nezobrazí položka „Microsoft Outlook Object Library “. Povoľte to a kliknite na „OK“.

6. Potom môžete do tohto modulu skopírovať časť kódu VBA uvedenú nižšie.

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. Nakoniec môžete toto makro spustiť naraz. Stačí stlačiť kláves „F5“ v aktuálnom module.
8. Môže sa vám zobraziť upozornenie na Outlook, ako na nasledujúcom obrázku. Môžete kliknúť priamo na „Povoliť“.
9. Nakoniec dostanete e-mail, ktorý obsahuje konkrétne stránky dokumentu Word.

Venujte pozornosť ochrane údajov programu Outlook

S množstvom funkcií v Outlooku môžete byť značne spokojní. Stále však obsahuje chyby. Napríklad je náchylný na chyby a korupciu. V takom prípade musíte venovať veľkú pozornosť ochrane Outlooku, vrátane zálohovania súborov Outlook PST v pravidelných intervaloch. Okrem toho je to obozretné a navrhuje sa zachovať mocnosť Oprava PST užitočnosť, ako DataNumen Outlook Repair. Je taký silný, že dokáže extrahovať maximum údajov z vážne poškodeného súboru programu Outlook.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane oprava mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S