انتقل إلى المحتوى الرئيسي

كيفية إضافة توقيعات مختلفة إلى حسابات بريد إلكتروني متعددة عند الرد أو إعادة التوجيه في 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 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations