كيفية إضافة توقيعات مختلفة إلى حسابات بريد إلكتروني متعددة عند الرد أو إعادة التوجيه في Outlook؟
من البرنامج التعليمي: توقيعات البريد الإلكتروني في Outlook، يجب أن تعرف كيفية إنشاء توقيع في Outlook. ومع ذلك ، بعد إنشاء توقيع جديد ، سيتعين عليك إضافة التوقيع الذي تم إنشاؤه يدويًا إذا كنت تريد إضافته عند الرد على رسالة أو إعادة توجيهها عن طريق تحديد سيغنيتشر > التوقيع الذي تم إنشاؤه في نافذة الرسالة.
بالطبع يمكنك جعل Outlook يضيف توقيعًا تلقائيًا عندما ترد على رسالة جديدة أو تعيد توجيهها بالنقر سيغنيتشر > التوقيعات، واختيار توقيع لحساب بريد إلكتروني معين كما هو موضح أدناه.
ومع ذلك ، ماذا لو كان لديك العديد من حسابات البريد الإلكتروني وتريد إضافة توقيعات مختلفة لحساباتك المتعددة على دفعات؟ في هذا البرنامج التعليمي ، سأقدم طريقة VBA لمساعدتك في إنجاز هذه المهمة بسهولة.
أضف توقيعات مختلفة إلى حسابات بريد إلكتروني متعددة عند الرد أو إعادة التوجيه في Outlook
1. في برنامج Outlook الخاص بك ، اضغط على قديم + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
2. في نافذة Microsoft Visual Basic for Applications ، انقر نقرًا مزدوجًا فوق هذه الجلسة في جزء المشروع ، وانسخ رمز فبا أدناه في نافذة ThisOutlookSession (الرمز). انظر لقطة الشاشة:
كود فبا: أضف توقيعات مختلفة إلى حسابات بريد إلكتروني متعددة عند إنشاء بريد إلكتروني جديد في Outlook - ThisOutlookSession
Public WithEvents GInspectors As Inspectors
Public WithEvents GExplorer As Explorer
Private Sub Application_Startup()
Set GInspectors = Application.Inspectors
Set GExplorer = Application.ActiveExplorer
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
‘Update by ExtendOffice
Dim xMail As MailItem
On Error Resume Next
EndTimer
If Item.Class = olMail Then
Set xMail = Item
Set GInspector = Nothing
Set GInspector = xMail.GetInspector
StartTimer
End If
End Sub
Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
On Error Resume Next
EndTimer
Set GInspector = Nothing
Set GInspector = Inspector
StartTimer
End Sub
3. في نافذة ميكروسوفت فيسوال باسيك للتطبيقات ، انقر فوق إدراج > وحدة. ثم انسخ رمز فبا التالي إلى نافذة الوحدة النمطية.
كود فبا: أضف توقيعات مختلفة إلى حسابات بريد إلكتروني متعددة عند الرد أو إعادة التوجيه في Outlook - الوحدة النمطية
Public Declare PtrSafe Function SetTimer Lib "user32" (ByVal HWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
Public Declare PtrSafe Function KillTimer Lib "user32" (ByVal HWnd As Long, ByVal nIDEvent As Long) As Long
Public TimerID As Long
Public GInspector As Inspector
Sub StartTimer()
On Error Resume Next
TimerID = SetTimer(0&, 0&, 1000&, AddressOf TimerProc)
End Sub
Sub EndTimer()
On Error Resume Next
KillTimer 0&, TimerID
End Sub
Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, ByVal nIDEvent As Long, ByVal dwTimer As Long)
On Error Resume Next
Call SetSignatureToAccount
EndTimer
End Sub
Sub SetSignatureToAccount()
‘Update by ExtendOffice
Dim xMail As MailItem
Dim xSignatureFile, xSignaturePath As String
Dim xSubject As String
Dim xDoc As Document
Dim xAccount As Account
Dim xIsNew As Boolean
Dim xInspector As Inspector
Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
xSubject = GInspector.Caption
Set xDoc = GInspector.WordEditor
xIsNew = False
Set xMail = GInspector.CurrentItem
Select Case xMail.Parent.Parent
Case "" 'Replace the email address in double quotes
If VBA.InStr(xSubject, "RE: ") Then
xSignatureFile = xSignaturePath & "Signature1.htm" 'Replace "Signature1" with your actual signature name that you will set as the signature when you reply to a message.
ElseIf VBA.InStr(xSubject, "FW: ") Then
xSignatureFile = xSignaturePath & "Signature2.htm" 'Replace "Signature2" with your actual signature name that you will set as the signature when you forward a message.
Else
xIsNew = True
Exit Sub
End If
Case "" 'Replace the email address in double quotes
If VBA.InStr(xSubject, "RE: ") Then
xSignatureFile = xSignaturePath & "Signature3.htm" 'Replace "Signature3" with your actual signature name that you will set as the signature when you reply to a message.
ElseIf VBA.InStr(xSubject, "FW: ") Then
xSignatureFile = xSignaturePath & "Signature4.htm" 'Replace "Signature4" with your actual signature name that you will set as the signature when you forward a message.
Else
xIsNew = True
Exit Sub
End If
'Add more Cases for more email accounts
End Select
If xIsNew = True Then
With xDoc.Application.Selection
.WholeStory
.EndKey
.InsertParagraphAfter
.MoveDown Unit:=wdLine, Count:=1
.InsertFile FileName:=xSignatureFile, Link:=False, Attachment:=False
End With
Else
With xDoc.Application.Selection
.MoveRight Unit:=wdCharacter, Count:=1
.HomeKey Emptyparam, Emptyparam
.InsertFile FileName:=xSignatureFile, Link:=False, Attachment:=False
End With
End If
Set xDoc = Nothing
Set GInspector = Nothing
Set xMail = Nothing
End Sub
- 1) يجب عليك استبدال ملف و في الصفين 39 و 48 لعناوين بريدك الإلكتروني الفعلية.
- 2) يجب أن تحل محل سيغنيتشر في الصفوف 41 و 43 و 50 و 52 لتوقيعك الفعلي وفقًا للتعليقات.
- 3) باستخدام رمز VBA أعلاه ، يمكننا إضافة توقيعات إلى حسابي بريد إلكتروني. إذا كان لديك المزيد من الحسابات ، فاستبدل الصف 57 من الكود بمزيد من الحالات:
إذا كان VBA.InStr (xSubject، "RE:") = 1 ثم
xSignatureFile = xSignaturePath & "Signature1.htm"
ElseIf VBA.InStr (xSubject، "FW:") = 1 ثم
xSignatureFile = xSignaturePath & "Signature2.htm"
آخر
xIsNew = صحيح
خروج الفرعية
إنهاء حالة
4. في نافذة ميكروسوفت فيسوال باسيك للتطبيقات ، انقر فوق الأدوات > مراجع حسابات، حدد المربع بجوار مكتبة كائنات Microsoft Word 16.0، ثم انقر OK.
5. أعد تشغيل Outlook ، واحفظ رموز VBA.
6. الآن ، عند الرد على رسالة أو إعادة توجيهها باستخدام حساب بريد إلكتروني قمت بإعداد توقيع له ، فسيتم إضافة التوقيع المقابل تلقائيًا.
ملحوظة: إذا وجدت أن هناك توقيعين تمت إضافتهما عند الرد على رسالة أو إعادة توجيهها باستخدام حساب بريد إلكتروني ، فيرجى النقر فوق سيغنيتشر > التوقيعات في نافذة الرسالة. في قسم اختيار التوقيع الافتراضي ، حدد حساب البريد الإلكتروني الذي يحتوي على توقيعين ، واختر (لا يوجد) من قائمة الردود / إعادة التوجيه المنسدلة.
مقالات ذات صلة
كيفية استيراد أو إدراج تواقيع HTML في Outlook؟
على سبيل المثال ، قمت بتنزيل بعض تواقيع HTML من مواقع الويب ، وتريد استيرادها إلى Outlook الخاص بك. أي طرق سهلة؟ ستوجهك هذه المقالة إلى استيراد تواقيع HTML أو إدراجها في Outlook خطوة بخطوة.
كيفية إدراج لون الخلفية في توقيع Outlook؟
من السهل إضافة لون الخلفية أو إزالته في رسالة بريد إلكتروني في Outlook. ولكن ، كيف يمكنك إدراج أو إزالة لون الخلفية في توقيع Outlook؟ ستساعدك الحلول البديلة أدناه على حلها:
كيفية إضافة توقيعات مختلفة إلى حسابات بريد إلكتروني متعددة عند إنشاء بريد إلكتروني جديد في Outlook؟
إذا كنت تريد أن يضيف Outlook التوقيع تلقائيًا عند إنشاء رسالة جديدة ، فستحتاج إلى تكوين التوقيع الافتراضي بالنقر فوق التوقيع> التوقيعات ، وتحديد توقيع لحساب بريد إلكتروني معين كما هو موضح أدناه. ومع ذلك ، ماذا لو كان لديك العديد من حسابات البريد الإلكتروني وتريد إضافة توقيعات مختلفة لحساباتك المتعددة على دفعات؟ في هذا البرنامج التعليمي ، سأقدم طريقة VBA لمساعدتك في إنجاز هذه المهمة بسهولة.
كيفية تعيين توقيعات مختلفة للردود وإعادة التوجيه في Outlook؟
عادةً ، يمكنك تعيين توقيعات مختلفة لحسابات مختلفة في Outlook الخاص بك ، ولكنك حاولت في أي وقت تطبيق توقيعات مختلفة للردود وإعادة التوجيه. هذا يعني أنه عند الرد على رسالة بريد إلكتروني ، يتم إدراج التوقيع 1 ، وعند إعادة توجيه بريد إلكتروني يتم تطبيق التوقيع 2. كيف يمكنك حل هذه المهمة في Outlook؟
أفضل أدوات إنتاجية المكتب
كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك
🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...
📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني / إعادة التوجيه التلقائي (القواعد المتقدمة) / إضافة تحية تلقائية / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية
📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة / حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين / حذف رسائل البريد الإلكتروني المكررة / المزيد من خيارات البحث / توحيد المجلدات
📁 المرفقات برو: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / فصل تلقائي / ضغط تلقائي
؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة / تصغير Outlook بدلاً من الإغلاق
؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة / رسائل البريد الإلكتروني لمكافحة التصيد / 🕘إظهار المنطقة الزمنية للمرسل
👩🏼🤝👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة اتصال إلى مجموعات فردية / إزالة تذكير عيد ميلاد
على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.