Kako hitro priložiti določene strani Wordovega dokumenta Outlookovemu e-poštnemu sporočilu

MS Word ima neposredno funkcijo, ki uporabnikom omogoča pošiljanje trenutnega Wordovega dokumenta kot e-poštne priloge. Toda včasih morda samo upate, da boste Outlookovemu e-poštnemu sporočilu priložili določene strani Wordovega dokumenta. Ta članek vam bo predstavil metodo.

Če želite poslati celoten Wordov dokument kot e-poštno prilogo v aplikaciji MS Word, lahko preprosto odprete meni »Datoteka« in se premaknete na zavihek »Shrani in pošlji«, pod katerim najdete gumb »Pošlji kot prilogo«. Vendar pa so lahko včasih tisto, kar želite poslati, le določene strani dokumenta. V tej situaciji lahko za to uporabite metodo, predstavljeno v nadaljevanju.

E-poštnemu sporočilu priložite določene strani Wordovega dokumenta

1. Najprej bi morali odpreti izvorni Wordov dokument, katerega določene strani želite poslati po e-pošti.
2. Potem, ko vstopite v okno MS Word, morate pritisniti tipke "Alt + F11".
3. Nato boste dobili dostop do urejevalnika VBA v MS Wordu.
4. Po tem morate omogočiti »Knjižnico predmetov Microsoft Outlook«. To storite tako, da kliknete »Orodja« > »Reference«.
5. Nato bi morali kopirati naslednjo kodo VBA v modul, ki ni v uporabi.

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. Končno lahko zaženete ta makro. Samo pritisnite tipko F5 ali tapnite ikono »Zaženi« v orodni vrstici.
7. Ko se makro konča, se prikaže novo Outlookovo e-poštno sporočilo, ki je priloženo z odlomkom izvornega Wordovega dokumenta, kot je ta posnetek zaslona:

Izvlecite največ podatkov iz poškodovane datoteke Outlook

Če ste Outlook uporabljali desetletja, ste se morda soočili z različnimi težavami Outlooka, vključno s pojavnimi notranjimi sporočili o napakah, nenadnimi zrušitvami in resnimi poškodbami datotek. Zaradi dejstva, da je scanpst, vgrajeno orodje za popravilo, se lahko ukvarja le z majhnimi težavami, zato imejte pri roki zunanje zmogljivo orodje za popravilo, npr. DataNumen Outlook Repair. Iz poškodovane Outlookove podatkovne datoteke lahko 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 sql popravek in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com