| |
KAZZです。
> これも一応マクロで出来るので、マクロでやって欲しい所です。
>
> マクロを「送信用のエディタ起動時」に登録するか、またはそもそも返信
>メールを行うマクロを別に用意して、それをCtrl+Rキーに割り当てるかってこ
>とになります。
>
以下のように作成し、「送信用のエディタ起動時」に登録することで、返信メールの
宛先をアドレスのみにすることができました。
皆さん、色々コメントありがとうございました。
さて、後は、送信確認マクロが残ってるな。。。
【返信メールの宛先をアドレスのみにするマクロ】
loaddll("TKInfo.dll");
#rc = dllfunc( "MailType" );
//--------------------------------
// 返信メールの場合のみ
//--------------------------------
if( #rc == 1 ){
//--------------------------------
// To: をアドレスのみにする。
//--------------------------------
#first = 1;
$ToList = dllfuncstr( "CurrentHeader", "To" );
#count = dllfunc( "CountEmailList", $ToList );
#c = 0;
while( #c < #count ){
$To = dllfuncstr( "GetEmailList", $ToList, #c );
$To = dllfuncstr( "SetEmailOnly", $To );
if( #first == 1 ){
$newToList = $To;
#first = 0;
}
else
$newToList = $newToList + ", " + $To;
#c = #c + 1;
}
if( strlen( $newToList ) > 0 )
$s = dllfuncstr( "SetHeader", "To", $newToList );
//--------------------------------
// Cc: をアドレスのみにする。
//--------------------------------
#first = 1;
$CcList = dllfuncstr( "CurrentHeader", "Cc" );
#count = dllfunc( "CountEmailList", $CcList );
#c = 0;
while( #c < #count ){
$Cc = dllfuncstr( "GetEmailList", $CcList, #c );
$Cc = dllfuncstr( "SetEmailOnly", $Cc );
if( #first == 1 ){
$newCcList = $Cc;
#first = 0;
}
else
$newCcList = $newCcList + ", " + $Cc;
#c = #c + 1;
}
if( strlen( $newCcList ) > 0 )
$s = dllfuncstr( "SetHeader", "Cc", $newCcList );
//----------------------------------------------------------------------
----------
// Bcc: をアドレスのみにする。
// Bccは、アカウント設定で追加指定が有り得るので、"CountCurrentHeader"
数分ループ
//----------------------------------------------------------------------
----------
#n = dllfunc( "CountCurrentHeader", "Bcc" );
#i = 0;
while( #i < #n ){
#first = 1;
$BccList = dllfuncstr( "CurrentHeader2", "Bcc", #i );
#count = dllfunc( "CountEmailList", $BccList );
#c = 0;
while( #c < #count ){
$Bcc = dllfuncstr( "GetEmailList", $BccList, #c );
$Bcc = dllfuncstr( "SetEmailOnly", $Bcc );
if( #first == 1 ){
$newBccList = $Bcc;
#first = 0;
}
else
$newBccList = $newBccList + ", " + $Bcc;
#c = #c + 1;
}
if( strlen( $newBccList ) > 0 )
$s = dllfuncstr( "SetHeader2", "Bcc", $newBccList, #i );
#i = #i + 1;
}
}
freedll;
endmacro;
|
|