Excel'den belirli bir Outlook klasörünü nasıl açabilirim?

Daha önce bir Excel dosyasından belirli bir Outlook klasörünü—örneğin "Gelen Kutusu", "Kişiler" veya başka herhangi bir klasörü—açmayı denediniz mi? Bu makalede, bir Excel çalışma kitabı dosyasından istediğiniz Outlook klasörünü nasıl açabileceğinizi adım adım göstereceğim.

Excel dosyasından VBA kodu ile belirli bir Outlook klasörünü açma

---

Excel dosyasından VBA kodu ile belirli bir Outlook klasörünü açma

Aşağıdaki VBA kodu, bir Excel çalışma sayfasından belirli bir Outlook klasörünü açmanıza olanak tanır. Lütfen aşağıdaki adımları uygulayın:

1. Excel'de "Microsoft Visual Basic for Applications" penceresini açmak için "Alt" + "F11" tuşlarına basın.

2. "Ekle" > "Modül" seçeneğine tıklayıp aşağıdaki makroyu "Modül Penceresi"ne yapıştırın.

VBA kodu: Excel dosyasından belirli bir Outlook klasörünü açma:

Sub OpenOutlookFolder()
    Dim xOutlookApp As Outlook.Application
    Dim xNameSpace As Outlook.Namespace
    Dim xFolder As Outlook.Folder
    Dim xFolderType As OlDefaultFolders
    On Error Resume Next
    Set xOutlookApp = New Outlook.Application
    Set xNameSpace = xOutlookApp.Session
    Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)
    xFolder.Display
    Set xFolder = Nothing
    Set xNameSpace = Nothing
    Set xOutlookApp = Nothing
    Exit Sub
End Sub

Not: Yukarıdaki kodda, "Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)" satırındaki "Gelen Kutusu" ifadesini açmak istediğiniz herhangi bir klasör adıyla değiştirebilirsiniz.

3. Ardından, "Microsoft Visual Basic for Applications" penceresinde **Araçlar > Referanslar** seçeneğine tıklayın. Açılan **Referanslar – Proje1** iletişim kutusunda, **Kullanılabilir Referanslar** listesinden **Microsoft Outlook Nesne Kitaplığı**’nı işaretleyin. Ekran görüntüsüne bakın:

4. Ardından iletişim kutusunu kapatmak için "Tamam" düğmesine tıklayın ve kodu çalıştırmak üzere "F5" tuşuna basın. Belirtilen Outlook klasörü hemen açılacaktır.