|
はっぴ〜さん,こんにちは。
》テキストにコピー・ペーストができなかったので
》(テキストにしたいのです)
》できれば取り出せれば・・・と思います
特定の From ではなくて,すべてを取り出したいということですね。誤解してい
たようです。口出しした以上,何か書かないわけにはいかないようです。(^^;
もっと,スマートに書ける方がいらっしゃると思いますが。
メール一覧の一番上にカーソルを置いて,次のマクロを実行して見てください。
テキストとクリップボードに同時に書き出します。ただし,メール数が非常に多
い場合には,この方式ではうまくいかないかもしれません。
なお,名前+アドレスではなく,アドレスだけにしたい時は,8行目の頭の
「//」を除いてください。
//------ CollectFrom.mac --------------------------------------------//
loaddll "tkinfo.dll";
$folder = dllfuncstr( "CurrentFolder" );
#c = dllfunc( "GetFolderMailCount");
#n = dllfunc("DisableDraw");
while( #i < #c ) {
$from[#i] = dllfuncstr( "CurrentHeader", "From" );
// $from[#i] = dllfuncstr( "SetEmailOnly", $from[#i] );//アドレスのみ
#n = dllfunc( "NextPrevCustom", "", "next", "", "Roll");
#i = #i + 1;
}
#n = dllfunc("EnableDraw");
newfile;
disabledraw;
gofiletop;
beginsel;
gofileend;
delete;
#i = 0;
while( #i < #c ) {
insert $from[#i] + "\n";
#i = #i + 1;
}
gofiletop;
beginsel;
gofileend;
copy;
clearupdated;
endmacro;
//-------------------------------------------------------------//
では, (^^)/~
山紫水明
|
|