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

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

ในการส่งเอกสาร Word ทั้งหมดเป็นไฟล์แนบอีเมลในแอปพลิเคชัน MS Word คุณสามารถไปที่เมนู "ไฟล์" และเลื่อนไปที่แท็บ "บันทึกและส่ง" ซึ่งคุณจะพบปุ่ม "ส่งเป็นไฟล์แนบ" แต่ในบางครั้งสิ่งที่คุณต้องการส่งอาจเป็นเพียงหน้าเอกสารบางหน้าเท่านั้น ในสถานการณ์เช่นนี้คุณสามารถใช้วิธีการที่แนะนำในต่อไปนี้เพื่อทำให้สำเร็จ

แนบหน้าเฉพาะของเอกสาร Word กับอีเมล

1. ก่อนอื่นคุณควรเปิดเอกสาร Word ต้นทางซึ่งมีหน้าที่เฉพาะเจาะจงที่คุณต้องการส่งทางอีเมล
2. จากนั้นหลังจากเข้าสู่หน้าต่าง MS Word คุณต้องกดปุ่ม "Alt + F11"
3. จากนั้นคุณจะสามารถเข้าถึงโปรแกรมแก้ไข VBA ใน MS Word ได้
4. หลังจากนั้น คุณต้องเปิดใช้งาน “Microsoft Outlook Object Library” โดยไปที่ “เครื่องมือ” > “การอ้างอิง” เพื่อดำเนินการดังกล่าว
5. จากนั้นคุณควรคัดลอกโค้ด VBA ต่อไปนี้ลงในโมดูลที่ไม่ได้ใช้งาน

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. สุดท้ายคุณสามารถเรียกใช้แมโครนี้ เพียงกดปุ่ม F5 หรือแตะที่ไอคอน“ Run” ในแถบเครื่องมือ
7. หลังจากแมโครเสร็จสิ้นอีเมล Outlook ใหม่จะแสดงขึ้นซึ่งแนบมาพร้อมกับข้อความที่ตัดตอนมาของเอกสาร Word ต้นทางเช่นภาพหน้าจอต่อไปนี้:

แยกข้อมูลสูงสุดจากไฟล์ Outlook ที่เสียหาย

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

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

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