2 วิธีด่วนในการสร้างอีเมลใหม่จากเทมเพลตด้วย Outlook VBA

เนื่องจากผู้ใช้จำนวนมากคิดว่าการค้นหาและใช้เทมเพลตอีเมล Outlook เป็นเรื่องยุ่งยาก เราจะแสดง 2 วิธีง่ายๆ ในการสร้างอีเมลใหม่โดยใช้เทมเพลตที่มี Outlook VBA ในบทความนี้

โดยส่วนใหญ่แล้ว ในการใช้เทมเพลตอีเมลของ Outlook คุณจะต้องค้นหาเทมเพลตนั้นก่อน โดยคลิก “รายการใหม่” > “รายการเพิ่มเติม” > “เลือกแบบฟอร์ม” จากนั้น ในกล่องโต้ตอบ “เลือกแบบฟอร์ม” ให้ค้นหาและเปิดเทมเพลตที่ต้องการใน “เทมเพลตผู้ใช้ในระบบไฟล์” ดังภาพหน้าจอต่อไปนี้

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

วิธีที่ 1: สร้างเทมเพลตอีเมลใหม่โดยตรงโดย Outlook VBA

1. ในตอนแรก ไปที่แท็บ "นักพัฒนา" ในหน้าต่างหลักของ Outlook
2. จากนั้นคลิกที่ปุ่ม “Visual Basic” ซึ่งจะเปิดหน้าต่างใหม่ขึ้นมา
3. ถัดไป คัดลอกและวางรหัส VBA ต่อไปนี้ในโมดูล

Sub CreateNewMail()
    Dim obApp As Object
    Dim NewMail As MailItem
 
    Set obApp = Outlook.Application
    Set NewMail = obApp.CreateItem(olMailItem)
 
    'You can change the concrete info as per your needs
    With NewMail
         .Subject = Date & " Test Email"
         .To = "example@mail.com"
         .Body = "Dear Johnny," & vbCrLf & vbCrLf & "I'm glad to write this email to you .......... " & vbCrLf & vbCrLf & "This is just a test email template with Outlook VBA" & vbCrLf & vbCrLf & vbCrLf & "Yours Truly," & vbCrLf & vbCrLf & "John Smith"
         .Attachments.Add ("C:\Attachments\Test File.docx")
         .Importance = olImportanceHigh
         .Display
    End With
 
    Set obApp = Nothing
    Set NewMail = Nothing
End Sub

4. หลังจากนั้น ออกจากหน้าต่าง “Visual Basic” ทำตามขั้นตอนด้านล่างเพื่อเพิ่มแมโครนี้ใน Quick Access Toolbar:

• ในตอนแรก ให้คลิกลูกศรลงใน Quick Access Toolbar แล้วเลือก “คำสั่งเพิ่มเติม”
• จากนั้นในหน้าต่างป๊อปอัปใหม่ ให้ตั้งค่า "เลือกคำสั่งจาก" เป็น "มาโคร"
• หลังจากนั้นทอยให้ถูกต้อง
• ถัดไป คลิกปุ่ม “เพิ่ม”
• จากนั้นคุณสามารถเปลี่ยนรูปลักษณ์ได้ คลิกปุ่ม “แก้ไข” ในกล่องโต้ตอบใหม่ ให้ตั้งชื่อใหม่และระบุไอคอนสำหรับกล่องโต้ตอบนั้น
• สุดท้ายคลิกสอง "ตกลง"

5. สุดท้าย คุณสามารถคลิกที่ไอคอนแมโครในแถบเครื่องมือด่วน ทันที หน้าต่างข้อความใหม่จะปรากฏขึ้น ดังภาพต่อไปนี้

วิธีที่ 2: สร้างอีเมลใหม่จากเทมเพลตที่มีอยู่โดย Outlook VBA

1. ประการแรก คุณควรมีเทมเพลตอีเมลสำเร็จรูปอยู่ในมือ สร้างอีเมลใหม่ในรูปแบบที่ต้องการ สเตชันเนอรี และบันทึกเป็นเทมเพลต Outlook สำหรับขั้นตอนโดยละเอียด โปรดดูบทความ “วิธีปรับปรุงประสิทธิภาพการทำงานของคุณผ่านเทมเพลต Outlook". นอกจากนี้ โปรดจดเส้นทางโฟลเดอร์บันทึกของไฟล์เทมเพลตนี้
2. จากนั้นเข้าไปที่หน้าต่าง “Visual Basic” และเปิดโมดูลใหม่ เช่น เคล็ดลับที่ 1
3. จากนั้น คุณควรคัดลอกและวางภาพหน้าจอต่อไปนี้:

Sub CreateEmailfromTemplate()
    Dim obApp As Application
    Dim NewMail As Outlook.MailItem
 
    Set obApp = Outlook.Application
    'Change the template file folder path according to your case
    Set NewMail = obApp.CreateItemFromTemplate("C:\Users\Test\Documents\Test Mail.oft")
    NewMail.Display
 
    Set obApp = Nothing
    Set NewMail = Nothing
End Sub

4. หลังจากนั้น ให้ทำตามขั้นตอนที่ 5 ในเคล็ดลับที่ 1 ด้านบนเพื่อเพิ่มแมโครใหม่ไปยัง Quick Access Toolbar
5. ในที่สุดคุณสามารถลองได้ คุณจะได้รับอีเมลใหม่โดยใช้เทมเพลต ดังภาพด้านล่าง:

การเปรียบเทียบ 2 วิธี

รับมือกับข้อผิดพลาดของ Outlook เป็นครั้งคราว

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

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

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