| |
すいません。間違えました。
>Ctrl+C（貼り付け）で対応しています。
Ctrl+V（貼り付け）です。
マクロはこんな感じです。
元ネタはsleep-walkerさんの
「アドレス配置整形 Ver.0.01」を参考にさせて頂きました。
最後の"$adrs"引数として渡したいです。
/////
loaddll "tkinfo.dll";
if(!result){
message "tkinfo.dll のロードに失敗！";
endmacro;
}
if(!dllfunc("IsTuruKame")){
message "鶴亀メール専用マクロです。";
endmacro;
}
if(dllfunc("IsTuruKameMain")){
message "エディタ画面上から起動して下さい。";
endmacro;
}
$$list=dllfuncstr("CurrentHeader","To");
$$list=$$list+", "+dllfuncstr("CurrentHeader","CC");
#chksum=dllfunc("CountEmailList",$$list);
if(#chksum == 0){
message "アドレスは未記入です。";
endmacro;}
//メールアドレス（名前も）をカンマ区切リでadr[##i]に代入
//Emailアドレスのみ取り出す、アドレス帳で変換
##i=0;
while(##i < #chksum)
{
$adrs[##i]=dllfuncstr("GetEmailList",$$list,##i);
//メールアドレスのみに変更
$adrs[##i]=dllfuncstr( "SetEmailOnly",$adrs[##i]);
//アドレス帳で備考文字列に変換
$adrs[##i] = dllfuncstr( "FindBookNote",$adrs[##i]);
//アドレス帳に登録がないor 備考未記載の場合
if($adrs[##i]==""){$adrs[##i]="pgp登録なし";}
##i=##i+1;
}
//ダブり除去、2重ループで同じアドレスを""に設定
##i=0;
while(##i < #chksum)
{
##c=0;
while(##c < #chksum)
{
if($adrs[##i]==$adrs[##c] && ##i!=##c)
{$adrs[##i]="";}
##c=##c+1;
}
##i=##i+1;
}
//残りのアドレス連結
##i=0;
$adrs="";
while(##i < #chksum)
{
if(##i==#chksum-1){$adrs=$adrs+$adrs[##i];}
else
{
if($adrs[##i]!=""){$adrs=$adrs+$adrs[##i]+", ";}
}
##i=##i+1;
}
//クリップボードにコピー
setclipboard $adrs;
endmacro;
|
|