最終更新日　2017/4/11

サンプルは個人的な好みのため基本的にJScriptです。内容は私のWindows XP Pro, Vista Ultimateなどで試した結果ではありますが環境に依存します。うまく動かなかったら連絡くれれば何とかなるかも!?

SKLogin.js

ネットワークのログインなどの入力を簡単にするWSH JScriptです。

たとえば下のようなダイアログが出てきたときにキー操作一発で入力できます。「パスワードを記憶させ方が簡単じゃん！」というのは反則とします。（笑）


SKLogin.lzhをダウンロード、解凍し、ユーザID、パスワードを書き込んで下さい。更にショートカットを作ってスタートメニューのどこかに置き、キーボードショートカットを割り当てます（あぁ、文字で書くとややこしい）。キーボードショートカットの割り当て方法はMicrosoftのサイトを参照しましょう。Windows98,NT,2000も同様にできます。

マイクロソフト サポート技術情報 - 310417 Windows XP でプログラムにキーボード ショートカットを割り当てる方法

Rot13関数は必ずしも必要ありませんが、スクリプト中にパスワードがそのまま見えたらいやですよね。気にならない人はそのまま記述してSendKeysしてもＯＫ。

Rot13関数に記述する文字列は別掲のRot13input.wsfスクリプトで作成できます。

ダイアログが出たときにキーボードショートカットを押すと一発で入力できます。

// SKLogin.js - ネットワークログイン
//
//                  Copyright(C) 2001 A.Shimada
//                                    2001.1.29

var Wsh = WScript.CreateObject("WScript.Shell");

Wsh.AppActivate (" に接続");      // ウィンドウタイトル後方一致

WScript.Sleep(100);
Wsh.SendKeys ("xxxxxxxxx");       // ★ユーザIDを記述する
WScript.Sleep(300);
Wsh.SendKeys ("{TAB}");
WScript.Sleep(300);
Wsh.SendKeys (Rot13("xxxxxxxx")); // ★Rot13(下記参照)したパスワードを記述する
WScript.Sleep(300);
Wsh.SendKeys ("{enter}");

// Rot13 - アルファベットを13文字ずらす関数
//
// 繰り返すと元に戻る。アルファベットでない文字はそのまま。
// ex. Hoge1hoge2 → Ubtr1ubtr2 → Hoge1hoge2
//
// Copyright(C) 2001 A.Shimada

function Rot13(str){
var i, c, s="" ;
var Lower="nopqrstuvwxyzabcdefghijklm";
var Upper="NOPQRSTUVWXYZABCDEFGHIJKLM";
for (i=0; i<=str.length-1; i++){
  c=str.substr(i,1);
  if (("a"<=c) & (c<="z"))
    s += Lower.substr(c.charCodeAt(0)-97,1); // 97="a"
  else if (("A"<=c) & (c<="Z"))
    s += Upper.substr(c.charCodeAt(0)-65,1); // 65="A"
  else
    s += c;
};
return(s);
}

DelayKaspersky.js

セキュリティソフト カスペルスキーの起動を遅らせるWSH JScriptです。

セキュリティソフトの試用版をいくつか試し、ジャストシステム販売のカスペルスキーが気に入って使っているのですけれども、タスクバーの通知領域（タスクトレイ）のアイコンが減っているのに気づきました。（苦笑）　根本対策はアイコンが出てこないソフトの改善（通知領域アイコン登録のタイムアウトを考慮）だと思いますが、タイムアウトが起きやすくなったのはカスペルスキーが忙しいせいでしょう。それならカスペルスキーの起動を遅らせればよいだろうと考えてスクリプトを作りました。当然ジャストシステム非公認です。（笑）　もっと良い設定があるかもしれません。

DelayKaspersky.lzhをダウンロード、解凍し、スタートアップフォルダに入れます。なお、カスペルスキーの[設定]-[プロテクション]画面で[システム起動時にカスペルスキーインターネットセキュリティを実行する]チェックを外しておきます。

Windows XP + Kaspersky Internet Security 6.0で確認しています。

// DelayKaspersky.js - Kasperskyの起動を遅らせる
//
// [設定]-[プロテクション]画面の下記のチェックを外しておきます。
// [システム起動時にカスペルスキーインターネットセキュリティを実行する]
//
// Copyright(C) 2007 A.Shimada
//
// 2007/7/14  作成

var Wsh = WScript.CreateObject("WScript.Shell");
WScript.Sleep(10000);
Wsh.Run("\"C:\\Program Files\\Kaspersky Lab\\Kaspersky Internet Security 6.0\\avp.com\"", 2);

Rot13input.wsf

1バイト英字を13文字ずらして表示するWSHスクリプトです。結果はCtrl+Cでコピーできます。


SKLogin.jsなどで使用しているRot13関数で記述する文字列を作れます。
Rot13input.lzhをダウンロード、解凍して下さい。

<JOB>
<COMMENT>
  Rot13input.wsf - アルファベットを13文字ずらした文字列を表示する

  Copyright(C) 2002 A.Shimada
  2002/5/19 作成
</COMMENT>
<SCRIPT LANGUAGE="VBScript">
  function prompt(sPrompt,sTitle,sDefault)
    prompt = inputbox(sPrompt,sTitle,sDefault)
  end function
</SCRIPT>
<SCRIPT LANGUAGE="JScript">
  var result="";
  result = prompt("文字列を入力して下さい。\n\n"+
                  "1バイト英字を13文字ずらして表示します。","Rot13","");
  if (typeof(result)=="string" && result!=""){
    prompt("1バイト英字を13文字ずらした結果です。","Rot13",Rot13(result));
  }

  // アルファベットを13文字ずらす関数
  //
  // 繰り返すと元に戻る。アルファベットでない文字はそのまま。
  // ex. Hoge1hoge2 → Ubtr1ubtr2 → Hoge1hoge2
  //
  // Copyright(C) 2001 A.Shimada
  function Rot13(str){
  var i, c, s="" ;
  var Lower="nopqrstuvwxyzabcdefghijklm";
  var Upper="NOPQRSTUVWXYZABCDEFGHIJKLM";
  for (i=0; i<=str.length-1; i++){
    c=str.substr(i,1);
    if (("a"<=c) & (c<="z"))
      s += Lower.substr(c.charCodeAt(0)-97,1); // 97="a"
    else if (("A"<=c) & (c<="Z"))
      s += Upper.substr(c.charCodeAt(0)-65,1); // 65="A"
    else
      s += c;
  };
  return(s);
  }
</SCRIPT>
</JOB>

FullPath.wsf

ファイルやフォルダをドロップするとフルパスを表示するWSHスクリプトです。Ctrl+Cでコピーできます。


FullPath.lzhをダウンロード、解凍して下さい。

// FullPath.wsf - フルパスを得る
//
//                             Copyright(C)2002 A.Shimada

<JOB>
<SCRIPT LANGUAGE="VBScript">
Function Prompt(sPrompt,sTitle,sDefault)
  Prompt = InputBox(sPrompt,sTitle,sDefault)
End Function
</SCRIPT>

<SCRIPT LANGUAGE="JScript">
var Wsh = WScript.CreateObject("WScript.Shell");
var Arg = WScript.Arguments;
var Dummy;

if (Arg.length==0) {
  Wsh.Popup("フルパスを求めたいファイル又はフォルダをドロップして下さい。\n"+
            "ショートカットをSendToフォルダに入れて送るようにすると便利です。");
  WScript.Quit();
}

Dummy = Prompt("指定されたファイル又はフォルダ","フルパスを得る",Arg(0));

</SCRIPT>
</JOB>

FullPathA.js

ファイルやフォルダをドロップするとフルパスを表示し、クリップボードにコピーするWSH JScriptです。

あらかじめAutoItXというフリーソフトをインストールする必要があります。ダウンロード〜インストールの説明はこちら。

FillPathA.lzhをダウンロード、解凍して下さい。

// FullPathA.js - フルパスを得る　AutoItX活用バージョン
//
//                             Copyright(C)2003 A.Shimada

var Wsh = WScript.CreateObject("WScript.Shell");
var Aix = WScript.CreateObject("AutoItX.Control");
var Arg = WScript.Arguments;
var SecToWait=5;                      // 5秒で消す
var MB_OK=0, MB_ICONINFORMATION=64;

if (Arg.length==0) {
  Wsh.Popup("フルパスを求めたいファイル又はフォルダをドロップして下さい。\n"+
            "ショートカットをSendToフォルダに入れて送るようにすると便利です。");
  WScript.Quit();
}

Aix.ClipPut (Arg(0));

Wsh.Popup("クリップボードにコピーしました。\n\n"+Arg(0),SecToWait,
          "フルパスを得る",MB_OK+MB_ICONINFORMATION);

HelpView.js

コンパイル済みヘルプファイルを開く際にフォントサイズとウィンドウを設定するWSH JScriptです。フリーソフトを使います。こんなこともできます、というサンプルです。

よく使うHTMLヘルプファイルのフォントサイズ、ウィンドウの位置と大きさをお好みで表示できます。本スクリプトはWindows Scriptのヘルプファイルの場合のサンプルです。他のファイルに使うには書き換える必要があります。

あらかじめAutoItXというフリーソフトをインストールする必要があります。ダウンロード〜インストールの説明はこちら。

HelpView.lzhをダウンロード、解凍し、必要に応じて書き換えて下さい。

// HelpView.js - ヘルプを開く際にフォントサイズとウィンドウを設定する
//
// Copyright(C) 2001,2003 A.Shimada

var HelpFile ="\"C:\\Program Files\\Microsoft Windows Script\\ScriptDocs\\Script56.CHM\"";
                                  //★ヘルプファイルの場所を指定する
var HelpTitle="Windows スクリプト テクノロジ";
                                  //★ウィンドウタイトルを指定する
var RegIEScr ="HKCU\\Software\\Microsoft\\Internet Explorer\\International\\Scripts\\";
var Wsh = WScript.CreateObject("WScript.Shell");
var AX  = WScript.CreateObject("AutoItX.Control");
var SIdx, FSize, ret;

//SIdx =Wsh.RegRead(RegIEScr+"Default_Script").toArray()[0];
                                  //Default Scriptのindexを求める
SIdx=24;
FSize=Wsh.RegRead(RegIEScr+SIdx+"\\IEFontSize").toArray()[0];
                                  //今のフォントサイズを退避する

Wsh.RegWrite(RegIEScr+SIdx+"\\IEFontSize",2,"REG_BINARY");
                                  //★好みのサイズ1=小,2=中,3=大を設定する
Wsh.Run (HelpFile);
ret=AX.WinWait(HelpTitle,"",5);
if (ret==0){
  AX.WinMove(HelpTitle,"",365,35,895,640);
}                                 //★好みのX,Y,Width,Heightを指定する

Wsh.RegWrite(RegIEScr+SIdx+"\\IEFontSize",FSize,"REG_BINARY");
                                  //フォントサイズを回復する

FolderOpen.js

エクスプローラでフォルダを開くときに、ウィンドウの位置と大きさを設定するWSH JScriptです。フリーソフトを使います。パラノイア向け？

FolderOpen.lzhをダウンロード、解凍して、任意のフォルダ名とタイトル等に書き換えて下さい。ダブルクリックして実行します。指定の位置と大きさでウィンドウが表示されます。ショートカットを作ってキー操作で実行したり、スタートメニューから実行したりするのも便利。なお、AutoItXというフリーソフトをインストールする必要があります。ダウンロード〜インストールの説明はこちら。

既にHelpView.jsで使っている技ですが、ウィンドウがいつも指定どおり表示されるのは気持ちいいですよね！？　そのはずですので切り出してみました。

// FolderOpen.js - Explorerフォルダウィンドウの大きさと位置を設定する
//
// 2004.2.27  作成
var Explorer = "%SystemRoot%\\explorer.exe";
var Wsh = WScript.CreateObject("WScript.Shell");
var AX  = WScript.CreateObject("AutoItX.Control");
var Folder = "\"C:\\Documents and Settings\""; // ★フォルダ名
var Title  = "Documents and Settings";         // ★ウィンドウタイトル（前方一致）
var ret;
Wsh.Run (Explorer+" "+Folder);
ret=AX.WinWait(Title,"",5);
if (ret==0){
  AX.WinMove(Title,"",70,200,640,480);         // ★ウィンドウのx,y,w,h
}

ZZdel.js

Windows Tempフォルダの中身を消すWSH JScriptです。

本スクリプトをそのまま実行すると環境変数tempが示すWindws Tempフォルダの内容を削除します。フォルダの中身を消す関数(DelTree)を定義して使っていますので、消すフォルダを容易に追加できます。

環境変数tempが定義されていないことはないと思いますが、フォルダ名を追加したときは慎重に確認しましょう。

ZZdel.lzhをダウンロード、解凍し、好みに書き換えて下さい。

// ZZdel.js - 指定フォルダの中身を消すスクリプト Version 2.1
//
//                          Copyright(C) 1999,2003 A.Shimada
//
var Wsh     = WScript.CreateObject("WScript.Shell");
var Fs      = WScript.CreateObject("Scripting.FileSystemObject");
var TempDir = Wsh.ExpandEnvironmentStrings("%temp%");

if(DelTree(TempDir+"\\")
// && DelTree("フォルダ名"+"\\")
// && DelTree("フォルダ名"+"\\")
   ){
  WScript.Echo("指定フォルダの中身を消しました。");
}
else{
  WScript.Echo("指定フォルダの中身は消せませんでした。");
}

// 指定フォルダ内のすべてのファイルとフォルダを消す関数
//
function DelTree(FolderName){
  // うまくいくことを確認したら下の1行をコメントにします
  if (Wsh.Popup(FolderName+"内を削除",0,"確認",33)!=1){return(false)};

  try {
    Fs.DeleteFile(FolderName+"*.*", true);
  }
  catch(e) {
    return (false);
  }
  try {
    Fs.DeleteFolder(FolderName+"*", true);
  }
  catch(e) {
    return (false);
  }
  return (true);
}

WordReplace.js

Microsoft Wordドキュメントの文字列を置換するWSH JScriptです。世界中にそのものズバリのサンプルがないようなのでアップしてみました。

WordReplace.lzhをダウンロード、解凍して下さい。ダブルクリックすると、まず、スクリプトと同じフォルダに置換元になるファイル WordReplaceSample.doc を自動的に作成します。その後のメッセージに対し続行すると文字列を置換し、ファイル YYYYMMDDHHMMSS.doc を保存します。

WindowsXP+OfficeXPの組み合わせで確認しています。たぶんWindows2000+Office2000でも動くでしょう。

このスクリプトの本質は最後の4行です。VBAヘルプを見て試行錯誤しました。

// Microsoft Word文字列の置換
var Wsh = WScript.CreateObject("WScript.Shell");
var Fs  = WScript.CreateObject("Scripting.FileSystemObject");
var FileName = "WordReplaceSample.doc";

Foldername = Fs.GetParentFolderName(WScript.ScriptFullName);

// 置換元になるWordファイルを作成する
oWord = WScript.CreateObject("Word.Application");
oDoc  = oWord.Documents.Add();
oDoc.Content.Font.Size = 12;
oDoc.Content.InsertAfter("#1#。ただいまの日時は#2#です。");
oDoc.SaveAs(Foldername+"\\"+FileName);
oDoc.Close();
oWord.Quit();

// Word文字列を置換する
oWord = WScript.CreateObject("Word.Application");
oWord.Visible = true;
oDoc  = oWord.Documents.Open(Foldername+"\\"+FileName);
Wsh.Popup("置換を始めます。");

dt = new Date();
HH = dt.getHours();
if (HH<6) {Msg="Ｚｚｚ"}
else if (HH<10) {Msg="おはよう"}
else if (HH<18) {Msg="こんにちわ"}
else {Msg="こんばんわ"};

if (WordReplace("#1#", Msg) &&
    WordReplace("#2#", dt.toLocaleString()))
  Wsh.Popup("全ての置換に成功しました。");
else
  Wsh.Popup("置換エラーがあります。");

oWord.ActiveDocument.SaveAs(Foldername+"\\"+GetYMDstr(dt)+".doc");
//oDoc.Close();
//oWord.Quit();

// DateオブジェクトからYMDHMS文字列を求める関数
function GetYMDstr(d){
var month, day, hour, min, sec;
  month = (d.getMonth()+1).toString(10); if (month.length==1) month="0"+month;
  day   = d.getDate().toString(10);      if (day.length==1) day="0"+day;
  hour  = d.getHours().toString(10);     if (hour.length==1) hour="0"+hour;
  min   = d.getMinutes().toString(10);   if (min.length==1) min="0"+min;
  sec   = d.getSeconds().toString(10);   if (sec.length==1) sec="0"+sec;
  return(d.getFullYear().toString(10)+month+day+hour+min+sec);
}

// Word文字列を置換する関数
function WordReplace(FindStr,ReplaceStr){
  return(oDoc.Range(0,oDoc.Characters.Count).Find.Execute
           (FindStr,0,0,0,0,0,1,0,0,ReplaceStr));
}

ExcelReplace.js

Microsoft Excelドキュメントの文字列を置換するWSH JScriptです。世界中にありがちなものですけれども、私だったらこう作ります。

ExcelReplace.lzhをダウンロード、解凍して下さい。ダブルクリックすると、まず、スクリプトと同じフォルダに置換元になるファイル ExcelReplaceSample.xls を自動的に作成します。その後のメッセージに対し続行すると文字列を置換し、ファイルYYYYMMDDHHMMSS.xls を保存します。

WindowsXP+OfficeXPの組み合わせで確認しています。たぶんWindows2000+Office2000でも動くでしょう。

このスクリプトの本質は最後の数行です。置換に先立って文字列があることを確認しています。

// Microsoft Excel文字列の置換
var Wsh = WScript.CreateObject("WScript.Shell");
var Fs  = WScript.CreateObject("Scripting.FileSystemObject");
var FileName = "ExcelReplaceSample.xls";
var xlValues=-4163, xlPart=2;

Foldername = Fs.GetParentFolderName(WScript.ScriptFullName);

// 置換元になるExcelファイルを作成する
oExcel = WScript.CreateObject("Excel.Application");
oBook  = oExcel.WorkBooks.Add();
oExcel.Cells(2,3).Value = "#1#。ただいまの日時は#2#です。";
oExcel.Range("C2").Font.Size = 14;
oExcel.DisplayAlerts = false;
oBook.SaveAs(Foldername+"\\"+FileName);
oExcel.DisplayAlerts = true;
oExcel.Quit();

// Excel文字列を置換する
oExcel = WScript.CreateObject("Excel.Application");
oExcel.Visible = true;
oBooks = oExcel.WorkBooks.Open(Foldername+"\\"+FileName);
Wsh.Popup("置換を始めます。");

dt = new Date();
HH = dt.getHours();
if (HH<6) {Msg="Ｚｚｚ"}
else if (HH<10) {Msg="おはよう"}
else if (HH<18) {Msg="こんにちわ"}
else {Msg="こんばんわ"};

if (ExcelReplace("#1#", Msg) &&
    ExcelReplace("#2#", dt.toLocaleString()))
  Wsh.Popup("全ての置換に成功しました。");
else
  Wsh.Popup("置換エラーがあります。");

oExcel.ActiveWorkbook.SaveAs(Foldername+"\\"+GetYMDstr(dt)+".xls");
//oExcel.Quit();

// DateオブジェクトからYMDHMS文字列を求める関数
function GetYMDstr(d){
var month, day, hour, min, sec;
  month = (d.getMonth()+1).toString(10); if (month.length==1) month="0"+month;
  day   = d.getDate().toString(10);      if (day.length==1) day="0"+day;
  hour  = d.getHours().toString(10);     if (hour.length==1) hour="0"+hour;
  min   = d.getMinutes().toString(10);   if (min.length==1) min="0"+min;
  sec   = d.getSeconds().toString(10);   if (sec.length==1) sec="0"+sec;
  return(d.getFullYear().toString(10)+month+day+hour+min+sec);
}

// Excel文字列を置換する関数
function ExcelReplace(FindStr,ReplaceStr){
  try{
    if (typeof(oExcel.Cells.Find
                 (FindStr,oExcel.Cells(1,1),xlValues,xlPart).Value)=="string")
      return(oExcel.Cells.Replace(FindStr,ReplaceStr,xlPart));
    else
      return(false);
  }
  catch(e){
    return(false);
  }
}

ExcelDateInput.js

Microsoft ExcelのInputBoxを使用して日付を入力要求/チェックするWSH JScriptです。何かの部品に使えるかもしれません。

ExcelDateInput.lzhをダウンロード、解凍し、ダブルクリックして実行します。何かに組み込んで使わないと意味はありませんが、さしあたり今日との差分日数を表示します。

WindowsXP+OfficeXPの組み合わせで確認しています。Windows2000+Office2000でも動きます。

// ExcelのInputBoxで日付を入力要求する。
// 1900/1/1〜2099/12/31の間の妥当な年月日であるかチェックする。
var Wsh = WScript.CreateObject("WScript.Shell");
var reDate = new RegExp("^(19|20)([0-9][0-9])\/([01]?[0-9])\/([0123]?[0-9])$");
var MB_TOPMOST=0x40000;

oExcel = WScript.CreateObject("Excel.Application");
try{
  dtInput = new Date();
  strErr  = "";
  strDefault = GetYMDstr(new Date());
  while (true){
    strInput = oExcel.InputBox(strErr+"日付を 1900-2099/mm/dd で指定して下さい。",
                               "日付の指定", strDefault);
    if (!strInput){
      oExcel.Quit();  // キャンセルされた
      WScript.Quit();
    }
    strDefault = strInput;
    if (strInput.match(reDate)==null){
      strErr = "形式が誤っています。\r\r";
      continue;
    }
    inty1 = parseInt(RegExp.$1,10)*100;
    inty2 = parseInt(RegExp.$2,10);
    intmm = parseInt(RegExp.$3,10);
    intdd = parseInt(RegExp.$4,10);
    dtInput.setFullYear(inty1+inty2, intmm-1, intdd);
    if ((1<=intmm)&&(intmm<=12)&&(1<=intdd)&&(intdd<=31)&&
        (dtInput.getDate()==intdd))
      break;
    strErr = "そのような年月日はありません。\r\r";
  }
}
catch(e){
  Wsh.Popup("Excelオープン中エラー。"+e.message,0,"エラー",MB_TOPMOST);
  oExcel.Quit();
  WScript.Quit();
}
finally{
  oExcel.Quit();
}

dtNow = new Date();       // さしあたり今日との差分日数を表示する
dtNow.setHours(0,0,0,0);
dtInput.setHours(0,0,0,0);
diffdays = (dtInput-dtNow)/(1000*60*60*24);
if (diffdays<0){
  strBA = "前"
  diffdays = -diffdays;
}
else
  strBA = "後"
Wsh.Popup(GetYMDstr(dtInput)+"は"+diffdays+"日"+strBA+"です。",0,"結果",MB_TOPMOST);

// DateオブジェクトからYMD文字列を求める関数
function GetYMDstr(d){
var month, day;
  month = (d.getMonth()+1).toString(10); if (month.length==1) month="0"+month;
  day   = d.getDate().toString(10);      if (day.length==1) day="0"+day;
  return(d.getFullYear().toString(10)+'/'+month+'/'+day);
}

emlReuse.js

emlファイルをドロップする、又は送ると、emlファイルの内容を再使用してOutlook　Expressを編集の状態で開きます。ただし本文の大きさは1〜3KB位が限界です。

追加情報です。KB911567対策のアップデートが載りました。このスクリプトも意味がなくなりましたが、記念に残します。(2006/6/10)

　保存した .eml ファイルを Outlook Express の作成モードで開くことができない
　（成功したXUnsent.regファイルです。ダウンロードし、ダブルクリックして実行すると追加されます。）

アップデートを適用し、レジストリを操作するとX-Unsent: 1の指定が有効になりますので、作成中のemlファイルは編集の状態で開けます。また、送信済みのemlファイルを再使用するにはX-Unsent: 1を書き加えてやればよいです。Windows Scripting Host Laboratory（管理人むたぐちさん）の実用スクリプトダウンロードにある「emlファイルを再編集する」がそのものズバリです。(2006/6/24)

追加情報です。2006年12月のWindows Update KB923694に上のアップデートが取り込まれたようです。レジストリを操作すればX-Unsent: 1の指定が有効になります。(2006/12/17)　補足：取り込まれたことが表示されました。（2007/1/22付）

【説明】

これまで、デスクトップなどに保存した作成中のemlファイルをダブルクリックして編集していた方は多いようです。しかし2006年4月のWindows Update KB911567を適用すると編集状態にならなくなります。近々にも改善はされると思いますが、それまでのつなぎに、同等のことを実現するスクリプトを作ってみました。WindowsXP Pro SP2 + Outlook Express 6で確認しています。

・宛先、CC、BCC、件名、及びテキストの本文のみを再使用できます。HTML部分、及び添付ファイルは再使用できません。

・仕組み上、本文の大きいものは再使用できません。1KB位なら問題なさそうですが3KBでもできたものがあり、文字コードが関係していると思われます。

・本文を読んでいますので、今日の日付を埋め込むようなことが簡単にできます。これはいろいろ応用できそうです。一例として "{DATE}" を "YYYY/MM/DD" で置換える処理を入れてみました。

・v1.0で、emlファイル中の宛先、CC、BCCの表示名を再現するようにしましたが、この処理によって本文の大きさの制限がきびしくなってしまいました。制限にかかるようになった場合は更に縮めるか、v0.xをお使い下さい。

・emlファイル中に表示名がない場合は通常Outlook Expressの機能によってアドレス帳の表示名が現れます。

【インストールとアンインストール】

(1)ダウンロードしたファイルemlReusx.LZHを解凍して下さい。配布ファイルが展開されます。 emlReuse.jsをデスクトップに置くか、SendToフォルダに入れて「送る」ことができるようにするとよいでしょう。あるいは、emlReuse.jsは適当なフォルダに置き、ショートカットを作ってデスクトップやSendToフォルダに置いてもよいです。

(2)コード変換のため外部プログラムnkfwinが必要です。インターネットを「nkfwin」で検索、ダウンロード、解凍し、nkfwin.exeをシステムのsystem32フォルダにコピーして下さい。下記のページの中程にnkfwin.zipがあります。

VA007219 ソフトウェアの配布 dfd64 diskmap dkclear sdf　（VA007219さん）
nkf.exe nkf32.dll Windows用 ネットワーク用漢字コード変換フィルタ シフトJIS,EUC-JP,ISO-2022-JP,UTF-8,UTF-16
nkfwin.zip version 2.0.5.1 2 download readme files nkfwin起動画面 nkfwin実行画面

nkfwin.zip version 2.0.5.1 2 downloadをクリックしてダウンロード、解凍します。そして2051\win\フォルダのnkfwin.exeをC:\Windows\system32フォルダにコピーして下さい。

アンインストールは、emlReuse.js、そのショートカット、及びnkfwin.exeを削除して下さい。レジストリは変更していません。

【使い方】

(0)再使用したいemlファイルを作成します。Outlook Expressでメールを選択して適当なフォルダにドラッグ&ドロップします。あるいは、Outlook Expressで作成中のメールをメニュー[ファイル]-[名前を付けて保存]で保存します。

　　なお、emlファイルのヘッダに X-Unsent: 1 を書き加える必要はありません。なにしろ見てませんから。(^^;;;

(1)emlファイルをemlReuse.jsのアイコンにドロップするか、右クリック「送る」でemlReuse.jsに送ります。すると編集状態でOutlook Expressが開きます。本文のサイズが大きい場合はエラーメッセージが出ますので、なんとか縮めるようにして下さい。

使用にあたってのヒントがありますので、ぜひREADME.TXTをご覧下さい。スクリプトの仕組みも書いてあります。

【改訂歴】

2006/4/28 v1.02 表示名中の"()\を再現するようにした。他。
2006/4/22 v1.0 宛先、CC、BCCの表示名を再現するようにした。他。
2006/4/28 v0.82 宛先、CC、BCCの抽出処理を変更した。

v1.02をダウンロードする（LHA書庫ファイルemlReus8.lzh:5,657バイト）

v0.82をダウンロードする（LHA書庫ファイルemlReus7.lzh:5,306バイト）

emlTime.js

Windows Vistaで、保存したemlファイルの更新日時が変わってしまう現象があります。このスクリプトはemlファイルのタイムスタンプを、ヘッダのRecieved又はDateフィールドの日時に合わせるものです。

フリーソフトのFTIMEを使用しますのでダウンロードして準備しておきます。
FTIME　Win32ファイル・タイムスタンプ変更ユーティリティ　（H.Yasumuroさん）

emlTime1.zipをダウンロード、展開し、emlTime.jsあるいはそのショートカットをデスクトップなどに置きます。

emlファイル又はフォルダをドラッグ＆ドロップ（複数可）すると、ヘッダのRecieved又はDateフィールドの日時を読んでタイムスタンプを合わせます。処理途中に確認メッセージと、最後に終了メッセージが出ます。わずらわしいときはコメントにして下さい。

なお、起動時に「このファイルを開きますか？　不明な発行元…」というメッセージが出たときは、emlTime.jsを右クリックしてプロパティ画面を出し、「ブロックの解除」ボタンを押して下さい。

Windows Vista Ultimate SP1, XP Pro SP2で確認しています。

たぶん、もう少しインタフェースとコードを見直しますが、とりあえず動くものができたということで公開します。(2008/4/25)
フォルダをドロップできるようにしました。また、メッセージを見直しました。など(2008/4/26)

// emlファイルのタイムスタンプをReceived又はDateに合わせる
//
// Copyright(C) 2002,2008 A.Shimada
// 2008/4/26 更新

var Wsh = WScript.CreateObject("WScript.Shell");
var Fs  = WScript.CreateObject("Scripting.FileSystemObject");
var Arg = WScript.Arguments;
var ForReading=1, ForWriting=2, ForAppending=8;
var WS_NoShow=0, WS_NORMAL=1, WS_MinNoActChg=7;
var reReceived=/^Received:[^;]+;[^0-9]+([0-3]?[0-9]) (...) ((?:19|20)[0-9][0-9]) ((?:[0-1][0-9]|2[0-3]):[0-5][0-9]):[0-5][0-9]/i;
var reDate=/^Date:[^0-9]+([0-3]?[0-9]) (...) ((?:19|20)[0-9][0-9]) ((?:[0-1][0-9]|2[0-3]):[0-5][0-9]):[0-5][0-9]/i;
var MONTH = new Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep",
                      "Oct","Nov","Dec");
var nFile,nFolder,ix,msg;

if (Arg.length==0) {
  WScript.Echo("emlファイル又はフォルダをドロップして下さい。");
  WScript.Quit();
}
nFile   = 0;
nFolder = 0;
for (ix=0 ; ix<Arg.length ; ix++){
  if (Fs.FileExists(Arg(ix))){
    processFile(Arg(ix));
  }
  else if (Fs.FolderExists(Arg(ix))){
    processFolder(Arg(ix));
  }
}
msg = "終了しました。 emlファイル数："+nFile;
if (nFolder!=0)
  msg += "、フォルダ数："+nFolder;
WScript.Echo(msg);

// ファイルの処理
function processFile(fName){
var ext;
  ext = Fs.GetExtensionName(fName);
  if (ext.toLowerCase()!="eml")
    return(10);
  nFile++;
  if ((nFile % 50)==0)  //★ 50件毎にメッセージを表示する
    WScript.Echo("emlファイルを処理中です。 （"+nFile+"件目）");
  return(emlTime2HeaderTime(fName));
}
// フォルダの処理
function processFolder(foName){
var fo, fic, foc;
  WScript.Echo("フォルダを処理中です。\n\n\""+foName+"\"");
  nFolder++;
  fo  = Fs.GetFolder(foName);
  fic = new Enumerator(fo.files);
  for (; !fic.atEnd(); fic.moveNext()) // ファイルについて
    processFile(fic.item());
  foc = new Enumerator(fo.SubFolders);
  for (; !foc.atEnd(); foc.moveNext()) // 下位フォルダについて
    processFolder(foc.item());
}
// emlファイルのタイムスタンプをヘッダの時刻に合わせる関数
function emlTime2HeaderTime(fName){
var Ta,rfound,dfound,ctr,L1,L2,command,year,month,m,day,time;
  Ta = Fs.OpenTextFile(fName, ForReading);
  if (Ta.AtEndOfStream){
    WScript.Echo("ファイルは空です。\n\n\""+fName+"\"");
    return(10);
  }
  rfound = false;
  dfound = false;
  L1 = Ta.ReadLine();
  ctr = 1;
  while(!Ta.AtEndOfStream && ctr<1000){   // ヘッダは1000行もない
    while(!Ta.AtEndOfStream && ctr<1000){
      L2 = Ta.ReadLine();
      ctr++;
      if ((L2!="") && (L2.substr(0,1)<=" ")){
        L1 += L2.replace(/^\s*/g, "");
      }
      else
        break;
    }
    if (L1.match(reReceived)!=null){    // Receivedが見つかったら
      rfound = true;                    // ループを抜ける
      break;
    }else if (L1.match(reDate)!=null){  // Dateが見つかったら
      dfound = true;                    // 記憶しておく
      dLine = L1;
    }
    if (L2=="")
      break;
    L1 = L2;
  }
  Ta.Close();
  if ((!rfound) && (!dfound)){
    WScript.Echo("ReceivedもDateも見つかりません。\n\n\""+fName+"\"");
    return(20);
  }
  if (!rfound)            // Receivedは見つからなかったがDateがあった
    dLine.match(reDate);  // Dateでmatchのやり直し
  day   = RegExp.$1;
  month = RegExp.$2;
  year  = RegExp.$3;
  time  = RegExp.$4;
  for (m=1 ; m<=12 ; m++)
    if (month==MONTH[m-1])
      break;
  if (m==13){
    WScript.Echo("ヘッダの月名を認識できません。\n\n\""+fName+"\"\n\""+L1+"\"");
    return(21);
  }
  command = "cmd /c ftime -d "+
            year+"\/"+m+"\/"+day+" -t "+time+" -- \""+fName+"\">nul";
  //WScript.Echo("コマンド実行 "+command);  //★ わずらわしいときはコメントに
  Wsh.Run (command, WS_NoShow, true);
  return(0);
}

emlMove.js

【説明】

WindowsメールやOutlook Expressのメールを選択してエクスプローラの適当なフォルダにドラッグ&ドロップするとemlファイルを作成できます。しかし、この方法はドラッグ＆ドロップを複数回行った場合に件名（ファイル名）が重複するとエラーになってしまいます。本スクリプトはその問題を解決するため、ファイル名が重複しないように自動的に番号(1),(2),(3)…を付加して移動します。

【使い方】

emlMove.zipをダウンロード、展開します。スクリプト内の移動先フォルダを適切に変更し、デスクトップなどに置いておきます。

空の作業用のフォルダにWindowsメールやOutlook Expressからドラッグ&ドロップしてemlファイルを作成します。そのemlファイルを本スクリプトのアイコンにドラッグ&ドロップします。なお、1回にドラッグ&ドロップできるファイル数は20個位です。「引数一覧が長すぎます」というエラーになった場合は複数回に分けて下さい。

また起動時に「このファイルを開きますか？　不明な発行元…」というメッセージが出たときは、emlMove.jsを右クリックしてプロパティ画面を出し、「ブロックの解除」ボタンを押して下さい。

Windows Vista Ultimate SP1, XP Pro SP3で確認しています。

【更なるヒント】

1. Windows Vistaでは作業用のフォルダにemlファイルを作成した後、本スクリプトを使わないで保存用のフォルダに移動してもよいです。重複エラーになっても「移動するが両方のファイルを保持する」指定で自動的に順序番号を付けられます。
   
   
2. Outlook Expressで多数のemlファイルを取り出す場合は、別掲のOEviewなどのツールを使うとよいです。重複時に順序番号を付けて保存用のフォルダに取り出しできます。
   
   
3. 移動先フォルダが複数ある場合は、スクリプトをコピーし、移動先フォルダを書き換えてアイコンを並べておくとよいでしょう。また、移動先フォルダが多数の場合は、コピーしたスクリプトをSendToフォルダに置き、emlファイルを右クリックしてそれぞれに「送る」のもよいでしょう。
   
   
4. ドロップ先や送り先はスクリプト本体でなく、ショートカットでもよいです。
   
   
5. 誤って同じメールをコピーしてしまった場合は別掲のemlCheckを使うと重複したメールを簡単にチェック、削除できます。

// emlMove.js - emlファイルをファイル名が重複しないように移動する
//
// Copyright(C) 2008 A.Shimada
// 2008/11/24 作成

var DestDir = "C:\\test"; // ★移動先フォルダ
Wsh = WScript.CreateObject("WScript.Shell");
Fs  = WScript.CreateObject("Scripting.FileSystemObject");
Param = WScript.Arguments;
if ((Param.length==0)||(!Fs.FileExists(Param(0)))||
    (Fs.GetExtensionName(Param(0)).toLowerCase()!="eml")){
  WScript.Echo("emlファイルを1個以上20個位までドロップして下さい。");
  WScript.Quit();
}
if (!Fs.FolderExists(DestDir)){
  WScript.Echo("移動先フォルダ \""+DestDir+"\" がありません。作成して下さい。");
  WScript.Quit();
}
if ((Fs.FileExists(Param(0)))&&
    (Fs.GetParentFolderName(Param(0)).toLowerCase()==
     Fs.GetAbsolutePathName(DestDir).toLowerCase())){
  WScript.Echo("移動元と移動先フォルダ \""+DestDir+"\" が同じです。終了します。");
  WScript.Quit();
}
for (i=0; i<Param.length; i++){
  MoveEML(Param(i));
}

// emlファイルを移動する
function MoveEML(eml){
  var FileBase, FileExt, FileName, Modify;
  if (Fs.FileExists(eml)){
    FileBase = Fs.GetBaseName(eml);
    FileExt  = Fs.GetExtensionName(eml);
    if (FileExt.toLowerCase()=="eml"){
      FileName = FileBase+"."+FileExt;
      Modify = 0;
      while(Fs.FileExists(Fs.BuildPath(DestDir,FileName))){
        Modify++; // ファイル名が重複したら(1),(2),(3)…を付ける
        FileName = FileBase+"("+Modify+")."+FileExt;
      }
      Fs.MoveFile(eml,Fs.BuildPath(DestDir,FileName));
    }
  }
}

OEDownCount.js

Microsoft Outlook Express 6のニュース読み取りの、1度に取得するヘッダー数の最大は1000に制限されています。この数を増やすWSH JScriptです。新しいニュースグループを読むときに便利かもしれません。

OEDownCount.lzhをダウンロード、解凍し、ダブルクリックして実行します。Outlook Express 6の[ツール]-[オプション]メニューの読み取りタブの1度に取得するヘッダー数が書き換わります。なお、'1000'というマジックナンバーはプログラムでチェックしているようで、1000を超えた数のままOKボタンを押すとエラーになります。その際は1000以下に減らして保存し、もう一度このスクリプトを実行しましょう。

WindowsXP+Outlook Express 6の組み合わせで確認しています。

要はレジストリ書き換え技ですが、目的のキーに到達するために謎のキーを一つ読んでいます。なお、複数ユーザでのテストはしていません。

// Microsoft Outlook Express Newsの1回のダウンロード数を増やす
//
// Copyright(C) 2004 A.Shimada
// 2004/2/17 作成

var Wsh=WScript.CreateObject("WScript.Shell");
var RegPre  ="HKCU\\Identities\\";
var RegIdent="Default User ID";
var RegPost ="Software\\Microsoft\\Outlook Express\\5.0\\News\\Download at a time";
var MB_YESNO=4, MB_ICONQUESTION=32, IDYES=6, IDNO=7;
var retId, retNo;
var DownNo = 5000;  //★1回のダウンロード数

try{
  retId=Wsh.RegRead(RegPre+RegIdent);
  retNo=Wsh.RegRead(RegPre+retId+"\\"+RegPost);
}
catch(e){
  Wsh.Popup("レジストリの読み取りに失敗しました。");
  WScript.Quit();
}

if(Wsh.PopUp("現在のダウンロード数は "+retNo+" です。"+DownNo+" に設定しますか？",
             0, "OutlookExpressの設定", MB_YESNO+MB_ICONQUESTION)==IDYES){
  Wsh.RegWrite(RegPre+retId+"\\"+RegPost, DownNo, "REG_DWORD");
}