Sub GoFD1()
Dim myNameSpace As NameSpace
Dim myInbox As Folder
Set myNameSpace = Application.GetNamespace("mapi")
Set myInbox = myNameSpace.GetDefaultFolder(6)
Set PrivateFolder = myInbox.Folders("FD1") '受信トレイの下の場合
Set PrivateFolder = Application.Session.Folders("hoge@hoge.co.jp").Folders("FD1")
Dim objMail As MailItem
For Each objMail In ActiveExplorer.Selection
objMail.UnRead = False
objMail.Move PrivateFolder
Next
End Sub
|
|
受信トレーのサブフォルダーの場合と同レベルのフォルダーの場合で若干異なるようだ。Excelなどと違って作成したマクロにショートカット割り当てができないようだ。
リボンに独自メニューを作ってAltを押してもショートカットが表示されない。
クイックアクセスツールバーに表示させるとAltキーを押したときのショートカットが表示されるので多機能マウスに割り当てるときはこれを使うと良さそうだ。
