كيف يمكن إدراج التوقيع تلقائيًا في طلبات اجتماعات Outlook؟

في Outlook، يمكنك إدراج التوقيع تلقائيًا في رسائل البريد الإلكتروني بسهولة، لكن لا توجد طريقة مباشرة لإدراجه تلقائيًا في دعوات الاجتماعات. في هذه المقالة، سأعرض بعض الطرق المفيدة التي تساعدك على إدراج التوقيع تلقائيًا في طلبات اجتماعات Outlook.

إدراج التوقيع تلقائيًا في طلبات اجتماعات Outlook باستخدام نموذج مخصص

إدراج التوقيع تلقائيًا في طلبات اجتماعات Outlook باستخدام كود VBA

---

إدراج التوقيع تلقائيًا في طلبات اجتماعات Outlook باستخدام نموذج مخصص

في Outlook، يمكنك إنشاء نموذج مخصص لإدراج التوقيع في طلبات الاجتماعات تلقائيًا، يُرجى اتباع الخطوات التالية:

1. انتقل إلى نافذةالتقويم، ثم انقر علىالصفحة الرئيسية > اجتماعلفتح نافذةاجتماع جديد.

2.بعد ذلك، انقر علىإدراج>التوقيع، واختر التوقيع الذي تريد إدراجه، كما في لقطة الشاشة التالية:

3. بعد إدراج التوقيع، انقر باستمرار علىالمطور > تصميم هذا النموذجفي نافذةالاجتماع الجديد، كما في لقطة الشاشة التالية:

4. في الشاشة الجديدة، انقر علىالمطور > نشر > نشر النموذج باسم، كما في لقطة الشاشة التالية:

5.في مربع الحوار المنبثقنشر النموذج باسم، اكتب اسمًا في مربع نصاسم العرض، ثم انقر على زرنشر، كما في لقطة الشاشة التالية:

6. بعد ذلك، أغلق نافذة الاجتماع الحالية دون حفظها.

7. من الآن فصاعدًا، عندما تريد إنشاء اجتماع مُرفقًا بتوقيعك، انقر علىالصفحة الرئيسية > عناصر جديدة > نماذج مخصصة، ثم اختر النموذج الذي أنشأته للتو. وسيتم إدراج التوقيع تلقائيًا في نص الاجتماع، كما في لقطة الشاشة التالية:

---

إدراج التوقيع تلقائيًا في طلبات اجتماعات Outlook باستخدام كود VBA

يمكن أن يساعدك كود VBA التالي أيضًا في إدراج توقيع تلقائيًا في طلبات الاجتماعات، يُرجى اتباع الخطوات التالية:

1. اضغط مع الاستمرار على مفاتيحALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.

2. في نافذةMicrosoft Visual Basic for Applications، انقر مرتين علىThisOutlookSession من جزءProject1 (VbaProject.OTM) لفتح الوحدة النمطية، ثم انسخ والصق الكود التالي في الوحدة النمطية الفارغة.

كود 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

3. بعد ذلك، احفظ وأغلق نافذة الكود. ومنذ ذلك الحين، عند إرسال دعوة اجتماع صادرة، سيتم إدراج التوقيع المحدد تلقائيًا. يمكنك الانتقال إلى مجلدالعناصر المرسلةللتحقق من النتيجة: