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

YazarXiaoyang Değiştirme Tarihi2024-08-20

Outlook hesabınızı başlattığınızda genellikle Posta penceresi açılır. Peki Outlook’u başlattığınızda Posta, Takvim, Kişiler ve Görevler gibi diğer Outlook pencerelerini aynı anda otomatik olarak açmak mümkün mü?

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

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

İşte Outlook’u başlattığınız anda Posta, Takvim, Kişiler ve Görevler gibi birden fazla Outlook penceresini açmanıza olanak tanıyan bir VBA kodu! Lütfen aşağıdaki adımları izleyin:

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

2. Microsoft Visual Basic for Applications penceresinde, modülü açmak için ThisOutlookSession öğesine çift tıklayın; bu öğe Project1 (VbaProject.OTM) bölmesinde bulunur. 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çma:

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 şuna tıklamaya devam edin:Ekle>Modül, aşağıda verilen 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

4Ardından, kodları etkinleştirmek için **Kaydet ve Kapat**’a tıklayıp Outlook’u yeniden başlatın. Artık Outlook’u açtığınızda **Posta**, **Takvim**, **Kişiler** ve **Görevler** pencereleri otomatik olarak yan yana açılacak—ekran görüntüsüne göz atın:

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

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

En İyi Office Verimlilik Araçları

🚀 Tek Tıklamayla İndir — Tüm Office Eklentilerini Edinin

Kesinlikle Önerilir: Kutools for Office (5’li Paket)