ページ

2019年8月19日月曜日

◆OUTLOOKで選択したメールを既読にしてフォルダーに移動するマクロ


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キーを押したときのショートカットが表示されるので多機能マウスに割り当てるときはこれを使うと良さそうだ。

私が最近チェックした記事