วิธีคัดลอกตารางทั้งหมดอย่างรวดเร็วจากอีเมลหนึ่งไปยังอีกอีเมลหนึ่งใน Outlook

ใน Outlook เมื่อคุณต้องการแยกและคัดลอกตารางทั้งหมดจากอีเมลหนึ่งไปยังอีกอีเมลหนึ่ง การดำเนินการด้วยตนเองนั้นน่าเบื่อและยุ่งยากอย่างไม่ต้องสงสัย บทความนี้จะแบ่งปันวิธีที่ชาญฉลาดยิ่งขึ้นกับคุณ

ในบางครั้ง คุณอาจต้องการสร้างอีเมลใหม่ที่มีตารางของอีเมลอื่น หากมีเพียงตารางเดียวในอีเมล จะง่ายมาก อย่างไรก็ตาม หากมีหลายตารางในอีเมลต้นทาง การคัดลอกด้วยตนเองนั้นน่าเบื่อเกินไป ดังนั้น ต่อไปนี้ เราจะแนะนำวิธีอื่นที่มีประสิทธิภาพและชาญฉลาดกว่ามาก

คัดลอกตารางทั้งหมดจากอีเมลหนึ่งไปยังอีกอีเมลหนึ่ง

1. ขั้นแรก คุณควรเข้าใช้งาน Outlook ตามปกติ
2. จากนั้นในหน้าต่างหลักของ Outlook คุณสามารถกดแป้นลัด “Alt + F11”
3. ต่อจากนั้น ในหน้าต่างป๊อปอัพ “Microsoft Visual Basic for Applications” คุณต้องเปิดโมดูลที่ไม่ได้ใช้หรือเพียงแค่ใส่โมดูลใหม่
4. ถัดไป คุณสามารถคัดลอกโค้ด VBA ต่อไปนี้ลงในโมดูลนี้ได้

Sub CopyAllTablesFromOneEmailToAnother()
    Dim objSourceMail As Outlook.MailItem
    Dim objSourceMailDocument As Word.Document
    Dim objNewMail As Outlook.MailItem
    Dim objNewMailDocument As Word.Document
    Dim objTable As Word.Table
 
    'Get the source email
    Select Case TypeName(Application.ActiveWindow)
           Case "Explorer"
                Set objSourceMail = ActiveExplorer.Selection.Item(1)
                objSourceMail.Display
           Case "Inspector"
                Set objSourceMail = ActiveInspector.CurrentItem
    End Select
 
    Set objSourceMailDocument = objSourceMail.GetInspector.WordEditor
 
    If objSourceMailDocument.Tables.count > 0 Then
 
       'Create a new email
       Set objNewMail = Application.CreateItem(olMailItem)
 
       For Each objTable In objSourceMailDocument.Tables
           Set objNewMailDocument = objNewMail.GetInspector.WordEditor
 
           'Copy all tables from source email to the new email
           With objNewMailDocument.Range
                .Collapse wdCollapseEnd
                .FormattedText = objTable.Range.FormattedText
                .Collapse wdCollapseEnd
                .Text = vbCrLf
           End With
      Next
 
      'Close the source email
      objSourceMail.Close olSave
      'Display the new email
      objNewMail.Display
    End If
End Sub

5. หลังจากนั้น คุณสามารถออกจากหน้าต่างตัวแก้ไข VBA ปัจจุบันได้
6. หลังจากนั้นคุณควรเปลี่ยนการตั้งค่าแมโคร Outlook เพื่อเปิดใช้งานแมโครทั้งหมด
7. นอกจากนี้ คุณควรเพิ่มมาโครนี้ใน Quick Access Toolbar ซึ่งสามารถทำได้ใน "ตัวเลือก Outlook"
8. ในที่สุดคุณสามารถลอง:

• ในตอนเริ่มต้น ให้เปิดหรือเลือกอีเมลที่จะคัดลอกตาราง
• จากนั้น กดปุ่มมาโครที่เพิ่มใหม่ใน Quick Access Toolbar
• หลังจากที่แมโครทำงานเสร็จสิ้น อีเมลใหม่จะปรากฏขึ้น ซึ่งมีการวางตารางของอีเมลต้นทาง

ปกป้องไฟล์ Outlook จากการทุจริต

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

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

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