Si të dërgoni shpejt faqet specifike të një dokumenti Word si një email të Outlook

Disa përdorues dëshirojnë një zgjidhje që u lejon atyre të dërgojnë faqet specifike të një dokumenti Word si një email të Outlook në një kohë të shpejtë. Në këtë artikull, ne do të prezantojmë një metodë të tillë në detaje.

Nëse e keni lexuar artikullin tim të mëparshëm "Si të bashkëngjitni shpejt faqet specifike të një dokumenti Word në një email të Outlook“, mund të prireni të kërkoni një metodë e cila mund të dërgojë drejtpërdrejt faqet specifike të një dokumenti Word si një email, në vend që të bashkëngjitni email. Tani, në vijim, do t'ju tregojmë një pjesë të kodit VBA, i cili mund ta realizojë atë me lehtësi.

Dërgoni faqet specifike të një dokumenti Word si një email të Outlook

1. Për të filluar, ju duhet të përdorni dokumentin burimor Word, faqet specifike të të cilit dëshironi të dërgoni.
2. Pastaj, në dritaren e hapur Word, duhet të shtypni butonat "Alt + F11".
3. Do të nxjerrë dritaren "Microsoft Visual Basic për aplikacione".
4. Në këtë dritare, duhet të futni një modul të ri.
5. Tjetra, duhet të aktivizoni "Biblioteka e Objekteve të Microsoft Outlook".

• Klikoni "Mjetet" dhe zgjidhni "Referenca" nga lista rënëse.
• Në kutinë e dialogut që shfaqet, lëvizni poshtë derisa të shihni "Microsoft Outlook Object Library". Aktivizojeni dhe klikoni "OK".

6. Pas kësaj, ju mund të kopjoni pjesën e kodit VBA më poshtë në këtë 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. Përfundimisht, ju mund ta ekzekutoni këtë makro menjëherë. Thjesht shtypni butonin "F5" në modulin aktual.
8. Mund të merrni një paralajmërim të Outlook si pamja e mëposhtme e ekranit. Mund të klikoni drejtpërdrejt "Lejo".
9. Në fund të fundit, do të merrni një email që përmban faqet specifike të dokumentit Word.

Kushtojini vëmendje mbrojtjes së të dhënave të Outlook

Ju mund të jeni mjaft të kënaqur me sasitë e funksioneve në Outlook. Por, ai ende përmban të meta. Për shembull, ajo është e ndjeshme ndaj gabimeve dhe korrupsionit. Në këtë rast, duhet t'i kushtoni shumë vëmendje mbrojtjes së Outlook, duke përfshirë rezervimin e skedarëve tuaj PST të Outlook në interval të rregullt. Përveç kësaj, është e kujdesshme dhe e sugjeruar për të mbajtur një të fuqishëm Riparimi i PST dobi, si DataNumen Outlook Repair. Është aq i fuqishëm sa mund të nxjerrë të dhëna maksimale nga skedari Outlook i dëmtuar rëndë.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparim mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com