VBA Outlookを開いて新しいウィンドウを開き、フォルダウィンドウのみを表示

Question

私はOutlookで新しいウィンドウを開き、受信トレイにサブフォルダのみを表示するマクロを設定しています。私は大量のフォルダを持っており、これらの他のフォルダへのドラッグアンドドロップ電子メールを支援するために、別のウィンドウをポップアップする必要があります。

ここに私が現在セットアップしているコードがあります。私はちょうどメインの電子メールのリストをオフにする方法を知りませんでした（プレビューウィンドウをオフに成功した）。

ご迷惑をおかけして申し訳ございません。私はちょうどこれをハッシュアウトしようとしてきました。

Sub anothertesttoopen() 
Dim oFolder As Outlook.Folder 


For Each oaccount In Application.Session.Accounts 
    If oaccount = "email@myemail.com" Then 
    Set Store = oaccount.DeliveryStore 
    Set oFolder = Store.GetDefaultFolder(olFolderInbox).Folders.Item("Projects 2017") 'here it selects the inbox folder of account. 


End If 
Next 

oFolder.Display 


Dim myOlExp As Outlook.Explorer 
Set myOlExp = Application.ActiveExplorer 
myOlExp.ShowPane olPreview, Not myOlExp.IsPaneVisible(olPreview) 


End Sub 

Answer 1

Outlookオブジェクトモデルは、グリッドを非表示にするためのメソッドやプロパティを提供しません。代わりに、そこに任意のWebページを表示することができます。 FolderクラスのWebViewOnプロパティを使用すると、フォルダのWebビューの状態を示すブール値を設定できます。 FolderオブジェクトのWebViewURLプロパティで指定されたWebページを表示するには、Trueを返します。 Microsoft Outlookは、クライアントコンピュータにインストールされたバージョンのWindows Internet Explorerのレンダリングエンジンを使用してWebページを表示します。 Internet Explorerがクライアントコンピュータにインストールされていない場合、OutlookはWebページを表示しません。例：

Sub SetupFolderHomePage() 
Dim nsp As Outlook.NameSpace 
Dim mpfInbox As Outlook.Folder 
Dim mpfNew As Outlook.Folder 

Set nsp = Application.GetNamespace("MAPI") 
Set mpfInbox = nsp.GetDefaultFolder(olFolderInbox) 
Set mpfNew = mpfInbox.Folders.Add("MyFolderHomePage") 
mpfNew.WebViewURL = "http://www.microsoft.com" 
mpfNew.WebViewOn = True 
End Sub 

また、ソリューションモジュールの作成を検討することもできます。詳細については、Adding Solution-Specific Folders to the Solutions Module in OutlookおよびProgramming the Outlook 2010 Solutions Moduleを参照してください。