كيفية تغيير التوقيع تلقائيًا بناءً على المستلمين في Outlook؟
بشكل افتراضي ، يحتوي Outlook على وظيفة مضمنة للمستخدمين لتغيير التوقيع تلقائيًا أثناء إرسال رسائل البريد الإلكتروني من خلال حسابات بريد إلكتروني مختلفة. ولكن بعد ذلك ، سأوضح لك هنا طريقة تغيير التوقيع تلقائيًا بناءً على مستلمين مختلفين في الحقل "إلى" في Outlook.
قم بتغيير التوقيع بناءً على المستلمين تلقائيًا باستخدام رمز VBA
قم بتغيير التوقيع بناءً على المستلمين تلقائيًا باستخدام رمز VBA
يرجى اتباع الخطوات التالية لتطبيق توقيعات مختلفة على المستلمين المطابقين أثناء إرسال رسائل البريد الإلكتروني في Outlook.
1. أولاً ، تحتاج إلى تعطيل ميزة التوقيع التلقائي المرفق في Outlook. من فضلك اضغط قم بتقديم > مزيد من الخيارات لفتح خيارات التوقعات نافذة.
2. في ال خيارات التوقعات نافذة، حدد بريد في الجزء الأيمن ، ثم انقر فوق التوقيعات زر في تأليف الرسائل الجزء. انظر لقطة الشاشة:
3. في ال التوقيعات والقرطاسية مربع الحوار ، انتقل إلى اختر التوقيع الافتراضي القسم تحت توقيع البريد الإلكتروني علامة التبويب ، حدد حساب بريد إلكتروني في حساب البريد الإلكتروني القائمة المنسدلة ، ثم اختر (لا يوجد) من رسائل جديدة و الردود / إعادة التوجيه القوائم المنسدلة. كرر هذه الخطوات حتى يتم تعيين جميع حسابات البريد الإلكتروني على (لا يوجد). ثم انقر فوق OK .
ملاحظات: يمكنك أيضًا إنشاء التوقيعات المطلوبة في هذا التوقيعات والقرطاسية صندوق المحادثة.
4. انقر فوق OK زر عندما يعود خيارات التوقعات نافذة.
5. اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
6. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انقر مرتين هذه الجلسة في الجزء الأيمن لفتح نافذة التعليمات البرمجية ، والنسخة الموجودة أسفل رمز VBA في النافذة. انظر لقطة الشاشة:
رمز VBA: قم بتغيير التوقيع تلقائيًا استنادًا إلى المستلمين في Outlook
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by ExtendOffice 2022/08/01
Dim xMailItem As MailItem
Dim xRecipients As Recipients
Dim xRecipient As Recipient
Dim xRcpAddress As String
Dim xSignatureFile, xSignaturePath As String
Dim xFSO As Scripting.FileSystemObject
Dim xDoc As Document
Dim xFindStr As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xRecipients = xMailItem.Recipients
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
For Each xRecipient In xRecipients
If xRecipient.AddressEntry.AddressEntryUserType = olExchangeUserAddressEntry Then
xRcpAddress = xRecipient.AddressEntry.GetExchangeUser.PrimarySmtpAddress
Else
xRcpAddress = xRecipient.AddressEntry.Address
End If
Select Case xRcpAddress
Case "Email Address 1"
xSignatureFile = xSignaturePath & "aaa.htm"
Exit For
Case "Email Address 2", "Email Address 3"
xSignatureFile = xSignaturePath & "bbb.htm"
Exit For
Case "Email Address 4"
xSignatureFile = xSignaturePath & "ccc.htm"
Exit For
End Select
Next
VBA.DoEvents
Set xDoc = xMailItem.GetInspector.WordEditor
xFindStr = "From: " & xMailItem.Recipients.Item(1).Name & " <" & xRcpAddress & ">"
If VBA.InStr(1, xMailItem.Body, xFindStr) <> 0 Then
xDoc.Application.Selection.HomeKey Unit:=wdStory, Extend:=wdMove
With xDoc.Application.Selection.Find
.ClearFormatting
.Text = xFindStr
.Execute Forward:=True
End With
With xDoc.Application.Selection
.MoveLeft wdCharacter, 2
.InsertParagraphAfter
.MoveDown Unit:=wdLine, Count:=1
End With
Else
With xDoc.Application.Selection
.EndKey Unit:=wdStory, Extend:=wdMove
.InsertParagraphAfter
.MoveDown Unit:=wdLine, Count:=1
End With
End If
xDoc.Application.Selection.InsertFile FileName:=xSignatureFile, Link:=False, Attachment:=False
End Sub
ملاحظة:
- 1). في كود VBA ، يرجى استبدال "عنوان البريد الإلكتروني 1/2/3/4"مع عناوين بريد إلكتروني معينة للمستلمين.
- 2). "aaa.htm""bbb.htm"و"ccc.htm"هي التوقيعات المحددة التي سترسلها إلى المستلمين المناظرين.
- 3). في هذه الحالة ، التوقيع "AAA" سترسل إلى "عنوان البريد الإلكتروني 1"، التوقيع "BBB" سترسل إلى "عنوان البريد الإلكتروني 2"و"عنوان البريد الإلكتروني 3"و "عنوان البريد الإلكتروني 4"سيتلقى البريد الإلكتروني المضمن مع التوقيع"مجلس التعاون الجمركي". يرجى تغييرها بناءً على احتياجاتك.
- 4). إذا كان هناك عدة مستلمين في رسالة بريد إلكتروني ، فإن الكود يأخذ المستلم الأول فقط في الاعتبار. في هذه الحالة ، سيتلقى المستلمون الآخرون رسائل البريد الإلكتروني بنفس توقيع المستلم الأول.
7. ثم اضغط الأدوات > مراجع حسابات للذهاب إلى مشروع المراجع صندوق المحادثة. في مربع الحوار ، يرجى التحقق من كل من مكتبة كائنات Microsoft Word و وقت تشغيل البرمجة لـ Microsoft الخيارات ، ثم انقر فوق OK زر ، انظر لقطة الشاشة:
8. اضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
من الآن فصاعدًا ، بعد إنشاء رسالة بريد إلكتروني والضغط على زر إرسال ، سيتم إدراج التوقيع المقابل تلقائيًا في نهاية نص البريد الإلكتروني بناءً على عنوان البريد الإلكتروني للمستلم في الحقل "إلى".
إدراج التاريخ الحالي تلقائيًا كتوقيع عند إرسال بريد إلكتروني في Outlook:
إذا كنت تريد إدراج طابع زمني كتوقيع في نص البريد الإلكتروني أثناء إنشاء / الرد / إعادة توجيه بريد إلكتروني جديد في Outlook الخاص بك ، فيمكنك تمكين أضف توقيع التاريخ عند إنشاء بريد إلكتروني جديد والرد عليه وإعادة توجيهه الخيار كوتولس لتوقعات لتحقيق ذلك. انظر لقطة الشاشة:
قم بتنزيله وتجربته الآن (تجربة مجانية لمدة 60 يومًا)
أفضل أدوات إنتاجية المكتب
كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك
🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...
📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني / إعادة التوجيه التلقائي (القواعد المتقدمة) / إضافة تحية تلقائية / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية
📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة / حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين / حذف رسائل البريد الإلكتروني المكررة / المزيد من خيارات البحث / توحيد المجلدات
📁 المرفقات برو: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / فصل تلقائي / ضغط تلقائي
؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة / تصغير Outlook بدلاً من الإغلاق
؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة / رسائل البريد الإلكتروني لمكافحة التصيد / 🕘إظهار المنطقة الزمنية للمرسل
👩🏼🤝👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة اتصال إلى مجموعات فردية / إزالة تذكير عيد ميلاد
على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.