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

วิธีตั้งค่าลายเซ็นที่แตกต่างกันสำหรับการตอบกลับและการส่งต่อใน Outlook?

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

ตั้งค่าลายเซ็นที่แตกต่างกันสำหรับการตอบกลับและการส่งต่อด้วยรหัส VBA


ตั้งค่าลายเซ็นที่แตกต่างกันสำหรับการตอบกลับและการส่งต่อด้วยรหัส VBA

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

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

2. จากนั้นคลิก สิ่งที่ใส่เข้าไป > โมดูลคัดลอกและวางโค้ดด้านล่างลงในโมดูลว่างที่เปิดดูภาพหน้าจอ:

รหัส VBA: ตั้งค่าลายเซ็นที่แตกต่างกันสำหรับการตอบกลับและการส่งต่อ:

Public WithEvents GExplorer As Outlook.Explorer
Public WithEvents GMail As Outlook.MailItem
Public GFSO As Scripting.FileSystemObject
Public GTextStream As Scripting.TextStream
Public GText As String
Private Sub Application_Startup()
    Set GExplorer = Outlook.Application.ActiveExplorer
    Set GFSO = New Scripting.FileSystemObject
End Sub
Private Sub GExplorer_SelectionChange()
    Dim xItem As Object
    On Error Resume Next
    Set xItem = GExplorer.Selection.Item(1)
    If xItem.Class <> olMail Then Exit Sub
    Set GMail = xItem
End Sub
Private Sub GMail_Reply(ByVal Response As Object, Cancel As Boolean)
    InsertSignature Response, "Signature1.htm"   'change this signature name for replies
End Sub
Private Sub GMail_Forward(ByVal Forward As Object, Cancel As Boolean)
    InsertSignature Forward, " Signature2.htm"    'change this signature name for forwards
End Sub
Private Sub InsertSignature(Item As Object, SignName As String)
    Dim xSignatureFile As String
    Dim xMailItem As Outlook.MailItem
    xSignatureFile = CreateObject("WScript.Shell").SpecialFolders(5)
    xSignatureFile = xSignatureFile & "\Microsoft\Signatures\" & SignName
    Set GTextStream = GFSO.OpenTextFile(xSignatureFile)
    GText = ""
    GText = GTextStream.ReadAll
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    With xMailItem
        .Display
        .HTMLBody = .HTMLBody & "<br><br>" & GText
    End With
End Sub

หมายเหตุ: ในโค้ดด้านบน ลายเซ็น 1 และ ลายเซ็น 2 คือชื่อลายเซ็นสองชื่อที่คุณต้องการใช้ในการตอบกลับและส่งต่อ กรุณาเปลี่ยนชื่อตามความต้องการของคุณ

doc sig forwar ตอบกลับ 1

3. ยังคงอยู่ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก เครื่องมือ > อ้างอิง ไป เอกสารอ้างอิง - โครงการ 1 กล่องโต้ตอบและตรวจสอบ รันไทม์การเขียนสคริปต์ของ Microsoft ตัวเลือกจาก อ้างอิงที่มีอยู่ กล่องรายการดูภาพหน้าจอ:

doc sig forwar ตอบกลับ 2

4. จากนั้นคลิก OK เพื่อปิดกล่องโต้ตอบจากนี้ไปเมื่อคุณตอบกลับอีเมล Signature1 จะถูกแทรกพร้อมกันดูภาพหน้าจอ:

doc sig forwar ตอบกลับ 3

และเมื่อคุณส่งต่อข้อความ Signature2 จะถูกแทรกตามภาพหน้าจอต่อไปนี้:

doc sig forwar ตอบกลับ 4


สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

Kutools สำหรับ Outlook - คุณสมบัติอันทรงพลังมากกว่า 100 รายการเพื่อเติมพลังให้กับ Outlook ของคุณ

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

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

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

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

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

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

เกิน คุณสมบัติ 100 รอการสำรวจของคุณ! คลิกที่นี่เพื่อค้นพบเพิ่มเติม

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations