◆ 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

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

≫≫  Outlookフォーム作成／開発／VBSプログラミング  ≫≫ Outlookオブジェクトモデルから学ぶ