ไปยังเนื้อหาหลัก

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

ผู้เขียน : ซิลูเวีย แก้ไขล่าสุด: 2022-09-30

คุณอาจมีหัวเรื่องอีเมลที่กำหนดไว้ล่วงหน้าที่แตกต่างกันซึ่งจำเป็นต้องแจกจ่ายไปยังผู้รับที่แตกต่างกันใน 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 เปิดตัว เวอร์ชันฟรี!

สัมผัสประสบการณ์ Kutools ใหม่สำหรับ Outlook เวอร์ชันฟรีพร้อมฟีเจอร์ที่น่าทึ่งกว่า 70 รายการ ให้คุณใช้งานได้ตลอดไป! คลิกดาวน์โหลดเลย!

🤖 Kutools AI : ส่งอีเมลระดับมืออาชีพทันทีด้วยเวทมนตร์ AI คลิกเพียงครั้งเดียวเพื่อตอบกลับอย่างชาญฉลาด น้ำเสียงที่สมบูรณ์แบบ การเรียนรู้หลายภาษา เปลี่ยนรูปแบบการส่งอีเมลอย่างง่ายดาย! ...

📧 การทำงานอัตโนมัติของอีเมล: ตอบกลับอัตโนมัติ (ใช้ได้กับ POP และ IMAP)  /  กำหนดการส่งอีเมล  /  Auto CC/BCC ตามกฎเมื่อส่งอีเมล  /  ส่งต่ออัตโนมัติ (กฎขั้นสูง)   /  เพิ่มคำทักทายอัตโนมัติ   /  แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...

📨 การจัดการอีเมล์: เรียกคืนอีเมล  /  บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ  /  ลบอีเมลที่ซ้ำกัน  /  การค้นหาขั้นสูง  /  รวมโฟลเดอร์ ...

📁 ไฟล์แนบโปรบันทึกแบทช์  /  การแยกแบทช์  /  การบีบอัดแบบแบตช์  /  บันทึกอัตโนมัติ   /  ถอดอัตโนมัติ  /  บีบอัดอัตโนมัติ ...

🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น   /  เตือนคุณเมื่อมีอีเมลสำคัญมาถึง  /  ลดขนาด Outlook แทนที่จะปิด ...

???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา  /   อีเมลต่อต้านฟิชชิ่ง  /  🕘 แสดงโซนเวลาของผู้ส่ง ...

👩🏼‍🤝‍👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก  /  แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม  /  ลบการแจ้งเตือนวันเกิด ...

ปลดล็อค Kutools for Outlook ทันทีด้วยการคลิกเพียงครั้งเดียว—ฟรีอย่างถาวร- อย่ารอช้า ดาวน์โหลดตอนนี้และเพิ่มประสิทธิภาพของคุณ!

kutools สำหรับคุณสมบัติ Outlook1 kutools สำหรับคุณสมบัติ Outlook2
 

 

 

Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Would it be possible to create an external source for:
.AddItem "Subject 1"
.AddItem "Subject 2"
.AddItem "Subject 3"
.AddItem "Subject 4"
.AddItem "Subject 5"

So the list can be shared and edited for multiple computers?
This comment was minimized by the moderator on the site
Hi,

I have made the procedure but when i clic on the macro button, they don't have any action ?
Could you help me ?
This comment was minimized by the moderator on the site
Hi,

Sorry for the inconvenience. Did you follow the instructions provided in the post exactly? Can you tell me which version of Excel you are using?
This comment was minimized by the moderator on the site
I would like to creat an E-mail draft with such a drop down list for the subject.
Is it possible to attache this function to an mail template or does it have to be installed in the software of each user?
This comment was minimized by the moderator on the site
Hi Hana,

The code can't be attached to an email template, users who need to use this dropdown list will need to follow the steps in the tutorial to add the code to their Outlook.
This comment was minimized by the moderator on the site
Hi,

This is great. Is it possible to do the same for Outlook Calendar invites...meetings and appointments?
This comment was minimized by the moderator on the site
Hi James Marr,

This method does not support Outlook Calendar at the moment. Sorry for the inconvenience.
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations