كيف يمكن فتح نوافذ Outlook متعددة تلقائيًا عند بدء تشغيله؟

المؤلفXiaoyangتاريخ التعديل2024-08-20

عند تشغيل حساب Outlook، تفتح نافذة البريد كالمعتاد. هل يمكن تهيئة Outlook لفتح نوافذ أخرى تلقائيًا—مثل نوافذ البريد والتقويم وجهات الاتصال والمهام—جميعها دفعة واحدة عند بدء التشغيل؟

فتح نوافذ Outlook متعددة تلقائيًا عند بدء تشغيل Outlook باستخدام كود VBA

فتح نوافذ Outlook متعددة تلقائيًا عند بدء تشغيل Outlook باستخدام كود VBA

هنا، يمكنني تزويدك بكود VBA لمساعدتك على فتح نوافذ Outlook متعددة—مثل نوافذ البريد والتقويم وجهات الاتصال والمهام—فور تشغيل Outlook. يُرجى اتباع الخطوات التالية:

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

2. في نافذةMicrosoft Visual Basic for Applications، انقر نقرًا مزدوجًا علىThisOutlookSession من جزءProject1 (VbaProject.OTM) لفتح الوحدة النمطية، ثم انسخ والصق الكود التالي في الوحدة النمطية الفارغة.

كود VBA: فتح نوافذ Outlook متعددة تلقائيًا عند بدء تشغيل Outlook:

Private Sub Application_Startup()
Dim xCalendar As Folder
Dim xTasks As Folder
Dim xContacts As Folder
Dim xInbox As Folder
Dim xExplorer As Outlook.Explorer
Dim xWidth, xHeight As Integer
On Error Resume Next
xWidth = Int(GetSystemMetrics32(0) / 4) + 60
xHeight = GetSystemMetrics32(1)
Set xInbox = Outlook.Application.ActiveExplorer.CurrentFolder
xInbox.Display
Set Application.ActiveExplorer.CurrentFolder = xInbox
Set xExplorer = Application.ActiveExplorer
With xExplorer
    .WindowState = olNormalWindow
    .Top = 0
    .Left = 0
    .Height = xHeight
    .Width = xWidth
End With
Set xCalendar = Outlook.Session.GetDefaultFolder(olFolderCalendar)
xCalendar.Display
Set xExplorer = Application.ActiveExplorer
With xExplorer
    .WindowState = olNormalWindow
    .Top = 0
   .Left = xWidth
    .Height = xHeight
    .Width = xWidth
End With
Set xContacts = Outlook.Session.GetDefaultFolder(olFolderContacts)
xContacts.Display
Set xExplorer = Application.ActiveExplorer
With xExplorer
    .WindowState = olNormalWindow
    .Top = 0
    .Left = xWidth * 2
    .Height = xHeight
    .Width = xWidth
End With
Set xTasks = Outlook.Session.GetDefaultFolder(olFolderTasks)
xTasks.Display
Set xExplorer = Application.ActiveExplorer
With xExplorer
    .WindowState = olNormalWindow
    .Top = 0
    .Left = xWidth * 3
    .Height = xHeight
    .Width = xWidth
End With
End Sub

3.بعد ذلك، انقر علىInsert>Module، وانسخ والصق الكود أدناه في الوحدة النمطية الفارغة التي تم فتحها، انظر لقطة الشاشة:

Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal xIndex As Long) As Long

4. بعد ذلك، احفظ الأكواد وأغلقها، ثم أعد تشغيل Outlook لتفعيلها. الآن، عند فتح Outlook، سيتم فتح نوافذ البريد والتقويم وجهات الاتصال والمهام تلقائيًا جنبًا إلى جنب. انظر لقطة الشاشة:

كيف يمكن فتح نوافذ Outlook متعددة تلقائيًا عند بدء تشغيله؟

فتح نوافذ Outlook متعددة تلقائيًا عند بدء تشغيل Outlook باستخدام كود VBA

أفضل أدوات إنتاجية Office

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

موصى به بشدة: Kutools for Office (5 في 1)