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

المؤلف: شياويانغ آخر تعديل: 2024-08-20

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

افتح نوافذ Outlook متعددة تلقائيًا عندما يبدأ Outlook برمز VBA

افتح نوافذ Outlook متعددة تلقائيًا عندما يبدأ Outlook برمز VBA

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

1. اضغط باستمرار ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انقر مرتين هذه الجلسة من مشروع 1 (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. ثم استمر في النقر إدراج > وحدة، انسخ والصق الكود أدناه في الوحدة الفارغة المفتوحة ، انظر لقطة الشاشة:

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

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

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

افتح نوافذ Outlook متعددة تلقائيًا عندما يبدأ Outlook برمز VBA

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

أخبار عاجلة: Kutools for Outlook يطلق نسخة مجانية!