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

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

Ako ste pročitali moj prethodni članak “Kako brzo priložiti određene stranice Word dokumenta u Outlook e-poštu“, možda ćete imati tendenciju da tražite metodu koja može direktno poslati određene stranice Word dokumenta kao e-poštu, a ne kao prilog e-pošte. Sada, u nastavku, pokazaćemo vam deo VBA koda koji ga može realizovati sa lakoćom.

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

1. Za početak, trebate pristupiti izvornom Word dokumentu čije specifične stranice želite poslati.
2. Zatim, u otvorenom Word prozoru, trebate pritisnuti dugmad “Alt + F11”.
3. Pojaviće se prozor „Microsoft Visual Basic za aplikacije“.
4. U ovaj prozor treba da umetnete novi modul.
5. Zatim morate omogućiti „Microsoft Outlook Object LibrarY".

• Kliknite na “Alati” i sa padajuće liste odaberite “Reference”.
• U iskačućem dijaloškom okviru pomičite se prema dolje dok ne vidite „Microsoft Outlook Object Library”. Omogućite ga i kliknite na “OK”.

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, ovaj makro možete pokrenuti odjednom. Samo pritisnite tipku “F5” u trenutnom modulu.
8. Možda ćete dobiti upozorenje programa Outlook kao na snimku ekrana u nastavku. Možete direktno kliknuti na "Dozvoli".
9. Na kraju ćete dobiti e-poštu koja sadrži određene stranice Word dokumenta.

Obratite pažnju na Outlook zaštitu podataka

Možda ćete biti prilično zadovoljni količinom funkcija u Outlooku. Ali i dalje sadrži nedostatke. Na primjer, podložan je greškama i korupciji. U ovom slučaju, morate obratiti veliku pažnju na zaštitu programa Outlook, uključujući pravljenje rezervnih kopija Outlook PST datoteka u redovnim intervalima. Osim toga, razborito je i preporučuje se da se zadrži moćan PST repair korisnost, kao DataNumen Outlook Repair. Toliko je moćan da može izvući maksimum podataka iz ozbiljno oštećene Outlook datoteke.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf repair i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com