방법: 사용자 지정 폴더 항목 만들기
업데이트: 2007년 11월
적용 대상 |
---|
이 항목의 정보는 지정된 Visual Studio Tools for Office 프로젝트 및 Microsoft Office 버전에만 적용됩니다. 프로젝트 형식
Microsoft Office 버전
자세한 내용은 응용 프로그램 및 프로젝트 형식에 따라 사용 가능한 기능을 참조하십시오. |
이 예제에서는 Microsoft Office Outlook에 새 폴더를 만듭니다. 로그온한 사용자의 이름이 폴더 이름으로 사용됩니다.
예제
Private Sub CreateNewFolder()
Dim inBox As Outlook.MAPIFolder = Me.Application.ActiveExplorer().Session. _
GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
Dim userName As String = Me.Application.ActiveExplorer() _
.Session.CurrentUser.Name
Dim customFolder As Outlook.MAPIFolder
Try
customFolder = inBox.Folders.Add(userName, Outlook _
.OlDefaultFolders.olFolderInbox)
MessageBox.Show("You have created a new folder named " _
& userName & ".")
inBox.Folders(userName).Display()
Catch ex As Exception
MessageBox.Show("The following error occurred: " & ex.Message)
End Try
End Sub
private void CreateCustomFolder()
{
Outlook.MAPIFolder inBox = (Outlook.MAPIFolder)
this.Application.ActiveExplorer().Session.GetDefaultFolder
(Outlook.OlDefaultFolders.olFolderInbox);
string userName = (string)this.Application.ActiveExplorer()
.Session.CurrentUser.Name;
Outlook.MAPIFolder customFolder = null;
try
{
customFolder = (Outlook.MAPIFolder)inBox.Folders.Add(userName,
Outlook.OlDefaultFolders.olFolderInbox);
MessageBox.Show("You have created a new folder named " +
userName + ".");
inBox.Folders[userName].Display();
}
catch (Exception ex)
{
MessageBox.Show("The following error occurred: " + ex.Message);
}
}