كيفية إرسال بريد إلكتروني جديد دائمًا من حساب معين في Outlook؟

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

إرسال بريد إلكتروني جديد دائمًا من حساب محدد باستخدام كود VBA

إرسال بريد إلكتروني جديد دائمًا من حساب محدد باستخدام كود VBA

يمكن لهذا الكود VBA مساعدتك بسهولة في إرسال رسائل جديدة من حساب محدد في Outlook. الرجاء اتباع الخطوات التالية:

1. الرجاء الضغط على "Alt" + "F11" لفتح مربع الحوار "Microsoft Visual Basic for Applications".

2. قم بتوسيع "Project1" > "Microsoft Outlook Objects" بالضغط المزدوج عليهما. وبعد ذلك اضغط مزدوجًا على "ThisOutlookSession" لفتح مربع الحوار "VbaProject.OTM".

3. قم بنسخ ولصق الكود VBA أدناه في مربع الحوار.

VBA: إرسال بريد إلكتروني جديد دائمًا من حساب محدد.

Public Sub NewBySpecAccount()
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem
For Each oAccount In Application.Session.Accounts
If oAccount.DisplayName = "Your account name" Then
    Set oMail = Application.CreateItem(olMailItem)
    oMail.SendUsingAccount = oAccount
    oMail.Display
End If
Next
End Sub

4. الآن تحتاج إلى تغيير "اسم حسابك" إلى حساب البريد الإلكتروني الذي تريد دائمًا إرسال رسائل جديدة منه.

5. ثم اضغط على زر "F5" على لوحة المفاتيح لتشغيل كود VBA.

6. بعد تشغيل كود VBA، ستظهر نافذة جديدة بعنوان "Message"، الرجاء كتابة بريدك الإلكتروني واضغط على زر "إرسال" لإرساله.

ملاحظة: تم اختبار هذا الكود VBA بنجاح في Outlook 2007 و2010 و2013، لكن لا تنفذه في Exchange 2007 و2010.

---

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

خبر عاجل: 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

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