|
たけのこです。
要望は確かに便利ですね。例えば『××のアドレス教えて!』とかって別の友人
からメールが来たときなどでも使えそうです。
で
現段階の逃げとして、マクロを使ってみました。マクロを起動してTo:に入れて
からOKすると、クリップボードに入ります。複数入れてあれば、複数入ります。
って、大して手間は変わらないか……(汗)
loaddll "tkinfo.dll";
// アドレス帳を表示して選択してもらう
$selectedAddress = dllfuncstr("SelectAdrBook", 0);
// 改行ごとに分割する
#i = 0;
while(true){
#ptr = strstr($selectedAddress, "\n");
if(#ptr > 0){
$addressLine[#i] = leftstr($selectedAddress, #ptr - 1);
$selectedAddress =
midstr($selectedAddress, #ptr + 1,
strlen($selectedAddress) - #ptr);
#i = #i + 1;
}else{
$addressLine[#i] = $selectedAddress;
#i = #i + 1;
break;
}
}
// Toに指定されたアドレスだけをコピーする
#j = 0;
while(#j < #i){
if(leftstr($addressLine[#j], 3) == "To:"){
$toAddress =
midstr($addressLine[#j], 3, strlen($addressLine[#j]) - 3);
// 空白を除去する
while(leftstr($toAddress, 1) == " "){
$toAddress = midstr($toAddress, 1, strlen($toAddress) - 1);
}
setclipboard $toAddress;
endmacro;
}
#j = #j + 1;
}
|
|