【要望です】アドレスに"様"を追加No.09909
nawa さん 05/10/20 09:19
 
nawaです。

アドレス帳には、岡本 太郎と入っている場合に
メールヘッダ上には、自動で岡本 太郎様となるように
することはできませんでしょうか?

できれば、様をつける/つけない オプションが
アドレス帳の個人毎にあると便利なのですが。

ご検討をよろしくお願いします。

[ ]
RE:09909 【要望です】アドレスに"様"を追No.09910
秀まるお さん 05/10/20 10:29
 
 宛先の名前部分に「様」を付ける機能はありませんが、マクロで一応実現出来
ます。マクロの内容としては、以下のようになります。

------------------------------------------------------------------
    loaddll "tkinfo.dll";
    #to_count = dllfunc("CountCurrentHeader", "To");
    #cc_count = dllfunc("CountCurrentHeader", "Cc");
    #i = 0;
    while( #i < #to_count ) {
        call SamaChange dllfuncstr("CurrentHeader2", "To", #i);
        #n = dllfunc("SetHeader2", "To", $$return, #i );
        #i = #i + 1;
    }
    #i = 0;
    while( #i < #cc_count ) {
        call SamaChange dllfuncstr("CurrentHeader2", "Cc", #i);
        #n = dllfunc("SetHeader2", "Cc", $$return, #i );
        #i = #i + 1;
    }
    endmacro;

SamaChange:
    ##c = dllfunc("CountEmailList", $$1);
    ##i = 0;
    $$result = "";
    while( ##i < ##c ) {
        $$one = dllfuncstr("GetEmailList", $$1, ##i);
        $$name = dllfuncstr("SetNameOnly", $$one);
        $$email = dllfuncstr("SetEmailOnly", $$one);
        if( $$email != "" ) {
            if( $$name != "" ) {
                if( rightstr($$name, 2) != "様" ) {
                    $$name = $$name + "様";
                }
                $$one = $$name + " <" + $$email + ">";
            } else {
                $$one = $$email;
            }
            if( $$result != "" ) {
                $$result = $$result + ", ";
            }
            $$result = $$result + $$one;
        }
        ##i = ##i + 1;
    }
    return $$result;
------------------------------------------------------------------

 このようなマクロを、例えば「Sama.mac」という風に作成しておいて、それを
「マクロ・マクロ登録・エディタ側」の方に登録しておいて、「様」を付けたく
なったら、その登録したマクロを実行すればいいです。

 または、「マクロ・マクロ登録・自動起動」の「後で送信/今すぐ送信時」に
登録しておけば、送信する前にマクロが自動実行されます。

[ ]
RE:09910 【要望です】アドレスに"様"を追No.09922
nawa さん 05/10/22 23:39
 
なるほど、マクロで対応させていただきます。
作成もありがとうございました。

[ ]