كيفية إرسال بريد إلكتروني جديد دائمًا من حساب معين في 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 تحميل الآن فتح المجلد للشراء