Outlook başladığında birden fazla Outlook penceresini otomatik olarak nasıl açabilirsiniz?

Author: Xiaoyang Last Modified: 2025-08-07

Bir Outlook hesabı açtığınızda, Mail penceresi normal şekilde açılır. Outlook başladığında Mail, Takvim, Kişiler ve Görevler pencereleri gibi diğer Outlook pencerelerini otomatik olarak açmak mümkün müdür?

Outlook başladığında VBA kodu ile birden fazla Outlook penceresini otomatik olarak açın

Outlook başladığında VBA kodu ile birden fazla Outlook penceresini otomatik olarak açın

Burada, size Outlook'u başlattığınız anda Mail, Takvim, Kişiler ve Görevler pencereleri gibi birden fazla Outlook penceresini açmanıza yardımcı olacak bir VBA kodunu tanıtmak istiyorum. Lütfen şu adımları izleyin:

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.

2. Microsoft Visual Basic for Applications penceresinde, Project1(VbaProject.OTM) bölmesinden ThisOutlookSession öğesine çift tıklayın, modülü açın ve ardından aşağıdaki kodu boş modüle kopyalayıp yapıştırın.

VBA Kodu: Outlook başladığında birden fazla Outlook penceresini otomatik olarak açın:

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. Ardından Ekle > Modül'e tıklayın, aşağıdaki kodu açılan boş modüle kopyalayıp yapıştırın, ekran görüntüsüne bakın:

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

4. Daha sonra kodları kaydedip kapatın ve Outlook'u yeniden başlatarak kodların etkili olmasını sağlayın. Şimdi, Outlook'u açtığınızda Mail, Takvim, Kişiler ve Görevler pencereleri yan yana otomatik olarak açılacaktır, ekran görüntüsüne bakın:

Outlook başladığında birden fazla Outlook penceresini otomatik olarak nasıl açabilirsiniz?

Outlook başladığında VBA kodu ile birden fazla Outlook penceresini otomatik olarak açın

En İyi Ofis Verimlilik Araçları

Flaş Haber: Kutools for Outlook Ücretsiz Sürümü Yayında!

Bültene Abone Ol