差し込み送信No.34673
みみずく さん 08/09/09 12:01
 
いつも快適に使わせていただいております。

さて、差し込みメール送信を行う方法はあるのでしょうか。
よろしくお願い致します。

[ ]
RE:34673 差し込み送信No.34674
秀まるお2 さん 08/09/09 13:54
 
 差し込み印刷のような形でメールを送りたいというような話は、実は他のユー
ザー様から個別に問い合わせがあったことがありました。それで、似たようなこ
とをするマクロを作ったというか、マクロの改造方法を指南したことはあります。

 そのマクロというのは、実は山紫水明さん作の

    http://hide.maruo.co.jp/lib/tkmacro/tkdivideadrs109.html

 のマクロなんですけど。

 これをちょっと改造させていただいて、差し込みメール送信みたいなことを実
現しました。

 差し込みといっても、僕が改造したのは、アドレス帳の中に登録された備考1
〜8の内容をひっぱってきて、それをメール本文に入れるって処理ですけど。な
ので、差し込みさせたい内容は、あらかじめアドレス帳に登録しておく必要があ
ります。

 そういうことでよければマクロの改造方法をここに書いてもいいです。
 (人の作ったマクロなのになんですが)

 あるいは他のファイル(例えばcsv形式ファイル)から拾ってきた内容をメー
ルに埋め込んで送信するとかって高度なことも、それなりにマクロを作れば出来
ないこともありません。

[ ]
RE:34674 差し込み送信No.34675
みみずく さん 08/09/09 14:17
 
有り難うございます。
山紫水明さんのマクロは知りませんでしたが、簡単な用途ならこれが使えそうです。
せっかくなので、改造されたマクロを教えて下さい。

本当にしたいのはご指摘通り、csv形式ファイルを用意しておいて、それを使って差
し込み送信をすることです。私は、特定の作業を繰り返すマクロぐらいしか作ったこ
とはないのですが、それなりのマクロっていうのは、やはりかなり大変でしょうか。

お詫び:34672は、題名にハンドルネームを書いてしまったので、一度削除しました。
すみません。

[ ]
RE:34675 差し込み送信No.34676
秀まるお2 さん 08/09/09 16:05
 
 山紫水明さんのマクロを改造する方法を先に連絡させていただきますと…

 184行目付近に

#handle1 = hidemaruhandle( 0 );
#n = dllfunc( "SendLater" );

 って処理があるんですが、それの直前に、

call BodyBookConvert;

 というのを入れます。そして、マクロの一番最後に少し空行などを入れてから、
以下の処理を追加します。

--------------ここから---------------------------

BodyBookConvert:
    ##x = x;
    ##y = y;
    gofiletop;
    while(1) {
        searchdown2 "{{BookNote[0-8]}}", regular, casesense;
        if( !result ) {
            break;
        }
        if( selecting ) escape;
        beginsel;
        right 10;
        ##num = code;
        right 3;
        $$to = dllfuncstr("CurrentHeader", "To");
        $$to = dllfuncstr("SetEmailOnly", $$to);
        if( ##num == '0' ) {
            $$func = "FindBook";
        } else if( ##num == '1' ) {
            $$func = "FindBookNote";
        } else {
            $$func = "FindBookNote" + char(##num);
        }
        $$note = dllfuncstr( $$func, $$to );
        if( $$note != "" ) {
            delete;
            insert $$note;
        } else {
            message "備考が見つかりませんでしたが処理を続行します。";
            escape;
        }
    }
    moveto ##x, ##y;
    return;

--------------ここまで---------------------------

 でもって、メール本文には、例えば

 {{BookNote0}}

 と書いた部分にはアドレス帳上に登録されている名前が入り、

 {{BookNote1}}  〜 {{BookNote8}}

 を書けば、アドレス帳備考欄の1〜8の内容が入ります。

 それと、もしもcsv形式ファイルから処理させたい場合には、csv形式ファイル
を秀丸メールの外部アドレス帳のような形式でなんとかがんばって作成してやれ
ばいいんじゃないかと思います。そうすれば上記マクロでうまく処理出来ます。
備考にコンマそのものを含まなければ、そのままcsv形式でも外部アドレス帳用
ファイルとして扱えるはずだと思います。

 とりあえずそういう作戦でやってみて欲しい所です。


[ ]
RE:34676 差し込み送信No.34677
みみずく さん 08/09/09 16:58
 
とりあえず山紫水明さんのマクロを動かしてうまく行くことを確認しました。
恥ずかしながら、書いていただいたマクロの記述内容はあまり理解できていませんが、
少し時間を掛けて考えてみたいと思います。
また困りましたら、ご相談いたします。
有り難うございました。

[ ]
RE:34677 差し込み送信No.34679
山紫水明 さん 08/09/09 20:23
 
 みみずくさん,

>とりあえず山紫水明さんのマクロを動かしてうまく行くことを確認しました。

 このマクロで画面のちらつきなど少し改良したものを作っていますので,よろ
しければそちらもご覧ください。
http://homepage2.nifty.com/12sun/sansui.html
 秀まるおさんのご指摘の箇所は新マクロでは 223 行目付近にあります。

>本当にしたいのはご指摘通り、csv形式ファイルを用意しておいて、それを使っ
>て差し込み送信をすることです。

 ライブラリに拙作の「リストファイルからアドレスを挿入するマクロ」
http://hide.maruo.co.jp/lib/tkmacro/tkinsertadrslist.html
があります。直接送信はできませんが,先のマクロと組み合わせて使えるかも知
れません。

     では, (^^)/~
                                        山紫水明
                                        SANSHISUIMEI

[ ]
RE:34679 差し込み送信No.34681
みみずく さん 08/09/09 23:27
 
山紫水明さん、秀まるおさん、こんばんは。

> このマクロで画面のちらつきなど少し改良した……

早速ダウンロードし、使ってみました。快適です。
中身は理解できていませんが、秀まるおさんの改良も加えて、アドレス帳に記入して
いれば、差込送信できることも確認しました。
有り難うございます。

>「リストファイルからアドレスを挿入するマクロ」があります。

こちらも参考にさせていただきます。とは言いながら、現在
「秀丸エディタ マクロ言語(入門用)」を読んで勉強中のレベルで、活用できるの
は当分先になりそうです。
また困りましたら、ご相談いたします。いろいろ有り難うございました。

[ ]