كيفية إدراج نص معين عند المؤشر أثناء كتابة رسالة في Outlook؟ 

لنفترض أن لديك بعض السلاسل النصية المحددة التي تُستخدم بشكل متكرر عند كتابة رسالة البريد الإلكتروني، لذلك قد ترغب في إدراج النص تلقائيًا في الموقع الحالي للمؤشر في نص الرسالة دون الحاجة إلى كتابته يدويًا مرارًا وتكرارًا. في هذه المقالة، سأتحدث عن طريقة سهلة لحل هذه المهمة بسرعة.

إدراج نص محدد أو التاريخ الحالي عند المؤشر أثناء كتابة الرسالة باستخدام كود VBA

إدراج نص محدد أو التاريخ الحالي عند المؤشر أثناء كتابة الرسالة باستخدام كود VBA

يمكن أن يساعدك الكود التالي من VBA على إدراج سلسلة نصية محددة أو تاريخ حالي عند موقع المؤشر، يرجى القيام بما يلي:

1. اضغط باستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. بعد ذلك، انقر فوق إدراج > وحدة، ثم انسخ والصق الكود أدناه في الوحدة الفارغة المفتوحة:

كود VBA: إدراج نص محدد أو التاريخ الحالي عند المؤشر

Option Explicit
Public Sub InsertInfoToSelection()
    Dim xDoc As Word.Document
    Dim xSel As Word.Selection
    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set xDoc = Application.ActiveExplorer.Selection(1).GetInspector.WordEditor
        Case "Inspector"
            Set xDoc = Application.ActiveInspector.WordEditor
    End Select
    Set xSel = xDoc.Application.Selection
    xSel.InsertBefore Format("ExtendOffice")
    Set xDoc = Nothing
    Set xSel = Nothing
End Sub

ملاحظة: في الكود أعلاه، ExtendOffice هو النص المحدد الذي تريد إدراجه، إذا كنت بحاجة لإدراج التاريخ الحالي بدلاً من السلسلة النصية، يرجى تغيير النص في هذا البرنامج النصي xSel.InsertBefore Format("ExtendOffice") إلى xSel.InsertBefore Format(Now, "DD/MM/YYYY").

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

4. في مربع الحوار خيارات Outlook، يرجى القيام بالعمليات التالية:

(1.) حدد ماكرو من قائمة اختيار الأمر من القائمة المنسدلة؛

(2.) انقر فوق اسم الماكرو الذي قمت بإدراجه؛

(3.) بعد ذلك، انقر فوق زر إضافة لإضافة هذا الماكرو إلى قائمة شريط أدوات الوصول السريع المخصص.

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

إدراج نص محدد في أي موقع عند كتابة الرسالة: مع ميزة النص التلقائي في Kutools for Outlook، يمكنك إنشاء نص تلقائي، ثم إدراجه في أي مكان عند كتابة الرسالة حسب الحاجة. 👉 يتوفر الآن إصدار مجاني من أدوات Kutools لـ Outlook، والذي يحتوي على 70+ ميزات مجانية مدى الحياة. قم بتنزيل الإصدار المجاني الآن.

---

أفضل أدوات تعزيز الإنتاجية في المكتب

خبر عاجل: Kutools لـ Outlook يطلق إصدارًا مجانيًا!

جرب الإصدار الجديد كليًا من Kutools لـ Outlook مع أكثر من100 ميزة مذهلة! انقر لتنزيل الآن!

🤖 Kutools AI : يستخدم تكنولوجيا الذكاء الاصطناعي المتقدمة للتعامل مع البريد الإلكتروني بسهولة، بما في ذلك الرد، التلخيص، التحسين، التوسيع، الترجمة، وإنشاء رسائل البريد الإلكتروني.

📧 أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لـ POP وIMAP) / جدولة إرسال البريد الإلكتروني / نسخة تلقائية/مخفية بناءً على القاعدة عند إرسال البريد / التحويل التلقائي (قاعدة متقدمة) / إضافة التحية تلقائيًا / تقسيم تلقائي لرسائل البريد الإلكتروني متعددة المستلمين إلى رسائل فردية ...

📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل التصيد بناءً على الموضوعات أو أخرى / حذف البريد الإلكتروني المكرر / البحث المتقدم / تنظيم المجلدات ...

📁 إعدادات المرفقات الاحترافية: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي ...

🌟 جمالية الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / تذكيرك عند وصول رسائل البريد الهامة / تصغير Outlook بدلًا من الإغلاق ...

👍 ميزات بنقرة واحدة: الرد على الجميع مع المرفقات / البريد الإلكتروني المضاد للتصيد / 🕘 عرض المنطقة الزمنية للمرسل ...

👩🏼‍🤝‍👩🏻 جهات الاتصال والتقويم: إضافة دفعة لجهات الاتصال من البريد الإلكتروني المحدد / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد ...

استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية وأكثر من40 لغة أخرى!

افتح Kutools لـ Outlook فورًا بنقرة واحدة. لا تنتظر، قم بالتنزيل الآن وارتقِ بإنتاجيتك!

جدول أحادي الأبعاد لميزات Kutools لـ Outlook تنزيل الآن انتقل للشراء

🚀 تنزيل بنقرة واحدة — احصل على جميع إضافات Office

موصى به بقوة: Kutools لـ Office (خمسة في واحد)

بنقرة واحدة يمكنك تنزيل خمسة برامج تثبيت مرة واحدة — Kutools لـ Excel وOutlook وWord وPowerPoint وOffice Tab Pro. انقر لتنزيل الآن!

• ✅ سهولة بنقرة واحدة: قم بتنزيل جميع حزم التثبيت الخمسة دفعة واحدة.
• 🚀 جاهز لأي مهمة في Office: ثبّت الإضافات التي تحتاجها وقتما تشاء.
• 🧰 يتضمن: Kutools لـ Excel / Kutools لـ Outlook / Kutools لـ Word / Office Tab Pro / Kutools لـ PowerPoint

حول الحزمة ⬇ تنزيل الحزمة 💳 شراء الحزمة