Note: The other languages of the website are Google-translated. Back to English

วิธีสร้างรายการแบบหล่นลงสำหรับวิชาใน Outlook?

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


สร้างรายการดรอปดาวน์สำหรับหัวเรื่องใน Outlook ด้วยรหัส VBA

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

1. เปิดโปรแกรม Outlook ของคุณกดปุ่ม อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > แบบฟอร์มผู้ใช้.

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

4. คลิกขวาที่ปุ่มคำสั่งแล้วเลือก อสังหาริมทรัพย์ ในเมนูคลิกขวา

5 ใน คุณสมบัติ – CommandButton1 บานหน้าต่างเปลี่ยน คำบรรยายภาพ ฟิลด์ไปที่ OK. การดำเนินการนี้จะเปลี่ยนข้อความที่แสดงบนปุ่มคำสั่ง

6. ดับเบิลคลิกที่พื้นที่ว่างใน UserForm เพื่อเปิดที่สอดคล้องกัน แบบฟอร์มผู้ใช้ (รหัส) หน้าต่าง จากนั้นแทนที่รหัสที่มีอยู่ด้วยรหัส VBA ต่อไปนี้

รหัส VBA 1: UserForm พร้อมรายการแบบหล่นลงรวมถึงหัวเรื่องอีเมลที่ตั้งไว้ล่วงหน้าหลายรายการ

Private Sub UserForm_Initialize()
'Updated by Extendoffice 20220927
  With ComboBox1
    .AddItem "Subject 1"
    .AddItem "Subject 2"
    .AddItem "Subject 3"
    .AddItem "Subject 4"
    .AddItem "Subject 5"
    .AddItem "No change"
  End With
End Sub

Private Sub CommandButton1_Click()
  GCbbIndex = ComboBox1.ListIndex
  GSelSubject = ComboBox1.Value
  Unload Me
End Sub

หมายเหตุ: ในรหัส the เรื่องที่ 1, 2, 3, 4 และ 5 เป็นหัวเรื่องอีเมลที่กำหนดไว้ล่วงหน้าที่คุณต้องการใช้ในอีเมลของคุณ “ไม่มีการเปลี่ยนแปลง” หมายถึงไม่เปลี่ยนแปลงอะไรในหัวเรื่องอีเมลที่มีอยู่ คุณสามารถเปลี่ยนหัวเรื่องอีเมลที่กำหนดไว้ล่วงหน้าในโค้ด VBA ได้ตามความต้องการของคุณ

7 ดับเบิลคลิก Project1 > วัตถุ Microsoft Outlook > นี้OutlookSession. จากนั้นคัดลอกโค้ด VBA ต่อไปนี้ลงในหน้าต่าง ThisOutlookSession (Code)

รหัส VBA 2 ที่ใช้ในหน้าต่าง ThisOutlookSession

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220927
Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GInlineMail = Item
End Sub

8. ไปที่คลิก สิ่งที่ใส่เข้าไป > โมดูล ใน ของ Visual Basic บรรณาธิการ จากนั้นคัดลอกและวางโค้ด VBA ต่อไปนี้ลงในไฟล์ โมดูล (รหัส) หน้าต่าง

รหัส VBA 3 ที่ใช้ในหน้าต่างโมดูล

Public GCbbIndex As Long
'Updated by Extendoffice 20220927
Public GSelSubject As String
Public GInlineMail As MailItem
Public Sub ChangeSubject()
  Dim xItem As MailItem
  Dim xMail As Outlook.MailItem
  On Error Resume Next
  Select Case TypeName(Application.ActiveWindow)
    Case "Explorer"
      Set xMail = GInlineMail
      Debug.Print "Explorer"
    Case "Inspector"
      Set xMail = Application.ActiveInspector.CurrentItem
      Debug.Print "Inspector"
  End Select
  UserForm1.Show
  If (GCbbIndex <> -1) And (GSelSubject <> "no change") Then
    xMail.Subject = GSelSubject
  End If
End Sub

9. บันทึกรหัสแล้วกด อื่น ๆ + Q ปุ่มเพื่อปิดไฟล์ โปรแกรมแก้ไข Visual Basic หน้าต่างและกลับไปที่แอปพลิเคชัน Outlook

10 คลิกที่ อีเมลใหม่ ใต้ปุ่ม หน้าแรก แท็บเพื่อสร้างอีเมล

11. ในหน้าต่างข้อความใหม่ คลิก ปรับแต่งแถบเครื่องมือด่วน > คำสั่งเพิ่มเติม.

12 ใน ตัวเลือกของ outlook คุณต้องกำหนดค่าดังต่อไปนี้

12.1) เลือก แมโคร ใน เลือกคำสั่งจาก รายการแบบหล่นลง
12.2) เลือก โครงการ1.เปลี่ยนเรื่อง ในกล่องรายการคำสั่ง
12.3) คลิกปุ่ม เพิ่ม ปุ่ม;
12.4) คลิกปุ่ม OK ปุ่ม. ดูภาพหน้าจอ:

13. จากนั้นคุณจะเห็นว่าปุ่ม ถูกเพิ่มลงในริบบอนของหน้าต่างข้อความแล้ว

14. ตอนนี้ คุณต้องเริ่ม Outlook ใหม่

15. เมื่อเขียนข้อความอีเมล หากคุณต้องการแทรกหัวเรื่องที่ตั้งไว้ คุณเพียงแค่คลิกที่ปุ่มที่เพิ่มใหม่บนริบบิ้นเพื่อแสดงแบบฟอร์มผู้ใช้ เลือกหัวเรื่องจากเมนูดรอปดาวน์ แล้วคลิก OK ปุ่มเพื่อใส่ลงในหัวเรื่อง

หมายเหตุ:

1) คุณสามารถเปลี่ยนหัวเรื่องที่มีอยู่โดยเลือกหัวเรื่องใดก็ได้ในรายการแบบเลื่อนลง
2) วิธีนี้ใช้ได้ผลดีเมื่อตอบกลับหรือส่งต่ออีเมลในหน้าต่างใหม่
3) หากคุณมักจะตอบกลับอีเมลในบรรทัดจากบานหน้าต่างการอ่าน แทนที่จะเปิดหน้าต่างแยกต่างหาก คุณสามารถเปิดแบบฟอร์มผู้ใช้ได้ดังนี้
3.1) คลิก ผู้พัฒนา > แมโคร > โครงการ1.เปลี่ยนเรื่อง. ดูภาพหน้าจอ:

3.2) เมื่อแบบฟอร์มผู้ใช้ปรากฏขึ้น ให้เลือกหัวข้อที่กำหนดไว้ล่วงหน้าจากรายการแบบเลื่อนลงแล้วคลิก OK ปุ่มหัวเรื่องเดิมจะเปลี่ยนทันที

4) หากคุณเลือก ไม่มีการเปลี่ยนแปลง ในเมนูแบบเลื่อนลง หัวเรื่องดั้งเดิมจะยังคงอยู่โดยไม่มีการเปลี่ยนแปลงใดๆ

Kutools สำหรับ Outlook - นำคุณลักษณะขั้นสูง 100 รายการมาสู่ Outlook และทำให้การทำงานง่ายขึ้นมาก

  • CC อัตโนมัติ / BCC ตามกฎเมื่อส่งอีเมล ส่งต่ออัตโนมัติ อีเมลหลายฉบับโดยกำหนดเอง ตอบอัตโนมัติ ไม่มีเซิร์ฟเวอร์แลกเปลี่ยนและคุณสมบัติอัตโนมัติอื่น ๆ ...
  • คำเตือน BCC - แสดงข้อความเมื่อคุณพยายามตอบกลับทั้งหมด หากที่อยู่อีเมลของคุณอยู่ในรายการ BCC; เตือนเมื่อไม่มีไฟล์แนบและคุณสมบัติการเตือนอื่น ๆ ...
  • ตอบกลับ (ทั้งหมด) พร้อมไฟล์แนบทั้งหมดในการสนทนาทางไปรษณีย์; ตอบกลับอีเมลจำนวนมาก ในไม่กี่วินาที เพิ่มคำทักทายอัตโนมัติ เมื่อตอบกลับ; เพิ่มวันที่ในหัวเรื่อง ...
  • เครื่องมือแนบ: จัดการไฟล์แนบทั้งหมดในอีเมลทั้งหมด ถอดอัตโนมัติ, บีบอัดทั้งหมด, เปลี่ยนชื่อทั้งหมด, บันทึกทั้งหมด ... รายงานด่วน, นับอีเมลที่เลือก...
  • อีเมลขยะที่มีประสิทธิภาพ ตามธรรมเนียม; ลบอีเมลและผู้ติดต่อที่ซ้ำกัน... ช่วยให้คุณทำงานได้อย่างชาญฉลาดขึ้นเร็วขึ้นและดีขึ้นใน Outlook
shot kutools outlook แท็บ kutools 1180x121
shot kutools Outlook kutools plus แท็บ 1180x121
 
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (0)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL