نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية تغيير التوقيع تلقائيًا استنادًا إلى المستلمين في Outlook؟

بشكل افتراضي ، لدى Outlook وظيفة مضمنة للمستخدمين لتغيير التوقيع تلقائيًا أثناء إرسال رسائل البريد الإلكتروني من خلال حسابات بريد إلكتروني مختلفة. ولكن بعد ذلك ، سأعرض لك طريقة تغيير التوقيع تلقائيًا استنادًا إلى مستلمين مختلفين في الحقل "إلى" في Outlook.

تغيير التوقيع على أساس المستلمين تلقائيا مع رمز VBA


الرد دائمًا على البريد الإلكتروني باستخدام حساب البريد الإلكتروني الافتراضي في Outlook:

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

كوتولس ل أوتلوك: مع أكثر من شنومكس مفيد توقعات الإضافية الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تحميل وتجريبية مجانية الآن!


تغيير التوقيع على أساس المستلمين تلقائيا مع رمز VBA

يرجى اتباع الخطوات أدناه لتطبيق توقيعات مختلفة على المستلمين المناظرين أثناء إرسال رسائل البريد الإلكتروني في Outlook.

1. أولاً ، تحتاج إلى تعطيل ميزة التوقيع التلقائي المرفقة في Outlook. من فضلك اضغط قم بتقديم > الخيارات لفتح خيارات التوقعات نافذة.

2. في ال خيارات التوقعات نافذة، حدد بريد في الجزء الأيمن، ثم انقر فوق التوقيعات زر في إنشاء رسائل الجزء. انظر لقطة الشاشة:

3. في ال التوقيعات والقرطاسية مربع الحوار، انتقل إلى اختر التوقيع الافتراضي القسم تحت توقيع البريد الإلكتروني ، اختر حساب بريد إلكتروني في حساب البريد الإلكتروني القائمة المنسدلة ، ثم اختر (لا يوجد) من رسائل جديدة . رد / إلى الأمام القوائم المنسدلة. كرر هذه الخطوات حتى يتم تعيين جميع حسابات البريد الإلكتروني (لا يوجد). ثم انقر فوق OK .

ملاحظة:: يمكنك أيضًا إنشاء توقيعاتك المطلوبة في هذا التوقيعات والقرطاسية صندوق المحادثة.

4. انقر فوق OK الزر عندما تقوم بإرجاع خيارات التوقعات نافذة.

5. اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

6. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة، انقر نقرا مزدوجا ThisOutlookSession في الجزء الأيمن لفتح إطار "التعليمات البرمجية" والنسخة أدناه رمز VBA في الإطار. انظر لقطة للشاشة:

رمز VBA: تغيير التوقيع تلقائيًا استنادًا إلى المستلمين في Outlook

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by ExtendOffice 2019/04/29
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 xTextStream As Scripting.TextStream
Dim xSignature 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
    xRcpAddress = xRecipient.Address
    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
Set xTextStream = xFSO.OpenTextFile(xSignatureFile)
xSignature = xTextStream.ReadAll
xMailItem.HTMLBody = xMailItem.HTMLBody & "" & xSignature & ""
End Sub

الملاحظات:

  • 1). في كود VBA ، يرجى استبدال "عنوان البريد الإلكتروني 1 / 2 / 3 / 4"مع عناوين بريد إلكتروني معينة للمستلمين.
  • 2). "aaa.htm""bbb.htm"و"ccc.htm"هي التوقيع المحدد الذي سترسله إلى المستلمين المناظرين.
  • 3). في هذه الحالة ، التوقيع "AAA" سترسل إلى "عنوان البريد الإلكتروني 1"، التوقيع "BBB" سترسل إلى "عنوان البريد الإلكتروني 2"و"عنوان البريد الإلكتروني 3"و "عنوان البريد الإلكتروني 4"ستتلقى البريد الإلكتروني المضمّن بالتوقيع"مجلس التعاون الجمركي". يرجى تغييرها بناء على احتياجاتك.
  • 4). إذا كان هناك عدة مستلمين في رسالة بريد إلكتروني ، فإن الرمز لا يعمل إلا لأول واحد. وسيتلقى جميع المستلمين البريد الإلكتروني بنفس التوقيع المحدد لهذا المستلم.

7. ثم اضغط الأدوات > المراجع للذهاب إلى مراجع المشروع صندوق المحادثة. في مربع الحوار ، يرجى التحقق مايكروسوفت البرمجة وقت التشغيل الخيار، ثم انقر فوق OK زر، انظر الصورة:

8. اضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

من الآن فصاعدًا ، بعد إنشاء رسالة إلكترونية والضغط على الزر إرسال ، سيتم إدراج التوقيع المقابل تلقائيًا في نهاية نص البريد الإلكتروني استنادًا إلى عنوان البريد الإلكتروني للمستلم في الحقل "إلى".

إذا كنت تريد إدراج الطابع الزمني كتوقيع في نص البريد الإلكتروني أثناء إنشاء / إعادة إرسال / إعادة توجيه البريد الإلكتروني الجديد في Outlook ، فيمكنك تمكين إضافة توقيع التاريخ عند إنشاء بريد إلكتروني جديد ، ورد وإعادة توجيه الخيار كوتولس ل أوتلوك لتحقيق ذلك. انظر لقطة للشاشة:

كوتولس ل أوتلوك: مع أكثر من شنومكس مفيد توقعات الإضافية الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تحميل وتجريبية مجانية الآن!


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

  • السيارات سيسي / بسك عن طريق القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل البريد الإلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم تبادل ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان البريد الخاص بك في قائمة BCC; تذكير عند فقد المرفقات، وتذكير المزيد من الميزات ...
  • الرد (الكل) مع جميع المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية السيارات عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، أوتو ديتاش, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عدد الرسائل المختارة...
  • رسائل البريد الإلكتروني العشوائي قوية حسب الطلب إزالة الرسائل المكررة وجهات الاتصال... يمكنك من القيام بذكاء وأسرع وأفضل في Outlook.
kutools لقطة توقعات kutools علامة التبويب 1180x121
kutools لقطة توقعات kutools بالإضافة إلى علامة التبويب 1180x121
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Gregoris Tsintaris · 4 months ago
    Hello! Very nice script, but there is a problem when sending to excahnge addresses, the xRcpAddress returns the X400 name not the smtp address, this makes it impossible to select based on domain. Is there a workaround this?


    Just to improve I have changed the case statement to if using the inStr function to discern mails in bulk

    If InStr(xRcpAddress, "@example") Then
    xSignatureFile = xSignaturePath & "aaa.htm"
    End If
  • To post as a guest, your comment is unpublished.
    Devansh · 7 months ago
    How would this behave if there are multiple recipients?
    • To post as a guest, your comment is unpublished.
      crystal · 6 months ago
      Hi Devansh,
      If there are multiple recipients in an email, the code only works for the first one. And all recipients will receive the email with the same signature specified to that person.
      If you want to incude different signatures when there are multiple recipients, the email should be sent separately to different recipients. And that will need another code to achieve.