방법: Outlook 폴더에 웹 페이지 연결
업데이트: 2007년 11월
적용 대상 |
|---|
이 항목의 정보는 지정된 Visual Studio Tools for Office 프로젝트 및 Microsoft Office 버전에만 적용됩니다. 프로젝트 형식
Microsoft Office 버전
자세한 내용은 응용 프로그램 및 프로젝트 형식에 따라 사용 가능한 기능을 참조하십시오. |
이 예제에서는 Microsoft Office Outlook에 HtmlView라는 폴더가 있는지 확인합니다. 해당 폴더가 없으면 코드에서는 폴더를 만들고 폴더에 웹 페이지를 할당합니다. 해당 폴더가 있으면 코드에서는 폴더 내용을 표시합니다.
예제
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();
}