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

SHIMAPEE

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

テキスト化はSendKeysで行うしか手が無さそうですね。回答番号5のスクリプトを参考に、テキスト化の自動化までを作って試してはどうでしょうか。

「// ここにexportの処理を書く」を展開して、SendKeysでメールを開く、ASCII textでexportする、メールを閉じる、ようにすればよいですね。「// {DOWN}」はおわかりかと思いますがSendKeysで一覧画面の下のメールを選択する処理です。

テキスト化ができましたら、実際にテキスト化された注目の箇所の行（2行になりますか）の一例を補足に書き込んで頂けませんか。例えば下のような感じで。

---------------
発表日
09092818
---------------

差し支えない範囲でできるだけ生のデータがよいです。見せて頂ければ、WSHを使って検索し、Excelに書き込む具体的なスクリプトをアドバイスできると思います。

お礼

ありがとうございます。

var WShell = WScript.CreateObject("WScript.Shell");
WShell.AppActivate("業務に使うメールソフト(別のウィンドウに開いてある必要があります)");
WScript.sleep(10000);
WShell.Sendkeys("{DOWN}")
WShell.Sendkeys("{ENter}");
WScript.sleep(100);
WShell.sendkeys("%");
WScript.sleep(100);
WShell.sendkeys("f");
WScript.sleep(100);
WShell.sendkeys("e");exportを選択
WScript.sleep(100);
WShell.Sendkeys("{ENter}");
WScript.sleep(3000);
WShell.sendkeys("letter"&"i");//unicode8を選択
WScript.sleep(100);
WShell.sendkeys("｛Enter｝");
WScript.sleep(20000);
WShell.sendkeys("%");
WScript.sleep(100);
WShell.sendkeys("f");
WScript.sleep(1000);
WShell.sendkeys("{DOWN}{DOWN}{DOWN}");closeを選択
WShell.Sendkeys("{ENter}");
WScript.Echo "作業が完了しました。"

Do while i=10のようなコマンドで、繰り返し処理したいのですが、何かいいアイディアはございませんか？
("letter"&"i")はなぜか０と入力されました。

補足

DATES:Material ID Ann. Dt. FCS Date
(GA. Date) Early Order Dt Lim. Avail. Dt. WDFM Date
ALL 09/03/31 09/04/10

です。
09/04/10が、Ann.dtで、抽出したいデータです。

ついでといっては何ですが、
RFA SPB (Special Bid) Industry Def. Cat.(+Subgroup)
= BA Code Document Number: Function Class Code: Japan Marketing Brand Ind.: Division (Segment
Acronym):
RFA 10A 47284A

から、47284Aを抽出することも可能でしょうか？