Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9820 / 13646 ツリー ←次へ | 前へ→

【25297】紹介されているマクロの活用(メール送信) りんりん 05/5/27(金) 10:45 お礼[未読]
【25298】Re:紹介されているマクロの活用(メール送信) りんりん 05/5/27(金) 11:52 発言[未読]
【25304】Re:紹介されているマクロの活用(メール送信) こうちゃん 05/5/27(金) 14:02 回答[未読]
【25306】Re:紹介されているマクロの活用(メール送信) りんりん 05/5/27(金) 14:23 お礼[未読]

【25297】紹介されているマクロの活用(メール送信)
お礼  りんりん  - 05/5/27(金) 10:45 -

引用なし
パスワード
   以前ここで知った下記ページを活用したいのですが
使い方が分からないところがあります。
(ここで質問してもよいか分からないのですが。。。)

http://homepage1.nifty.com/gak/MSTips/multimail.htm

「本文には「%1%」や「%3%」等の置換文字をを使って宛先ごとに内容をコントロールすることもできます。」
とあり、見本の様にエクセルシートを作成して送信するのですが、
"本文シート"のRANGE("A1")に入力している本文をどう使用すればいいのか
分かりません。

    szBody = .Cells(i, 6) ' 本文
        ↓の様にかえると、そのまま「%1%」や「%3%」の
        ↓文字でメールが送られてしまいます。(あたり前?ですか?)
    szBody = Worksheets("本文").Cells(1, 1) ' 本文

"宛名及び置換文字シート"のRANGE("I1")に入力されているログとは何ですか?
どこで使用するのですか?

いろいろ無知なまま活用しようとしているのにも無理があるのかも
しれませんが、どうぞご指導よろしくお願いします。

【25298】Re:紹介されているマクロの活用(メール送信)
発言  りんりん  - 05/5/27(金) 11:52 -

引用なし
パスワード
   すみません。
種別⇒「質問」にしたつもりが、いきなり「礼」になっていました。
変更する方法が分からず・・・

【25304】Re:紹介されているマクロの活用(メール送信)
回答  こうちゃん  - 05/5/27(金) 14:02 -

引用なし
パスワード
   りんりんさん、こんにちは

>「本文には「%1%」や「%3%」等の置換文字をを使って宛先ごとに内容をコントロールすることもできます。」
>とあり、見本の様にエクセルシートを作成して送信するのですが、
>"本文シート"のRANGE("A1")に入力している本文をどう使用すればいいのか
>分かりません。

「見本の様にエクセルシートを作成する」のではなく、ファイルを
ダウンロードしてみてください。
VBコードの前の行の、「ダウンロードはここ」からMultiMail.zipファイルが
ダウンロードできますので、解凍して確認してください。
F列に本文シート"のRANGE("A1")の値の%変数を、SUBSTITUTE関数で
宛名および置換文字シートのG、H、I、J列の文字に置換して、メール本文を
作成しています。
2、3行、アドレスを自分宛にして、確認してみましょう。

>"宛名及び置換文字シート"のRANGE("I1")に入力されているログとは何ですか?
>どこで使用するのですか?

コードを見ると、送信エラーのときログファイルに出力するようになっています。
サンプルにはありませんが、そのログファイルへのリンクじゃないでしょうか?

>いろいろ無知なまま活用しようとしているのにも無理があるのかも
>しれませんが、どうぞご指導よろしくお願いします。
BSMTPは便利なツールです。ほかにも機能満載です。
がんばって使いこなしましょうね。

【25306】Re:紹介されているマクロの活用(メール送信)
お礼  りんりん  - 05/5/27(金) 14:23 -

引用なし
パスワード
   こうちゃん さん お返事ありがとうございます。

ホント!!ですね・・・
ダウンロードできるのですね・・・
そのダウンロードはBSMTPのダウンロードとばかり決めつけてました。

「%1%」や「%3%」についてもやっとわかりました。
テストも成功しました。

親切にありがとうございました。

9820 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free