WSHで自動化ソフトを作りたいけど、エクセルとの連携、エラー防止はどうすれば？

質問

以下の業務を自動をするために、WSHでプログラムを作っていますが、４点困っていることがあります。

●●●業務内容●●●
１、業務のメールボックスをactivateする。
２、sendkeys("{Enter}")を使って、メールを開く。
３、AlTからEditツールのEDIT、を選択し、メールを編集状態にする。
４、CTRL＋Fで、文字列検索。（「発表日」を検索します。）
５、「発表日」の下に発表される日時が8桁で表示されているので、sendkeysを使い、コピー。
６、業務に使うエクセルファイルをactivateする。
■■ここでVBAを使いたいのですが、WSH内のプラグラム内で、VBAを入力することは可能でしょうか？■■
７、エクセルファイルを開いたら、発表日がある列の空白セルのひとつにペースト。（上のセルから順にペーストしていくので、 i=1 activate.cells(F,i) i=i=1 do while i=10のようにコマンドするつもりです。）
８、業務のメールボックスを再びActivateする。
■■（業務のメールボックスは新しいメールをタブでふぴじする仕組みになっているので、どうのようにActivateすればいいか困っています。）■■
９、開いてあるメールを閉じる。（Sendkeysで閉じる予定です）（これから処理する全てのメールを開いたまま、プログラムを実行すれば、確実にエラーが起きるような数のメールなので。）
１０、メールボックスに戻るので、{down}と｛enter｝で次のメールを開く。
繰り返し。

●●●困っていること●●●
１、sendkeysをなるべく使わずに実行したい。
sendkeysでは、たとえば他のプラグラム（セキュリティーソフトなど）が実行された場合でも、そのまま実行され続けるので、リスクが大きい。
２、仮に１で書いたような事態が起きた場合、プログラムを自動的に停止するようにしたいが、どのやってコンピューターにエラーが起きていると判断させるかわからない（違うメールやプログラムを開いている場合に呈する等）。
３、エクセルと連携させて、Sendkeysを減らしたい。
４、繰り返し処理はこの場合、どうやって命令するのか。

●●●今のコード●●●
var WShell = WScript.CreateObject("WScript.Shell");
WShell.AppActivate("業務に使うメールソフト(別のウィンドウに開いてある必要があります)");
WShell.Sendkeys("{ENter}");
WScript.sleep(100);
WShell.sendkeys("%");
WScript.sleep(100);
WShell.sendkeys("a");
WScript.sleep(100);
WShell.sendkeys("d");
WScript.sleep(100);
WShell.sendkeys("^F");
WScript.sleep(100);
WShell.sendkeys("検索したい文字列");
WScript.sleep(100);
WShell.sendkeys("｛ESC｝");
WShell.sendkeys("{DOWN}");
WScript.sleep(100);
WShell.sendkeys("+{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}");
WScript.sleep(100);
WShell.sendkeys("^c")
WScript.sleep(100);
WShell.AppActivate("EXCEL");
WScript.sleep(10000);
WShell.sendkeys("セルまで移動")
WShell.sendkeys("^V");
WShell.AppActivate("業務に使うメールソフト");
WShell.sendkeys("%");
WShell.sendkeys("w");
WShell.sendkeys("window がある番号");
WShell.sendkeys("%");
WShell.sendkeys("^W");
WShell.sendkeys("{DOWN}");
WScript.Echo "作業が完了しました。"

回答No.5

SHIMAPEE

回答番号 No.4のお礼へのアドバイスです。

exportの処理についてです。

私の想像では、対象のメールが一覧になっていて、それを上から順番に処理するというものです。処理する先頭のメールを選択しておいて開始します。一つのメールをexportしたら{DOWN}で次のメールを選択してループ。

ここで問題になるのは、どうやってループを止めるのかということではないでしょうか。一つの解は、処理するメールの数を入力することです。入力にはVBScriptだと組み込みのInputBox関数が使えるのですが、JScriptにはありません。そこでExcelのInputBoxを使うことにします。

------
var Wsh = WScript.CreateObject("WScript.Shell");
var MB_YESNO=4, MB_ICONQUESTION=32, MB_TOPMOST=0x40000, IDYES=6;
var ExportDir = "C:\\test\\";
var SaveBase = "SaveFile";
var Default = 10;
oExcel = WScript.CreateObject("Excel.Application");
try{
while(true){
Count = oExcel.InputBox("処理するメールの件数を指定して下さい。[1-100]",
"件数の入力", Default);
if (!Count)
WScript.Quit();
if ((1<=Count)&&(Count<=100))
break;
}
}
catch(e){}
finally{
oExcel.Quit();
}
if((Wsh.Popup(Count + "件のメールを \"" + ExportDir + "\" にExportします。\r\r"+
"実行しますか？",
0,"実行の確認",MB_YESNO+MB_ICONQUESTION+MB_TOPMOST))!=IDYES)
WScript.Quit();
// 実行
for (i = 1; i <= Count; i++){
Num = "0000" + i; // ついでにファイル名の生成の方法
SaveFileName = ExportDir + SaveBase + Num.substr(Num.length-5, 5) + ".txt";
WScript.Echo(SaveFileName);

// ここにexportの処理を書く
// {DOWN}

}
WScript.Echo(Count + "件のメールを処理しました。");
-----

なお、exportの形式は次のステップで検索するためには、rtfではなくtxtにすべきです。注目の箇所は保存できているのですよね。メモ帳やWordで開いてSendKeysで検索するのではなく、WSHでファイルを読み込んで検索します。

ASCIIを選択した後の小さなウィンドウはDefaultのままでよいと思います。

sendkeyの脆弱性についてです。その時点で処理すべきアプリケーションのタイトルがわかっているなら、適宜AppActivateを実行するのは良いアイデアです。ifを使う必要はなく無条件でAppActivateを実行してよいです。そもそもWSH単体ではActiveなWindowのタイトルを得る機能がありません。

お礼

いつもありがとうございます。

ひとつ言い忘れていたことがありました。
メールを閉じた状態で、メールボックス受信メール一覧の画面で、exportすると、
Calender File(.jcs)
Comma seperated Value
Lotus 1-2-3
structured text
Tabular text
と、なります。
メールを開くと、
RTFやASCIIを選択できるようになります。この場合はどうなるのでしょうか？
恐らく、非常に申し訳ないのですが、現在アイディアとして出ているものが使えなくってしまうのではないかと心配なのですが・・。