Kako brzo poslati određene stranice Word dokumenta kao Outlook e-poštu

Neki korisnici žude za rješenjem koje im omogućuje da u kratkom roku pošalju određene stranice Word dokumenta kao Outlook e-poštu. U ovom članku ćemo detaljno predstaviti takvu metodu.

Ako ste pročitali moj prethodni članak "Kako brzo priložiti određene stranice Word dokumenta Outlook e-pošti“, možda ćete tražiti metodu koja može izravno poslati određene stranice Word dokumenta kao e-poruku, a ne kao privitak e-pošte. Sada, u nastavku ćemo vam pokazati dio VBA koda, koji to može realizirati s lakoćom.

Pošaljite određene stranice Word dokumenta kao Outlook e-poštu

1. Za početak morate pristupiti izvornom Word dokumentu čije određene stranice želite poslati.
2. Zatim, u otvorenom prozoru programa Word, trebate pritisnuti tipke "Alt + F11".
3. Prikazat će se prozor "Microsoft Visual Basic za aplikacije".
4. U ovom prozoru trebate umetnuti novi modul.
5. Zatim morate omogućiti "Microsoft Outlook Object Library".

• Pritisnite "Alati" i odaberite "Referenca" s padajućeg popisa.
• U skočnom dijaloškom okviru pomaknite se prema dolje dok ne vidite "Microsoft Outlook Object Library". Omogućite je i kliknite "U redu".

6. Nakon toga možete kopirati dio VBA koda ispod u ovaj 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. Na kraju, ovu makronaredbu možete pokrenuti odjednom. Samo pritisnite tipku "F5" u trenutnom modulu.
8. Možda ćete primiti upozorenje programa Outlook kao na sljedećoj snimci zaslona. Možete izravno kliknuti "Dopusti".
9. Na kraju ćete dobiti e-poruku koja sadrži određene stranice Word dokumenta.

Obratite pozornost na Outlook zaštitu podataka

Možda ćete biti prilično zadovoljni količinom funkcija u programu Outlook. No, još uvijek ima nedostataka. Na primjer, podložan je pogreškama i korupciji. U ovom slučaju, morate obratiti veliku pozornost na Outlook zaštitu, uključujući sigurnosno kopiranje Outlook PST datoteka u redovitim intervalima. Osim toga, razborito je i preporučuje se zadržati moćnog PST popravak korisnost, poput DataNumen Outlook Repair. Toliko je moćan da može izvući najviše podataka iz ozbiljno oštećene Outlook datoteke.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravak mdf-a i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com