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

Author: Xiaoyang Last Modified: 2025-05-30

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

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

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

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

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

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

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

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

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

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

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

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

مساعد البريد الإلكتروني الذكي في Outlook: ردود أذكى، تواصل أوضح (سحر بنقرة واحدة!) مجانًا

قم بتبسيط مهام Outlook اليومية باستخدام مساعد البريد الإلكتروني الذكي من أدوات Kutools لـ Outlook. هذا الأداة القوية تتعلم من رسائل البريد الإلكتروني السابقة لتقدم ردودًا ذكية ودقيقة، تحسين محتوى البريد الإلكتروني، وتساعدك على صياغة وتحسين الرسائل بسهولة.

هذه الميزة تدعم:

ردود ذكية: احصل على ردود مصممة من محادثاتك السابقة - مخصصة، دقيقة وجاهزة للإرسال.
تحسين المحتوى: قم بتحسين نصوص البريد الإلكتروني تلقائيًا لتحقيق الوضوح والتأثير.
الكتابة السهلة: فقط قدم الكلمات المفتاحية، ودع الذكاء الاصطناعي يتولى الباقي، مع أساليب كتابة متعددة.
التوسعات الذكية: قم بتوسيع أفكارك باقتراحات تعتمد على السياق.
الملخصات: احصل على ملخصات مختصرة للرسائل الطويلة فورًا.
التواصل العالمي: قم بترجمة رسائل البريد الإلكتروني إلى أي لغة بسهولة.

هذه الميزة تدعم:

ردود البريد الإلكتروني الذكية
المحتوى المُحسّن
المسودات المستندة إلى الكلمات المفتاحية
التوسع الذكي للمحتوى
تلخيص البريد الإلكتروني
الترجمة متعددة اللغات

الأفضل من كل هذا، هذه الميزة مجانية تمامًا للأبد! لا تنتظر—حمّل مساعد البريد الإلكتروني الذكي الآن واستمتع

إدراج التوقيع تلقائيًا في طلبات اجتماعات 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. وبعد ذلك احفظ وأغلق نافذة الكود، منذ ذلك الحين، عند إرسال دعوة اجتماع خارجية، سيتم إدراج التوقيع المحدد تلقائيًا. يمكنك الانتقال إلى مجلد العناصر المرسلة للتحقق من النتيجة: