Becky予定表プラグインを有効活用したい

Beckyは、予定表プラグインってのがあり、これはメールから直スケジュール登録できたり
ToDoなんかも管理できて非常に便利で気にいっています。

窓の杜新聞を読んでたら「Mozilla Sunbird」っていうスケジュール管理ソフトは
WebDAV/FTPサーバー経由でスケジュールデータをやり取りできるらしい事を知って
乗り換えちまおうかと思ったのですが、なんかTaskに登録した内容がカレンダーに
表示されないのが気に入らなかったのでやめました。

Beckyの予定表プラグインで同じようなことできると「えぇな〜」と思い
実験してみました。

[仕組み]
PC起動したらFTPサバー上から最新のスケジュールデータ取得
後は一定周期でローカルファイルをFTPにうぷ

この一連の制御を会社と家で行う

[素材]

■FTPでファイルをPUT/GET用バッチファイルを作る
・うぷ用バッチ
nc_ftp.bat
ftp -s:"D:\xxxxx\nc_ftp.txt"
------------
nc_ftp.txt
open cgi19.plala.or.jp ← FTP鯖
あかうんと
パス
bin
put "D:\REBECCA\xxxx\BkSched\BkSched.sch" ←スケジュールファイル
close
quit

・GET用バッチ
nc_ftp_get.bat
ftp -s:"nc_ftp_get.txt"
copy BkSched.sch D:\REBECCA\hiyama\BkSched
---------------
nc_ftp_get.txt
open cgi19.plala.or.jp
あかうんと
ぱす
bin
get "BkSched.sch"
close
quit

■バッチファイルを実行してやるVBS
cycle.vbs
'アプリケーションパス
PutAppPass = "D:\hiyama\カレンダー更新\nc_ftp.bat"
GetAppPass = "D:\hiyama\カレンダー更新\nc_ftp_get.bat"
'実行周期時間(分)
t = 60


'最新ファイル取得
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objExec = WshShell.Exec(GetAppPass)
Do While objExec.Status = 0
WScript.Sleep 100
Loop
Set objExec = Nothing
Set WshShell = Nothing


'周期的にローカルファイルをFTPサバーにアップデート
Set WshShell = WScript.CreateObject("WScript.Shell")
do
'MsgBox "あったー"
WScript.sleep(t*1000*60)
'MsgBox "おわったー"
Set objExec = WshShell.Exec(PutAppPass)
Do While objExec.Status = 0
WScript.Sleep 100
Loop
Loop

'MsgBox objExec.StdOut.Read(3)
Set objExec = Nothing
Set WshShell = Nothing

■VBSをスタートアップに登録
スタートアップにcycle.vbsのショートカットをいれる

[実験結果]
うまくいったヽ(・肉・ )ノ
がしかし、メールと依存するスケジュールが連動しなくなるので
素人にはお勧めできない。