Jak rychle odeslat konkrétní stránky dokumentu Word jako e-mail aplikace Outlook

Někteří uživatelé touží po řešení, které jim umožní rychle odeslat konkrétní stránky dokumentu Word jako e-mail aplikace Outlook. V tomto článku takovou metodu podrobně představíme.

Pokud jste si přečetli můj předchozí článek „Jak rychle připojit konkrétní stránky dokumentu Word k e-mailu aplikace Outlook„, Můžete mít tendenci požadovat metodu, která může přímo odeslat konkrétní stránky dokumentu Word jako e-mail, nikoli jako přílohu e-mailu. Nyní vám v následujících ukázkách ukážeme kousek kódu VBA, který to může snadno realizovat.

Odesílejte konkrétní stránky dokumentu Word jako e-mail aplikace Outlook

1. Nejprve musíte získat přístup ke zdrojovému dokumentu aplikace Word, jehož konkrétní stránky chcete odeslat.
2. Poté byste v otevřeném okně aplikace Word měli stisknout tlačítka „Alt + F11“.
3. Zobrazí se okno „Microsoft Visual Basic for Applications“.
4. V tomto okně byste měli vložit nový modul.
5. Dále musíte povolit „Knihovnu objektů Microsoft Outlook“.

• Klikněte na „Nástroje“ a z rozevíracího seznamu vyberte „Reference“.
• V rozbalovacím dialogovém okně přejděte dolů, dokud neuvidíte možnost „Knihovna objektů aplikace Microsoft Outlook“. Povolte ji a klikněte na tlačítko „OK“.

6. Poté můžete do tohoto modulu zkopírovat níže uvedený kód VBA.

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. Nakonec můžete toto makro spustit najednou. Stačí stisknout tlačítko „F5“ v aktuálním modulu.
8. Může se vám zobrazit upozornění aplikace Outlook, jako na následujícím snímku obrazovky. Můžete kliknout přímo na „Povolit“.
9. Nakonec dostanete e-mail, který obsahuje konkrétní stránky dokumentu Word.

Věnujte pozornost ochraně dat aplikace Outlook

S množstvím funkcí v Outlooku můžete být značně spokojeni. Ale stále obsahuje nedostatky. Například je citlivý na chyby a poškození. V tomto případě musíte věnovat velkou pozornost ochraně aplikace Outlook, včetně zálohování souborů Outlook PST v pravidelných intervalech. Kromě toho je to obezřetné a navrhuje se zachovat moc Oprava PST nástroj, jako DataNumen Outlook Repair. Je tak silný, že dokáže extrahovat maximum dat z vážně poškozeného souboru aplikace Outlook.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně Oprava MDF a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com