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.4

SHIMAPEE

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

一括でexportできないのは残念ですね…。
Comma seperated Value
structured text
Tabular text
でも文字化けですか。注目の箇所（「発表日」と発表される日時）だけでも見えれば何とかなりそうに思うのですが…。

一括がどうしてもできないのでしたら、2ステップで考えたらどうでしょう。
(1)一通一通exportでASCII text化することを自動化する。
(2)そのtextファイル群を入力としてExcelに書き出すことを自動化する。

一通一通メールを開いて検索するよりは、一通一通exportでASCII text化する方がSendKeysが少なくて済むのではないかと想像しています。ASCII textなら注目の箇所は見えますよね。

-----
『１、２、エクセルを操作するためのコマンドということは、たとえばそのコマンドからLotusや、メモ帳などを操作できないので、他のプラグラムが割り込んでも、操作ができないので、エラーとして処理が中止されるという理解でよろしいでしょうか？』

書かれた文には誤解があると思います。

回答No.2に書いたスクリプトは、WSHからExcelの機能を使った、いわば独立したプログラムになります。このプログラムの実行中は、他のプログラムが動作しようが、キーやマウスを操作しようが、エラーとして処理が中止されることはありません。Excelの保存まで自動化すれば、Excelの画面を全く表示せずバックグラウンドで動かすこともできます。

『Lotusや、メモ帳などを操作できない』のではなく『Lotusや、メモ帳などがActiveになっても影響を受けずに実行できる』のです。

一方SendKeysは、実行されたときにActiveなプログラムに文字を送りつける機能でしかありません。ですからスクリプトの実行中に意図しないプログラムが動作してActiveになると、誤って文字を送ってしまいます（誤動作）。また、本来意図したプログラムの操作が行われないことになります（これも誤動作）。

お礼

一括exportを使って処理を行うのは、恐らく不可能だと思います。
Lotusに詳しい同僚に聞いてもそれは不可能だといっていました。
その人は同じ同じようなことをしようとして挫折したそうです。。

ステップとして考えられるものは、
前提：Lotusと、業務のメールソフトは開いておき、業務のメールソフトをActivateさせておく。
１、sendkeyでAlt
２、sendkeyでF　ツールバーのfile
３、sendkeyでe　fileのexportを選択
４、sendkeyでenter　exportを決定
５、sendkeyでファイル名を入力
６、sendkeyでtab　拡張子選択のボックスを選択（同時に半角入力なので変換が必要ないため、ファイル名が決定される）
７、sendkeyでM　Microsoft RTFを選択
８、sendkeyでenter　Microsoft RTFを決定。
この場合は、ASCIIを選ぶよりも手順がひとつ少ないので、こちらを選択しようと思っています。またMS RTFはテーブルも表示されます。今のところ、ちなみにMS WordはViewrしか使えない人もいるのですが、Viewerでも問題ないでしょうか？

ASCIIでは、ファイル名を入力し、ASCIIを選択した後、新しい小さなウィンドウがチェックボックスが下記のようになっています。
●Default
○international　UTF-8
○Unicode
InternationalとUnicodeでは、文字化けをせずにメモ帳でもMSwordでも開けます。しかし、Lotus　SymphonyのWordでは開けません。またテーブルは削除されています。ちなみに、DefaultはD、InternationalはI、UnicodeはUが、ショートカットとして、設定されています。

困難な点
１、ファイル名入力
（複数のファイルを連続でexportする場合、loopなどをつかって、毎回違うファイル名を入力する方法はありますか？）
２、sendkeyの脆弱性
（sendkeyとsendkeyの間に、もし違うプログラムが割り込んだら、また処理されるべきプログラムをactivateするようなことはできないでしょうか？たとえば、activateされているwindowの名前を毎回読み込んで、Ifを使って、それが処理されるべきファイルと違ったら、elseを使って・・・など。）

詳しい説明ありがとうございます。