K2さんの雑記
2005-07-17(Sun)■ テレビコマーシャルの音量いつから、テレビコマーシャルの音量は、番組本編より大きくなったのだろうか。ここ数年のことだと思うのだが、あれはうちでは逆効果。 CMになったらほとんど消音してます。 テレビ局って、ほんと刹那的で馬鹿だなとあきれてしまう。 2007-07-17(Tue)■ Bregexp.dllの不具合掲示板でK.Takataが報告してくださったのだが、Bregexp.dllにはいくつか不具合が見つかっているらしい。 正規表現ってのは、仕様が複雑で、方言もあるし、なかなか扱いが難しい。でも便利なんだよな。正規表現がこの世になければ、K2Editorもこの世にないわけで。 時間が取れれば、K2Regexp.dllにも修正を入れること>俺 2015-07-17(Fri)■ Outlookで指定したMessage-IDのメールを検索して表示するマクロ(挑戦中)題目の通り、まずはマクロでMessage-ID検索を作ろうとした。 Message-IDに対応するメールを検索し、存在するフォルダを表示するところまではできたのだが、そのメールを選択状態にするところではまった。 Webを検索して情報を調べているのだが、どうも誰もできていなさそう。そんな簡単そうなことができないなんて、どういう事なんだろう。 P.S. naoさん、助けてください! Public Sub SearchEmailTPZ() Dim oMailItem, oCurrentSelectedItem As MailItem Dim oFolder As Folder, intWait As Integer '以下の""内に、該当メールのMessage-IDを書く Set oMailItem = SearchEmailByMessageID _ ("<1111111111111@prod.outlook.com>") If Not oMailItem Is Nothing Then Set oFolder = oMailItem.Parent '↓これでフォルダを開くところまではOK Set ActiveExplorer.CurrentFolder = oFolder '↓ここができない。書いてあるコードでは動作しない ActiveExplorer.ClearSelection ActiveExplorer.AddToSelection oMailItem End If End Sub Private Function SearchEmailByMessageID(MessageID As String) As MailItem Dim oFolder As Folder Dim sQuery As String sQuery = _ "@SQL=""http://schemas.microsoft.com/mapi/proptag/0x1035001E"" = " _ & " '" & MessageID & "'" Set oFolder = ActiveExplorer.Session.GetDefaultFolder(6) Set SearchEmailByMessageID = SearchEmailByQuery(sQuery, oFolder) End Function Private Function SearchEmailByQuery(oQuery As String, _ oFolder As Folder) As MailItem Dim oFoundMail As MailItem, loFolder As Folder Set oFoundMail = oFolder.Items.Find(oQuery) If oFoundMail Is Nothing Then For Each loFolder In oFolder.Folders Set oFoundMail = SearchEmailByQuery(oQuery, loFolder) If Not oFoundMail Is Nothing Then Exit For End If Next End If Set SearchEmailByQuery = oFoundMail End Function 2020-07-17(Fri)■ 更新するか最近すのこさんが分身日記をよく更新されているので、この雑記のことを思い出した。 今でも過去に何をやったかをよく検索したりするのだが、めっきり書かなくなってしまった。twitterとかにはちょくちょく書いているのだが、スマホで140文字ではなかなかまとまったものは書けず。 ここのところ、ちょっと気分が変わったこともあって、こちらに軸足を移そうかと少し思っている。 書き続けられるかどうかはわからないが、少し更新してみようかなと思ってます。 ■ 体重まずはこれから。 前回ご報告が2018/12でしたが、一年間歩くことをがんばって体重を減らしたという内容でした。 で、その後ですが、さすがにあの年に歩いた距離をその後も続けることはできなかったのですが、運動不足解消は歩行を柱にしていたし、コンスタントに月20万歩くらいは歩けてます。夏は暑すぎてあるけなくなるのだが、体重変化には極端に出てます。 で、昨年の後半は増加に転じてしまいましたが、また秋頃から20万歩/月はクリアしようとがんばってます。 3月からのコロナ騒ぎでは在宅勤務に切り替わりましたが、歩くことだけはやめず、なんとか20万歩/月は維持してまして、体重もなんとかコントロールできてます。 また夏が来るのですが、今年はどうかなぁ。暑いとやっぱり歩けなくなるからなぁ。 なお、5月からは朝に3分筋トレも取り入れてまして、スクワッドと腹筋、腕立て(膝立しかできないが)を日替わりでやってます。老化すると筋肉落ちてくると言うので、嫌いな筋トレもちょっとやっておこうということでお手軽に。 ■ 在宅のこと3月の末に、職場でCOVID-19感染者が発生したことをきっかけに、一気に在宅生活になりました。4月・5月はほぼ在宅。管理職なので週に1度くらいは出社していましたが、部下(今は4名)はほぼずっと在宅。 それでも仕事は回るものです。Office365が5年ほど前に職場に導入していたこともあって、全員Skypeは持っているし、Teamsもある。今の仕事はインフラ・業務システム開発なので、在宅でも全然困らない。 予想していたわけではないですが、ちょうど今年、Wifiの強化のために、もう一台Wifiルータを自室に入れてましたし、部屋の片付けも娘の受験終了後にかなりやったこともあって、環境は非常によい。 ただし、隣の敷地が、建物の取り壊しとマンション建設の時期にありまして、重機の音がうるさいのが玉に瑕。来年の3月まではうるさいのが続きますが、もうこれは仕方がない。 7月からはCOVIDが落ち着いたこともあって、週2回ほどの在宅勤務となってます。 ほんと、働き方が一変しました。 運動不足にならないようにだけは最初からかなり考えまして、朝一番起きたらすぐに1時間半の散歩をするようにしています。継続のためには習慣にすることが鍵なので、出社する日も変わらず一時間半。これと一つ前のトピックに書いた3分筋トレ。この二本でなんとかやっております。 1965|09|
|
//
自己紹介
自己紹介
広告
計るだけダイエット
つっこみリスト
TrackBacks
日記仲間
な/
す/
ひ/
最近の日記
|
◆ (な) [trello に積みました(^^)]