Outlookサポートナビ！  ≫≫≫ Outlookフォーム作成／VBSプログラミング

　

◆フォルダ名の変更・取得

　

オブジェクト

プロパティ（フォルダ名を取得／設定）

Folder

Name

記述法： Folder.Name ="フォルダ名"

★フォルダ名を設定、または取得することができます。

　

記述例：

記号

受信トレイ配下の「水泳」フォルダ名 →「Swim」に変更する

Set MyNameSpace = Application.GetNameSpace("mapi")
Set MyInbox = MyNameSpace.GetDefaultFolder(6)
Set suiei = MyInbox.Folders("水泳")
suiei.Name = "Swim"

★Outlookルートオブジェクトを取得

★受信トレイを取得

★水泳フォルダを取得

★水泳フォルダ名を「Swim」に変更
記号

現在選択しているフォルダ名が「予定表」でない場合はメッセージを表示

If Application.ActiveExplorer.CurrentFolder.Name <> "予定表" Then

Msgbox "必ず自分の予定表で操作してください。"

End If

★選択しているフォルダ名が「予定表」でないなら

★メッセージを表示

　

※Application.ActiveExplorerメソッドでは現在アクティブなExplorerオブジェクトを取得できます。現在アクティブなフォルダを取得・設定する場合はExplorerオブジェクトのCurrentFolderプロパティを利用します。

記号

現在選択しているフォルダ名を表示

MsgBox Application.ActiveExplorer.CurrentFolder.Name

★現在選択しているフォルダ名を表示