エクスプローラー風のeml形式ファイルの閲覧について(メールの整理方法)

回答番号：No.2 お礼への回答です。

D&Dの際にemlファイル名の重複を回避する方法を二つ書きます。

●その一。OEからのD&D先フォルダのemlファイルに自動的に連番を付けるフリーソフトを発見しました。動作環境はWindows 95/98 + OE5/5.5ですが、XP + OE6でも、更にはなんとVista + Windowsメールでも動きました。試してみてはいかがでしょうか。

RenEml　OEメッセージのドラッグ&ドロップ保存を支援...重複件名を自動処理
http://www.vector.co.jp/soft/win95/net/se202206. …

本ソフトは設定されたD&D先フォルダを監視する仕掛けです。D&D先フォルダをRenEmlのアイコンにD&Dすると設定済みの状態で起動されるので便利だと思います。あるいはD&D先フォルダが一つならショートカットを作ってリンク先に指定し、ダブルクリックで起動するとよいでしょう。

●その二。emlファイルを移動する際、ファイル名が重複した場合に番号を付加するスクリプトを作ってみました。OEから一旦作業用フォルダにD&Dしemlファイルを作成します。そのemlファイルをスクリプトのアイコンにD&Dします。フォルダのマージなどにも使えます。なお【1回に移動できるファイル数は最大20個くらい】です。多い場合は分けて実行して下さい。

下のスクリプトの移動先フォルダを適切に書き換え、emlMove.js などの名前を付けてデスクトップに保存して下さい。保存先が複数の場合はスクリプトをコピー、変更して準備して下さい。

Windows XP 及び Vista で確認しています。

-----
// emlMove.js - emlファイルをファイル名が重複しないように移動する
var DestDir = "c:\\test"; // ★移動先フォルダ
Wsh = WScript.CreateObject("WScript.Shell");
Fs = WScript.CreateObject("Scripting.FileSystemObject");
Param = WScript.Arguments;
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));
}
}
}
-----

後半の質問についてお答えします。

OEのdbxファイルからemlファイルを取り出すことができるツール、例えば下記では、取り出しの際に既存のファイル名と重複しないように自動的に番号を付けます。他の取り出しツールでも同様なことができると思います。試してみてはいかがでしょうか。

OEview　Outlook Express DBXファイルの内容を検索・表示・取り出し
http://www.vector.co.jp/soft/win95/net/se418786. …

趣旨は違うのですがこれでは駄目ですか？

http://www.vector.co.jp/soft/win95/net/se413043. …