เคล็ดลับ: ภาษาอื่น ๆ ได้รับการแปลโดย Google คุณสามารถเยี่ยมชม English รุ่นของลิงก์นี้
เข้าสู่ระบบ
x
or
x
x
สมัครสมาชิก
x

or

วิธีการสร้างชื่อผู้ส่งที่ต้องการโดยอัตโนมัติเมื่อตอบกลับข้อความใน Outlook?

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

สร้างชื่อผู้ส่งและคำทักทายที่รักโดยอัตโนมัติเมื่อตอบข้อความด้วยรหัส VBA

สร้างชื่อและคำทักทายที่รักโดยอัตโนมัติเมื่อตอบกลับข้อความด้วย Kutools for Outlook


สร้างชื่อและคำทักทายของผู้ส่งโดยอัตโนมัติเมื่อตอบข้อความ:

หากต้องการแทรกชื่อและคำทักทายของผู้ส่งที่รักโดยอัตโนมัติเมื่อตอบข้อความ Kutools สำหรับ Outlook's เพิ่มคำทักทายเมื่อตอบกลับ คุณสมบัติสามารถช่วยให้คุณทำงานนี้ได้อย่างรวดเร็วและง่ายดายใน Outlook

doc auto ชื่อผู้ส่งที่ต้องการ 6

Kutools สำหรับ Outlook: มีโปรแกรม Excel Add-in ที่มีประโยชน์มากกว่า 20 + และสามารถทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 60 วัน ดาวน์โหลดและทดลองใช้ฟรี!

สร้างชื่อผู้ส่งและคำทักทายที่รักโดยอัตโนมัติเมื่อตอบข้อความด้วยรหัส VBA

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

1. กดค้างไว้ ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอ็พพลิเคชัน หน้าต่าง

2. ใน Microsoft Visual Basic สำหรับแอ็พพลิเคชัน ดับเบิลคลิก ThisOutlookSession จาก Project1 (VbaProject.OTM) บานหน้าต่างเพื่อเปิดโหมดแล้วคัดลอกและวางโค้ดต่อไปนี้ลงในโมดูลที่ว่างเปล่า

รหัส VBA: แทรกชื่อผู้ส่งและคำทักทายที่ต้องการโดยอัตโนมัติเมื่อตอบกลับ:

Public WithEvents GExplorer เป็น Outlook.Explorer Public WithEvents GMailItem เป็น Outlook.MailItem Private Sub Application_Startup () ตั้ง GExplorer = Outlook.Application.ActiveExplorer End Sub ย่อยส่วนตัว GExplorer_SelectionChange () Dim xItem เป็นวัตถุในข้อผิดพลาดต่อไปตั้งค่า xItem = GExplorer.Selection.Item (1) ถ้า xItem.Class <> olMail แล้วออกจากเซ็ตย่อย GMailItem = xItem End Sub ย่อยส่วนตัว GMailItem_Reply (การตอบสนอง ByVal เป็นวัตถุยกเลิกเป็นแบบบูลีน) AutoAddGreetingToReply การตอบสนอง Sub Sub ย่อยส่วนตัว GMailItem_ReplyAll (การตอบสนอง ByVal เป็นวัตถุยกเลิกเป็นแบบบูลีน) AutoAddGreetingToReply Sub Sub AutoAddGreetingToReply (Item As Object) Dim xGreetStr เป็น String Dim xReplyMail เป็น MailItem Dim xSenderName เป็น String Dim xRecipient เป็นผู้รับเมื่อ Error ทำงานต่อไปถ้า Item.Class <> olMail จากนั้นออกจากชุดย่อย xReplyMail = รายการสำหรับแต่ละ xRecipient ใน xReplyMail. ผู้รับถ้า xSenderName = "" จากนั้น xSenderName = xRecipient.Name Else xSenderName = xSenderName & "," & xRecipient.Name End ถ้าเลือก xRecipient ถัดไปกรณีเวลากรณี 0.3 ถึง 0.5 xGreetStr = "สวัสดีตอนเช้า!" กรณี 0.5 ถึง 0.75 xGreetStr = "บ่ายดี!" กรณี Else xGreetStr = "สวัสดีตอนเย็น!" เลือกท้ายด้วย xReplyMail .Display HTMLBody = "<HTML> <Body> Dear" และ xSenderName & ", </ HTML> </ body>" & xGreetStr และ .HTMLBody End With End Sub

doc auto ชื่อผู้ส่งที่ต้องการ 1

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

doc auto ชื่อผู้ส่งที่ต้องการ 2


สร้างชื่อและคำทักทายที่รักโดยอัตโนมัติเมื่อตอบกลับข้อความด้วย Kutools for Outlook

ถ้าคุณมี Kutools สำหรับ Outlookเดียวกันกับที่ เพิ่มคำทักทายเมื่อตอบกลับ คุณลักษณะ Outlook จะแทรกชื่อผู้ส่งโดยอัตโนมัติเมื่อตอบกลับ

Kutools สำหรับ Outlook : มีโปรแกรมเสริม Outlook Add-ins ที่มีประโยชน์มากกว่า 20 และสามารถทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 60 วัน.

หลังจากการติดตั้ง Kutools สำหรับ Outlookโปรดทำดังนี้:

1. คลิก Kutools > ตัวเลือก, ดูภาพหน้าจอ:

doc auto ชื่อผู้ส่งที่ต้องการ 3

2. ใน ตัวเลือก ภายใต้ ตอบ แท็บตรวจสอบ เพิ่มคำทักทายเมื่อตอบกลับ จากนั้นป้อนคำทักทายตามที่คุณต้องการดูภาพหน้าจอ:

doc auto ชื่อผู้ส่งที่ต้องการ 4

3. จากนั้นคลิก OK เพื่อสิ้นสุดการตั้งค่านี้นับจากนี้ไปเมื่อตอบกลับข้อความคำทักทายจะถูกสร้างขึ้นโดยอัตโนมัติที่ด้านหน้าของเนื้อหาข้อความดูภาพหน้าจอ:

doc auto ชื่อผู้ส่งที่ต้องการ 5

คลิกเพื่อดาวน์โหลด Kutools for Outlook และทดลองใช้ฟรีวันนี้!



Kutools สำหรับ Outlook

มากกว่าฟังก์ชั่นขั้นสูง 100 สำหรับ Outlook 2010, 2013, 2016, 2019 และ 365

screen shot kutools สำหรับ outlook เล็ก ๆ สำหรับแบนเนอร์ 201812

คุณสมบัติอื่น ๆ | ดาวน์โหลดฟรี | เพียง $ 39.00 สำหรับหลายร้อยฟังก์ชัน

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.