OutLook VBA で送受信の開始を検出する

以前、OutLookVBAで、送受信の終了を検知する記事を書きましたが、

今度は、「送受信の開始」を検出する必要が出てきました。

その方法。

以前とほとんど一緒ですが。

'以下をClass１に記述します。

Dim WithEvents mySync As Outlook.SyncObject

Sub Initialize_handler()
    Set mySync = Application.Session.SyncObjects.Item(1)
    mySync.Start
End Sub

'↓これで送受信のスタートを検知できます。

Private Sub mySync_SyncStart()
    MsgBox "送受信開始"
End Sub

'↓これで送受信の完了を検知

Private Sub mySync_SyncEnd()
    MsgBox "送受信が完了しました"
End Sub

'以下をThisOutLookSessionに記述します

Private Sub Application_Startup()
    Set ReceiveObj = New Class1
    Call ReceiveObj.Initialize_handler
End Sub

’以下を標準モジュールに記述

Public ReceiveObj As Object

※注意　サンプルソースでメッセージボックスを、送受信開始、送受信終了で表示していますが、送受信が終了する前に、「送受信開始」のメッセージボックスを消さないと、「送受信が完了しました」のメッセージは表示されません。

VirtualBox で ヴァーチャルマシンが起動しない話

BIOSで　VT　を　有効にしているのだが、

なぜか再起動しても VT-x が有効にならない。

何をしてもヴァーチャルマシンが起動しない。

asus のマザーなのだが、

BIOSをのCPUのところには、VT の設定がなくて、

他の場所に見つけた。

システムエージェント設置に、VT-d が。

これを有効にしてみる。

　ダメ。

Hiper-Vが有効だとだめだと聞いて、

Hiper-Vをチェックするとちゃんと無効になっている。

一度有効にして無効にしてみるが効果なし。

もう一度BIOSを見ると。

CPUのところに、ひっそりと縦スクロールバーがありました。

隠れていただけでした。

Intel(R) Virtualization Technology !!!!!!!

やった！！！

有効！

マネージ デバッグ アシスタント 'DisconnectedContext' VB.NET で発生。 Excel出力

一度の処理で、１００個くらいのエクセルファイルを出力する処理を作りました。

ループしながら、出力、保存を繰り返すのですが、

大体同じようなタイミングでエラーが発生し、

２０個目のエクセルを出力、保存し終わって、

エクセルのオブジェクトをReleaseComObjectするときにエラーが出ているようです。

２１個目のこともあれば、もっと早くエラーが起こることもあります。

'DisconnectedContext'が検知されるのですが、これは無視することができます。

'DisconnectedContext'で停止しないように、チェックを外したところ、

今度は

'ContextSwitchDeadlock'

が発生しました。

色々検索すると、DoEvents　するとよいとのことでしたので、

エクセルを出力、保存、ReleaseComObjectの後に、DoEventsすると、

'ContextSwitchDeadlock' は解消されました。

同時に'DisconnectedContext'も解消されました。

VB.NET WindowsService から画面をロックする 3

 さてさて、もともと指紋認証アプリのための仕組みだったのですが、

なぜか、バックアップバッチが走っているサーバ上で、タスクスケジューラに登録された指紋認証アプリが起動しないとのこと。

うーん。バックアップバッチが最初に走って、それが終わるまで起動しないのだろうか？それとも他の要因が？

とりあえず実験をして検証をしてみるつもりです。

ダメならスタートアップに入れるか。

エクセル VBA Rangeメソッドが失敗する

VBAでRangeメソッドが失敗するので、少し悩みました。

エラーがでるのは　.Range("A1") = "テスト"

のところ、値を入れるだけでエラーが？

と思いましたが、

WorkSheetChangeのなかで、A1の値が変更されると、A1に書き込むようにループになっていたようでした。

ループしてWorkSheetChangeが起きないようにしたら、治りました。

Amazon FireFox ログインできない カスペルスキー

なぜか昨日2018/06/16の夜から、FireFoxでアマゾンにログインできなくなっていました。

？？？不正ログインとか思ったけれど、そうでもなさそう。

いつの間にか英語版になっていたFireFoxを一度アンインストールし、再度インストール。その際に情報をクリアしました。

すると、あらゆるサイトに「証明書が～」といわれるようになったので、

カスペルスキーの証明書をFireFoxにインストールしたら、

無事、アマゾンにログインできるようになりました。

どうもカスペルスキーで安全な接続で開くときに、エラーが起こっていたようです。

Windows10 画面がちらつく

会社で購入したPCの画面がちらつくため（画面一体型）、

対処しました。

中古で壊れかかっているのかと思ったら、

ノートンをインストールしているのが原因。

screen_fix というパッチをダウンロードして、セーフモードで実行したら治りました。

 ※　2018/06/15　追記

Windows Update後、症状が再発しました。

再び、screen_fixを実行したところ、症状は治まりました。

※　2018/07/06 追記

再び発生しています。前回の、screen_fixでは症状は改善していなかった模様。

今度はノートンの再インストールを試してみます。

※　2018/07/14　追記

ノートンの再インストールを行ったところ、ちらつきは治りませんでした。

再インストール後、screen_fixを再び実行したところ、改善しました。