◆Windowsで言語バーが消えてしまったら

言語バー、時々消えるようだ。
戻すにはWindowsキーを押してメニューが表示されたらそのまま「キーボードの詳細設定」と打ち込む。

「キーボードの詳細設定画面」が表示されたら「言語バーのオプション」リンクをクリック。

「言語バー」のラジオボタンを適当に変更させれば再表示される。

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

◆デスクトップが見つからない？

今日PCを起動しログオンしたらデスクトップが見つからないと怒られる。

デスクトップはDドライブに置いているのでディスクが飛んだか？と思ったのだが、ちょっとするとエクスプローラーが起動しDドライブが表示される。

アクセスしてみると特に問題はなさそう。

再起動してみるも変わらず。

Dの容量を少しあけて再起動してみるも変わらず。

雰囲気からしてDドライブを認識するのがちょっと遅れている（というか起動順が何かおかしい？）

そこで、ログオン画面でしばらく放置してからログオンしてみると通常通りログオンできた。

OS自体のサービスの起動順とかが最近のUPDATEでおかしくなったのかも・・・。

そうだとすればいずれ直るだろうからとりあえず今の方法で回避しておくか。