Note: The other languages of the website are Google-translated. Back to English

كيفية إضافة توقيعات مختلفة إلى حسابات بريد إلكتروني متعددة عند الرد أو إعادة التوجيه في 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 "name1@example.com" '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 "name2@example.com" '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) يجب عليك استبدال ملف name1@example.com و name2@example.com في الصفين 39 و 48 لعناوين بريدك الإلكتروني الفعلية.
  • 2) يجب أن تحل محل سيغنيتشر في الصفوف 41 و 43 و 50 و 52 لتوقيعك الفعلي وفقًا للتعليقات.
  • 3) باستخدام رمز VBA أعلاه ، يمكننا إضافة توقيعات إلى حسابي بريد إلكتروني. إذا كان لديك المزيد من الحسابات ، فاستبدل الصف 57 من الكود بمزيد من الحالات:
  • الحالة "name@example.com"
    إذا كان 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؟


Kutools for Outlook - يجلب 100 ميزة متقدمة إلى Outlook ، ويجعل العمل أسهل كثيرًا!

  • CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
  • رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة
  • رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال تمكنك من أداء أذكى وأسرع وأفضل في Outlook.
لقطة kutools outlook kutools tab 1180x121
لقطة kutools outlook kutools plus tab 1180x121
 
فرز التعليقات حسب
التعليقات (0)
لا يوجد تقييم. كن أول من يقيم!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL