トップ «前の日(07-16) 最新 次の日(07-18)» 追記

K2さんの雑記


2005-07-17(Sun)

暑い

日中から夜まで、ひっじょーにあ・つ・いっ。

家ではクーラーなしでがんばっているが、全く動けなくてぐでーとしている。クーラーをかけると、体調が悪くなるのでね。

テレビコマーシャルの音量

いつから、テレビコマーシャルの音量は、番組本編より大きくなったのだろうか。ここ数年のことだと思うのだが、あれはうちでは逆効果。

CMになったらほとんど消音してます。

テレビ局って、ほんと刹那的で馬鹿だなとあきれてしまう。

[]強い

今は広島戦を見ているが、いやはや負ける気がしない。負けてしまっても、まーいいかと思ってしまう。

なんと7月はまだ3敗しかしていない。貯金20。

何度も書くようだが、今年はオーソドックスな野球。盤石の野球。

鳥谷の守備力アップには目を瞠るものがある。球際が安定し、肩が強い。数年後にはリーグを代表するショートになることは確実だ。今後10年、阪神のショートは安泰だ。


2007-07-17(Tue)

Bregexp.dllの不具合

掲示板でK.Takataが報告してくださったのだが、Bregexp.dllにはいくつか不具合が見つかっているらしい。

ハングアップの日々 (2007/07)

正規表現ってのは、仕様が複雑で、方言もあるし、なかなか扱いが難しい。でも便利なんだよな。正規表現がこの世になければ、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
本日のツッコミ(全1件) [ツッコミを入れる]

(な) [trello に積みました(^^)]


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|
2002|09|10|11|12|
2003|01|02|04|05|06|07|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|06|07|08|09|10|11|12|
2007|01|02|03|04|05|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|07|08|09|10|11|12|
2009|01|02|03|04|05|06|07|08|09|10|11|12|
2010|01|02|03|04|05|07|08|09|10|11|12|
2011|01|02|03|04|05|06|07|08|09|10|11|12|
2012|01|03|04|05|08|
2014|01|02|03|04|05|08|09|10|11|12|
2015|01|02|03|04|05|06|07|08|09|10|11|12|
2016|01|02|03|04|05|06|07|08|09|11|
2017|01|03|05|06|07|08|10|11|12|
2018|01|02|03|04|05|08|09|10|12|
2020|01|07|




2017年
7月
1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31
//
自己紹介
自己紹介
広告
計るだけダイエット
つっこみリスト
TrackBacks
日記仲間
/ / /
最近の日記