วิธีส่งหน้าเฉพาะของเอกสาร Word เป็นอีเมล Outlook อย่างรวดเร็ว

โซลูชัน Outlook September 29, 2025

ผู้ใช้บางคนต้องการโซลูชันที่ช่วยให้สามารถส่งหน้าเฉพาะของเอกสาร Word เป็นอีเมล Outlook ได้ในเวลารวดเร็ว ในบทความนี้เราจะแนะนำวิธีการดังกล่าวโดยละเอียด

หากคุณได้อ่านบทความก่อนหน้านี้ของฉัน “วิธีแนบหน้าเฉพาะของเอกสาร Word เข้ากับอีเมล Outlook อย่างรวดเร็ว“ คุณอาจมักจะขอวิธีการที่สามารถส่งหน้าเฉพาะเจาะจงของเอกสาร Word เป็นอีเมลได้โดยตรง แทนที่จะเป็นไฟล์แนบในอีเมล ต่อไปนี้ เราจะแสดงรหัส VBA ให้คุณเห็น ซึ่งสามารถรับรู้ได้อย่างง่ายดาย

ส่งหน้าเฉพาะของเอกสาร Word เป็นอีเมล Outlook

ในการเริ่มต้น คุณต้องเข้าถึงเอกสาร Word ต้นทางที่คุณต้องการส่งหน้าเฉพาะ
จากนั้นในหน้าต่าง Word ที่เปิดอยู่ คุณควรกดปุ่ม “Alt + F11”
มันจะเปิดหน้าต่าง “Microsoft Visual Basic for Applications” ขึ้นมา
ในหน้าต่างนี้ คุณควรแทรกโมดูลใหม่
ขั้นตอนต่อไป คุณต้องเปิดใช้งาน “Microsoft Outlook Object Library”

คลิก “เครื่องมือ” และเลือก “อ้างอิง” จากรายการแบบเลื่อนลง
ในกล่องโต้ตอบป๊อปอัพ ให้เลื่อนลงมาจนกว่าจะเห็น “Microsoft Outlook Object Library” เปิดใช้งานแล้วคลิก “ตกลง”

หลังจากนั้น คุณสามารถคัดลอกโค้ด VBA ด้านล่างลงในโมดูลนี้ได้

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

ในที่สุด คุณสามารถเรียกใช้แมโครนี้ได้พร้อมกัน เพียงกดปุ่มคีย์ “F5” ในโมดูลปัจจุบัน
คุณอาจได้รับคำเตือนของ Outlook เช่นภาพหน้าจอต่อไปนี้ คุณสามารถคลิก "อนุญาต" ได้โดยตรง
ในที่สุด คุณจะได้รับอีเมลซึ่งมีหน้าเฉพาะของเอกสาร Word

ให้ความสำคัญกับการปกป้องข้อมูลของ Outlook

คุณอาจพึงพอใจกับจำนวนฟังก์ชันใน Outlook มากพอสมควร แต่ก็ยังมีข้อบกพร่อง ตัวอย่างเช่น อาจเกิดข้อผิดพลาดและเสียหายได้ง่าย ในกรณีนี้ คุณต้องให้ความสำคัญกับการป้องกัน Outlook เป็นอย่างมาก รวมถึงการสำรองไฟล์ Outlook PST ของคุณในช่วงเวลาปกติ นอกจากนี้ยังสุขุมและแนะนำให้รักษาความแข็งแกร่ง ซ่อม PST ยูทิลิตี้เช่น DataNumen Outlook Repair. มีประสิทธิภาพมากจนสามารถดึงข้อมูลสูงสุดจากไฟล์ Outlook ที่เสียหายร้ายแรงได้

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ ซ่อม mdf และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.