Android端末でFenceMobileでアクティベーションできない問題が発生。
一旦、FenceMobileの管理ツールからサービスの割り当て削除し、端末情報を削除し、
再度登録するが、うまくいかない。
アクティベーション方法；電話番号
そのため、再度、FenceMobileの管理ツールからサービスの割り当て削除し、端末情報を削除し、
端末情報を登録する際にプレIDに変更。
Android端末からアクティベーションを実施し、プレIDとテナントIDを入力すると
正常にアクティベーション完了。
今まで電話番号だけでいってたのにな？
不思議！
とりあえずうまくいったからしばらく様子。
NotesでCSV出力するサンプルコード。
Sub Click(Source As Button)
'************************************************************
' ビューのCSVエクスポート
'************************************************************
On Error Goto ErrHandler
Dim session As New NotesSession
Dim uiws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim view As NotesView
Dim ventry As NotesViewEntry
Dim vnav As NotesViewNavigator
Dim ventcol As NotesViewEntryCollection
Dim strDelFlg As String
Dim lngFileNum As Long 'ファイルナンバーの空き番号をセット
Dim varFileName As Variant '出力ファイル名
Dim strFilter As String 'SaveFileDialogボックスでのfiltersパラメータ
Set db = session.CurrentDatabase
Set view = db.GetView("ビュー名") 'ビュー名のセット
Set ventcol = view.AllEntries
Set vnav = view.CreateViewNav
Set ventry = vnav.GetFirst
' ***出力するデータが無い場合***
If ventry Is Nothing Then
Msgbox "出力するデータがありません。"
Exit Sub
End If
' ***ファイル空き番号をセット***
lngFileNum = Freefile
' ***出力先及びファイル名の指定ダイアログボックスの表示***
strFilter = "csv|*.csv|"
varFileName = uiws.SaveFileDialog(False,"ファイル一覧",strFilter,"C:\","ファイル名.csv")
' ***ファイル名未入力及びキャンセルの場合***
If Isempty(varFileName) = True Then
Msgbox "ファイル名が入力されていないので、出力はキャンセルされました。"
Exit Sub
End If
' ***ファイルオープン***
Open varFileName(0) For Output Access Write As lngFileNum
' ***タイトル行を出力*** (0)～(7):8
Print #lngFileNum, _
"A" & "," & _
"B" & "," & _
"C" & "," & _
"D" & "," & _
"E" & "," & _
"F" & "," & _
"G" & "," & _
"H"
' ***データを出力***
Do Until ventry Is Nothing
Print #lngFileNum, _
"" & ventry.ColumnValues(0) & "" & "," & _
"" & ventry.ColumnValues(1) & "" & "," & _
"" & ventry.ColumnValues(2) & "" & "," & _
"" & ventry.ColumnValues(3) & "" & "," & _
"" & ventry.ColumnValues(4) & "" & "," & _
"" & ventry.ColumnValues(5) & "" & "," & _
"" & ventry.ColumnValues(6) & "" & "," & _
"" & ventry.ColumnValues(7) & ""
Set ventry = vnav.GetNext(ventry) '次のビューエントリに移動
Loop
' ***ファイルのクローズ***
Close #lngFileNum
' ***出力完了メッセージ***
Msgbox "出力が完了しました！"
Exit Sub
'ランタイムエラー処理
ErrHandler:
If Err = 101 Then 'ファイルが既にオープンされている場合
Msgbox "同名のファイルが既に開かれています。"
Exit Sub
Else '未確認エラー
Msgbox "エラーにより出力が出来ませんでした。システム管理者にご連絡下さい。"
Exit Sub
End If
End Sub
acronisでデータ復元後、OS（XP）が起動しない。
acronisのログを確認すると正常終了。
BIOSの設定でStorageをAHCIから別のモードに変更するとOSが起動。
しかし、OSが途中で固まる。
そのため、ハードディスクを取り出し、別のPCでUSBで接続し、chkdsk /f を実行。
大量のエラーと修復。
その後、ハードディスクを戻してOSを起動すると正常に起動。
マスターブートレコードが壊れていたのかな？
とりあえず、起動できてよかった。
ソニー損保のアプリ「ドライバーズナビ」は、、運転の癖や苦手なポイントを教えてくれる。
使用方法、運転中にアプリを起動しておくだけ。
仕組みとしては、「ブレーキ」「停止」「ハンドル」「右左折」「スムーズ」の5項目で採点される。
ちょっと、おもしろそうなので試しに使用してみようかな。
2013年末で期限が切れる住宅ローン減税を5年程度延長する方針を固め、延長後の減税額の年間上限を20万円から最大で50万円に引き上げる方向で調整しているとのこと。
延長も毎度の事やけだ、購入した年によって損得が生じるのはやめてほしい
