Ako rýchlo pripojiť konkrétne stránky dokumentu Word k e-mailu programu Outlook

MS Word má priamu funkciu, ktorá podporuje používateľov pri odosielaní aktuálneho dokumentu ako prílohy e-mailu. Niekedy však možno len dúfate, že k e-mailu v Outlooku pripojíte konkrétne stránky dokumentu Word. Tento článok vám teraz bude zdieľať metódu.

Ak chcete v aplikácii MS Word odoslať celý dokument Word ako prílohu e-mailu, môžete jednoducho prejsť do ponuky „Súbor“ a prejsť na kartu „Uložiť a odoslať“, pod ktorou nájdete tlačidlo „Odoslať ako prílohu“. To, čo chcete odoslať, však niekedy môžu byť iba konkrétne stránky dokumentu. V tejto situácii môžete na vykonanie použiť metódu uvedenú v nasledujúcich častiach.

Pripojte konkrétne stránky dokumentu Word k e-mailu

1. Najskôr by ste mali otvoriť zdrojový dokument programu Word, ktorého konkrétne stránky chcete poslať e-mailom.
2. Potom, čo sa dostanete do okna MS Word, musíte stlačiť klávesové skratky „Alt + F11“.
3. Ďalej získate prístup k editoru VBA v programe MS Word.
4. Potom musíte povoliť „Knižnicu objektov programu Microsoft Outlook“. Dosiahnete to kliknutím na „Nástroje“ > „Odkazy“.
5. Následne by ste mali skopírovať nasledujúci kód VBA do modulu, ktorý sa nepoužíva.

Sub AttachSpecificPagesToOutlookEmail()
    Dim strDocumentName As String
    Dim objSelectedPages As Word.Range
    Dim objTempDocument As Word.Document
    Dim objTempRange As Word.Range
    Dim i As Long
    Dim strTempDocument As String
    Dim objOutlookApp As Outlook.Application
    Dim objMail As Outlook.MailItem
 
    strDocumentName = Left(ActiveDocument.Name, InStr(ActiveDocument.Name, ".") - 1)
 
    'Copy the contents from Page 2 to 4
    'You can change the page as per your own needs
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=2
    Set objSelectedPages = Selection.Range
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=4
    objSelectedPages.End = Selection.Bookmarks("\Page").Range.End
    objSelectedPages.Select
    objSelectedPages.Copy
 
    'Paste the copied contents into a new Word Document
    Set objTempDocument = Word.Application.Documents.Add
    objTempDocument.Activate
    Set objTempRange = objTempDocument.Range(0, 0)
    objTempRange.PasteAndFormat (wdFormatOriginalFormatting)

    For i = objTempDocument.Paragraphs.Count To 1 Step -1
        If Len(objTempDocument.Paragraphs(i).Range) = 1 Then
           objTempDocument.Paragraphs(i).Range.Delete
        Else
           Exit For
        End If
    Next i
 
    'Save this document
    strTempDocument = "E:\" & strDocumentName & " (Excerpt).doc"
    objTempDocument.SaveAs2 strTempDocument, wdFormatDocument
 
    'Attach the new document to a new Outlook email
    On Error Resume Next
    Set objOutlookApp = GetObject(, "Outlook.Application")
    If objOutlookApp Is Nothing Then
       Set objOutlookApp = CreateObject("Outlook.Application")
    End If
 
    Set objMail = objOutlookApp.CreateItem(olMailItem)
    objMail.Attachments.Add (strTempDocument)
    objMail.Display
 
    objTempDocument.Close False
    Kill strTempDocument
End Sub

6. Nakoniec môžete spustiť toto makro. Stačí stlačiť klávesovú skratku F5 alebo klepnúť na ikonu „Spustiť“ na paneli nástrojov.
7. Po dokončení makra sa zobrazí nový e-mail Outlooku, ktorý je pripojený k výňatku zo zdrojového dokumentu Word, napríklad na nasledujúcom obrázku:

Extrahujte maximum údajov z poškodeného súboru programu Outlook

Ak ste Outlook používali už celé desaťročia, mohli ste byť konfrontovaní s rôznymi problémami s Outlookom, vrátane vyskakovacích vnútorných chybových správ, náhlych zlyhaní, ako aj vážneho poškodenia súborov. Vzhľadom na to, že Scanpst, vstavaný nástroj na opravu, dokáže vyriešiť iba malé problémy, mali by ste mať napríklad po ruke externý výkonný nástroj na opravu DataNumen Outlook Repair. Je schopný čerpať maximum údajov z poškodeného údajové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 opraviť sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S