كيفية إرسال بريد إلكتروني جديد دائمًا من حساب معين في 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.
أفضل أدوات الإنتاجية لمجموعة Office
خبر عاجل: أدوات Kutools لـ Outlook تطلق إصدارًا مجانيًا!
جرّب الآن الإصدار المجاني الجديد كليًا من أدوات Kutools لـ Outlook مع أكثر من70 ميزة مذهلة، متاحة لك مدى الحياة! انقر للتحميل الآن!
📧 أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لـ POP وIMAP) / جدولة إرسال البريد / نسخة تلقائية/مخفية حسب القواعد عند الإرسال / التحويل التلقائي (قاعدة متقدمة) / إضافة التحية تلقائيًا / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية ...
📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب الموضوعات وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات ...
📁 المرفقات الاحترافية: حفظ دفعي / فصل دفعي / ضغط دفعي / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي ...
🌟 سحر الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / تنبيهك عند وصول رسائل هامة / تصغير Outlook بدلاً من الإغلاق ...
👍 ميزات بنقرة واحدة: الرد على الجميع مع المرفقات / رسائل البريد الإلكتروني المضادة للتصيد / 🕘 عرض المنطقة الزمنية للمرسل ...
👩🏼🤝👩🏻 جهات الاتصال والتقويم: إضافة جهات اتصال دفعة واحدة من الرسائل المحددة / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد ...
افتح أدوات Kutools لـ Outlook فورًا بنقرة واحدة. لا تنتظر، قم بالتحميل الآن وزد من إنتاجيتك!

