วิธีการเลือกลายเซ็นที่แตกต่างกันโดยอัตโนมัติสำหรับผู้รับที่แตกต่างกันในอีเมล Outlook ของคุณ

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

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

เลือกลายเซ็นที่แตกต่างกันโดยอัตโนมัติสำหรับผู้รับที่แตกต่างกัน

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

• ขั้นแรกไปที่เมนู“ ไฟล์” แล้วเลือก“ ตัวเลือก”
• ในหน้าต่าง“ ตัวเลือก Outlook” ให้เปลี่ยนเป็นแท็บ“ จดหมาย”
• จากนั้นค้นหาและคลิกที่ปุ่ม "ลายเซ็น"
• ถัดไปในกล่องโต้ตอบป๊อปอัปตั้งค่า“ (ไม่มี)” ในทั้ง“ ข้อความใหม่” และ“ ตอบกลับ / ส่งต่อ”
• หลังจากนั้นคลิกชุด“ ตกลง” เพื่อบันทึกการเปลี่ยนแปลง

3. หลังจากนั้นคุณสามารถกลับไปที่หน้าต่างหลักของ Outlook แล้วกดปุ่ม“ Alt + F11”
4. จากนั้นในหน้าต่าง“ Microsoft Visual Basic for Applications” ให้ค้นหาและเปิดโครงการ“ ThisOutlookSession”
5. จากนั้นคัดลอกและวางรหัส VBA ต่อไปนี้ลงในโครงการนี้

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim objRecipient As Outlook.recipient
    Dim strRecipientAddress As String
    Dim strSignatureFile As String
    Dim objFileSystem As Object
    Dim objTextStream As Object
    Dim strSignature As String
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objRecipients = objMail.Recipients
    End If
 
    'Select different signature files based on recipients
    'You can change the conditions as per you actual needs
    If objRecipients.Count = 1 Then
       Set objRecipient = objRecipients.Item(1)
       strRecipientAddress = objRecipient.Address
       If strRecipientAddress = "mandy@datanumen.com" Then
          strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\Test John Smith.htm"
       ElseIf strRecipientAddress = "anne@datanumen.com" Or strRecipientAddress = "tony@datanumen.com" Then
          strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\Johnny.htm"
       ElseIf strRecipientAddress = "abby@datanumen.com" Then
          strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\New John Smith.htm"
       End If
    Else
       strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\John Smith.htm"
    End If
 
    'Read the specific signature file
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objTextStream = objFileSystem.OpenTextFile(strSignatureFile)
    strSignature = objTextStream.ReadAll
 
    'Insert the signature to this email
    objMail.HTMLBody = objMail.HTMLBody & "<HTML><BODY><br>" & strSignature & "</br></HTML></BODY>"
End Sub

6. หลังจากนั้นคุณควรลงนามในรหัสนี้
7. เปลี่ยนการตั้งค่าแมโคร Outlook ของคุณในภายหลังเพื่ออนุญาตให้ใช้แมโครที่มีการเซ็นชื่อ
8. นับจากนี้เป็นต้นไปทุกครั้งที่คุณคลิกปุ่ม "ส่ง" เพื่อส่งอีเมล Outlook จะระบุผู้รับและใส่ลายเซ็นที่เกี่ยวข้องที่ส่วนท้ายของเนื้อหาอีเมลโดยอัตโนมัติ

มองหามาโครที่เป็นอันตรายที่ซ่อนอยู่ในอีเมลขาเข้า

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

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

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