Message-idをコピーするマクロNo.27342
SasadaNaoya さん　06/04/25 14:22
　
Message-idをコピーする機会が多いのですが、
この際にヘッダを簡略表示にして、なおかつMessage-idを
表示しない設定にしている今の状況で、
マクロを使ってMessage-idをコピーしたいのですが、
どなたかマクロを書いていただけませんでしょうか？

宜しくお願いします
[ △ ]
RE:27342 Message-idをコピーするマクロNo.27343
秀まるお2 さん　06/04/25 15:06
　
    loaddll "tkinfo.dll";
    $s = dllfuncstr("CurrentHeader","Message-Id");
    if( leftstr($s,1) == "<" ) {
         $s = midstr( $s, 1, 999 );
    }
    if( rightstr($s,1) == ">" ) {
         $s = leftstr( $s, strlen($s) - 1 );
    }
    setclipboard $s;

　でいいと思います。
[ △ ]
RE:27343 Message-idをコピーするマクロNo.27351
SasadaNaoya さん　06/04/26 09:53
　
ありがとうございます。ばっちりです
[ △ ]
RE:27343 Message-idをコピーするマクロNo.27537
SasadaNaoya さん　06/05/12 08:15
　
秀マウ三軒剤のマクロですと、
Messageid>  (TuruKame supplied)というのがコピーされているようですが、
純粋にMessage-IDのみをコピーすることは出来ませんでしょうか？
細かなことですみません。
[ △ ]
RE:27537 Message-idをコピーするマクロNo.27538
SasadaNaoya さん　06/05/12 08:18
　
ごめんなさい。情報アイテムのMessage-IDだけそのように
コピーされるみたいです。（Message-IDがない場合？）
他はちゃんとMessage-IDのみコピーされてました。

お騒がせしました。
[ △ ]
RE:27538 Message-idをコピーするマクロNo.27541
秀まるお2 さん　06/05/12 10:28
　
    loaddll "tkinfo.dll";
    $s = dllfuncstr("CurrentHeader","Message-Id");
    if( leftstr($s,1) == "<" ) {
         $s = midstr( $s, 1, 999 );
    }
    #x = strstr($s,">");
    if( #x > 0 ) {
        $s = leftstr( $s, #x );
    }
    setclipboard $s;

　にするともっといいかと思います。
[ △ ]
RE:27541 Message-idをコピーするマクロNo.27546
SasadaNaoya さん　06/05/12 17:20
　
わざわざありがとうございます。
マクロの方を更新して使います。
[ △ ]