כיצד לפתוח מספר חלונות Outlook אוטומטית כאשר Outlook מתחיל?

Author: Xiaoyang Last Modified: 2025-05-30

כאשר אתה פותח את חשבון ה-Outlook, חלון הדואר נפתח כרגיל. האם ניתן לפתוח אוטומטית חלונות Outlook נוספים, כגון חלונות דואר, יומן, אנשי קשר ומשימות בו-זמנית כאשר Outlook מתחיל?

פתיחת מספר חלונות Outlook אוטומטית עם קוד VBA כאשר Outlook מתחיל

פתיחת מספר חלונות Outlook אוטומטית עם קוד VBA כאשר Outlook מתחיל

כאן, אני יכול להציג קוד 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. לאחר מכן המשך ללחוץ על הוספה > מודול, העתק והדבק את הקוד הבא אל המודול הריק שנפתח, ראה צילום מסך:

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

4. לאחר מכן שמור וסגור את הקודים, והפעל מחדש את Outlook כדי שהקודים יכנסו לתוקף. כעת, כאשר פותחים את Outlook, חלונות הדואר, היומן, אנשי הקשר והמשימות ייפתחו אוטומטית זה לצד זה, ראה צילום מסך:

כיצד לפתוח מספר חלונות Outlook אוטומטית כאשר Outlook מתחיל?

פתיחת מספר חלונות Outlook אוטומטית עם קוד VBA כאשר Outlook מתחיל

כלי הפרודוקטיביות הטובים ביותר ל-Office

חדשות חמות: Kutools עבור Outlook משיק גרסה חינמית!

הירשם לניוזלטר