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

วิธีแทรกลายเซ็นโดยอัตโนมัติในการเรียกประชุม Outlook?

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

แทรกลายเซ็นในการเรียกประชุม Outlook โดยอัตโนมัติด้วยแบบฟอร์มที่กำหนดเอง

แทรกลายเซ็นในการเรียกประชุม Outlook โดยอัตโนมัติด้วยรหัส VBA


แทรกลายเซ็นในการเรียกประชุม Outlook โดยอัตโนมัติด้วยแบบฟอร์มที่กำหนดเอง

ใน Outlook คุณสามารถสร้างแบบฟอร์มที่กำหนดเองเพื่อแทรกลายเซ็นในการเรียกประชุมโดยอัตโนมัติโปรดดำเนินการดังนี้:

1. โปรดไปที่ไฟล์ ปฏิทิน หน้าต่างแล้วคลิก หน้าแรก > การประชุมใหม่ เพื่อเปิดไฟล์ ในการประชุม หน้าต่าง

2. จากนั้นคลิก สิ่งที่ใส่เข้าไป > ลายเซ็นและเลือกลายเซ็นที่คุณต้องการแทรกดูภาพหน้าจอ:

doc auto insert sig ในการประชุม 1

3. หลังจากใส่ลายเซ็นแล้วให้คลิก ผู้พัฒนา > ออกแบบแบบฟอร์มนี้ ในใหม่ ในการประชุม หน้าต่างดูภาพหน้าจอ:

doc auto insert sig ในการประชุม 2

4. ในหน้าจอใหม่คลิก ผู้พัฒนา > สาธารณะ > เผยแพร่ฟอร์มเป็นดูภาพหน้าจอ:

doc auto insert sig ในการประชุม 3

5. ในการโผล่ออกมา เผยแพร่ฟอร์มเป็น ให้พิมพ์ชื่อลงในไฟล์ แสดง กล่องข้อความชื่อแล้วคลิก สาธารณะ ปุ่มดูภาพหน้าจอ:

doc auto insert sig ในการประชุม 4

6. จากนั้นปิดหน้าต่างการประชุมปัจจุบันโดยไม่บันทึก

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

doc auto insert sig ในการประชุม 5


แทรกลายเซ็นในการเรียกประชุม Outlook โดยอัตโนมัติด้วยรหัส VBA

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

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

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

รหัส VBA: แทรกลายเซ็นในการเรียกประชุมโดยอัตโนมัติ:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xMeetingItem As Outlook.MeetingItem
Dim xFSO As Scripting.FileSystemObject
Dim xSignStream, xWriteStream, xReadStream As Scripting.TextStream
Dim xSignFld, xSignSubFld As Scripting.Folder
Dim xSignFile As Scripting.File
Dim xSignText, xSignPath As String
Dim xMailRTFText, xMeetingRTFText, xAllRTFText As String
Dim xByte() As Byte
Dim xPos As Integer
Dim xFilePath, xFldPath, xFldName As String
Dim xMailItem As MailItem
On Error Resume Next
If Item.Class = olMeetingRequest Then
    Set xMeetingItem = Item
    Set xFSO = CreateObject("scripting.FileSystemObject")
    xSignPath = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\"
    Set xSignFld = xFSO.GetFolder(xSignPath)
    If xSignFld.SubFolders.Count <> 0 Then
        For Each xSignSubFld In xSignFld.SubFolders
            xFldName = xSignSubFld.Name
            xFldPath = xSignSubFld.Path
        Next
    End If
    For Each xSignFile In xSignFld.Files
        If xFSO.GetExtensionName(xSignFile.Path) = "htm" Then
            Set xSignStream = xFSO.OpenTextFile(xSignFile.Path)
            xSignText = xSignStream.ReadAll
            If InStr(xSignText, xFldName) <> 0 Then
                xSignText = Replace(xSignText, xFldName, xFldPath)
            End If
            Set xMailItem = Outlook.Application.CreateItem(olMailItem)
            xMailItem.HTMLBody = xSignText
            xMailRTFText = StrConv(xMailItem.RTFBody, vbUnicode)
            xMeetingRTFText = StrConv(xMeetingItem.RTFBody, vbUnicode)
            xPos = InStrRev(xMeetingRTFText, "{\*\htmltag104 </div>}\htmlrtf }\htmlrtf0")
            xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)
            xFilePath = xFilePath & "\MeetingText.txt"
            If xFSO.FileExists(xFilePath) Then
                xFSO.DeleteFile xFilePath
            End If
            Set xWriteStream = xFSO.OpenTextFile(xFilePath, 8, True)
            xMeetingRTFText = Mid(xMeetingRTFText, 1, xPos - 1) & "{\*\htmltag72 </p>}{\*\htmltag0 \par }{\*\htmltag0 \par }" _
            & "{\*\htmltag64 <p class=MsoNormal>}\htmlrtf {\htmlrtf0 {\*\htmltag148 <span lang=EN-US style='color:#00B050'>}\htmlrtf {\htmlrtf0" _
            & "{\*\htmltag244 <o:p>}{\*\htmltag84 &nbsp;}\htmlrtf \'a0\htmlrtf0{\*\htmltag252 </o:p>}" _
            & "{\*\htmltag156 </span>}\htmlrtf }\htmlrtf0 \htmlrtf\par}\htmlrtf0" _
            & vbCrLf & xMailRTFText & vbCrLf & Mid(xMeetingRTFText, xPos, Len(xMeetingRTFText) - xPos + 1)
            xWriteStream.WriteLine xMeetingRTFText
            Set xReadStream = xFSO.OpenTextFile(xFilePath)
            xAllRTFText = xReadStream.ReadAll
            PackBytes xByte, xAllRTFText
            xMeetingItem.RTFBody = xByte
            xMeetingItem.Save
            xMailItem.Close olDiscard
        End If
    Next
End If
End Sub
Private Sub PackBytes(ByteArray() As Byte, ByVal PostData As String)
    ByteArray() = StrConv(PostData, vbFromUnicode)
End Sub

doc auto insert sig ในการประชุม 6

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

doc auto insert sig ในการประชุม 7


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

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

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

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

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

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

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

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

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

 

 

Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Dear Supporter,

Regarding to VBA "hack", in Outlook365 does not insert the default signature at the end of a neither a new meeting nor appointment. What should I change in the code to get it work?

Thank you in advance.

Best regards: Laszlo
This comment was minimized by the moderator on the site
What lines do I need to change to get this to work on my own profile? I've added the string to my signature location.
Automatically Insert Signature To Outlook Meeting Requests With VBA Code
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations