方法: プログラムによって Web ページを Outlook のフォルダーに関連付ける
この例では、Microsoft Office Outlook で HtmlView という名前のフォルダーを確認します。フォルダーが存在しない場合は、フォルダーが作成され、そのフォルダーに Web ページが割り当てられます。フォルダーが存在する場合は、フォルダーの内容が表示されます。
対象: このトピックの情報は、Outlook 2013 と Outlook 2010 のアプリケーション レベルのプロジェクトに適用されます。詳細については、「Office アプリケーションおよびプロジェクト タイプ別の使用可能な機能」を参照してください。
使用例
Private Sub CreateHtmlView()
Dim newView As Outlook.MAPIFolder = Nothing
Dim viewName As String = "HtmlView"
Dim inBox As Outlook.MAPIFolder = Me.Application.ActiveExplorer(). _
Session.GetDefaultFolder(Outlook.OlDefaultFolders _
.olFolderInbox)
Dim searchFolders As Outlook.Folders = inBox.Folders()
Dim foundView As Boolean = False
For Each searchFolder As Outlook.MAPIFolder In searchFolders
If searchFolder.Name = viewName Then
newView = inBox.Folders(viewName)
foundView = True
End If
Next
If foundView = False Then
newView = inBox.Folders.Add(viewName, _
Outlook.OlDefaultFolders.olFolderInbox)
newView.WebViewURL = "https://www.microsoft.com"
newView.WebViewOn = True
End If
Application.ActiveExplorer.SelectFolder(newView)
Application.ActiveExplorer.CurrentFolder.Display()
End Sub
private void CreateHtmlFolder()
{
Outlook.MAPIFolder newView = null;
string viewName = "HtmlView";
Outlook.MAPIFolder inBox = (Outlook.MAPIFolder)
this.Application.ActiveExplorer().Session.GetDefaultFolder(Outlook
.OlDefaultFolders.olFolderInbox);
Outlook.Folders searchFolders = (Outlook.Folders)inBox.Folders;
bool foundView = false;
foreach (Outlook.MAPIFolder searchFolder in searchFolders)
{
if (searchFolder.Name == viewName)
{
newView = inBox.Folders[viewName];
foundView = true;
}
}
if (!foundView)
{
newView = (Outlook.MAPIFolder)inBox.Folders.
Add("HtmlView", Outlook.OlDefaultFolders.olFolderInbox);
newView.WebViewURL = "https://www.microsoft.com";
newView.WebViewOn = true;
}
Application.ActiveExplorer().SelectFolder(newView);
Application.ActiveExplorer().CurrentFolder.Display();
}
参照
処理手順
方法: プログラムによって名前を指定してフォルダーを取得する
方法: プログラムによってカスタム フォルダーのアイテムを作成する