Microsoft Access 掲示板

本当はアクセス内で解決したいですが、メールの長文の中に名前を差込むようなワードの差込印刷のような機能はありませんよね…？

やろうと思えばできますよ。

T_メールテンプレート

• テンプレートID　数値型　主キー
• タイトル　テキスト型
• 本文　テキスト型

「本文」フィールドに下記のような感じでテンプレート文を入力します。

【氏名】様

ご注文の【品名】の入荷予定日は【入荷予定日】です。
価格は【価格】円です。

株式会社　〇〇
担当　【担当者名】

送信データテーブルは下記とします。

T_メール送信

• テンプレートID
• 送信日
• メールアドレス
• 氏名
• 品名
• 入荷予定日
• 価格
• 担当者名

クエリを作成して T_メール送信 と T_メールテンプレート を テンプレートID で結合します。

これをレコードソースとするフォームを作成して、テキストボックスを配置してコントロールソースを下記のように設定します。

=Replace(Replace(Replace(Replace(Replace([本文], "【氏名】", [氏名]), "【品名】", [品名]), "【入荷予定日】", [入荷予定日]), "【価格】", [価格]), "【担当者】", [担当者])

これでフィールドのデータが差し込まれた本文が表示されます。

あとは、下記のような方法でメール送信できます。

■T'sWare Access Tips #463 ～既定のメールソフトで新規メールにデータを添付する方法～

AccessからVBAでメールを送信する２つの方法｜アズビーパートナーズ

ありがとうございます！メーラーが会社の規定のもので、WEBメーラーなので送信にはつなげられないかもしれませんが、作成の部分は参考にさせていただき、今から作成していきます！
そこで1つ質問です。
差込印刷では以下のようなことが可能でした。アクセスで行うにはどうしたらよいでしょうか。
コントロールソースへの式？クエリの設定？悩んでいます・・

TO欄
To1&","&To2
Cc欄
Cc1&","&Cc2&","&Cc3

メールアドレス欄。複数の場合は間に","が必要。
Ccについて、例えばCc1とCc2しかなければ、Cc3のまえの","が不要となる。

ごめんなさい、作成方法は今から確認しようと思いながら違う質問をしたつもりでしたが、同じことで対応できそうですね！すみません。確認します。

Cc1, Cc2, Cc3 というフィールドがあるということなら、
Cc欄のテキストボックスのコントロールソースを下記のようにすればいいでしょう。

=[Cc1] & Format([Cc2],"\,&") & Format([Cc3],"\,&")

なるほど…本当に勉強になります。素晴らしいですね！

メールテンプレを作成してみたのですが、
コントロールソースに
=Replace([メールタイトル],"【タイトル一部】",[タイトル一部])
と入れるとエラーになり、#Type!と表示されています。

ちなみに、
=Replace([メールタイトル],"【タイトル一部】","テスト")
や
[タイトル一部]
はうまくいきます。

クエリに式を入れたらうまくいきました！
WEBスクレイピングの件も、調べてみます。ありがとうございました！！

=Replace(Replace(Replace(Replace(Replace([本文], "【氏名】", [氏名]), "【品名】", [品名]), "【入荷予定日】", [入荷予定日]), "【価格】", [価格]), "【担当者】", [担当者])

↑この式を使って、クエリに入力してタイトルはうまくいったのですが、メール本文の式が長すぎてエラーが出ます。
VBAに組み込みたいと思ったのですが、どうやって組み込んだらいいか、答えが見つからない状況です…
方法はありますでしょうか。

VBAでイミディエイトウィンドウでテストしてみたところ、どうもフィールドが空のところを追加するとエラーが出るようでした。解決方法を探ってみることにします。

どうもフィールドが空のところを追加するとエラーが出るようでした。

Nz関数をつかう。
Replace([本文], "【氏名】", Nz([氏名],""))

あるいは、
テーブルのデザインビューでフィールドの「値要求」プロパティを「はい」に、「空文字列の許可」を「はい」に設定する。

上記の２つの対策のどちらかをしてください。
後者の方がお勧めです。

ありがとうございます。
後者を使いたいのですが、空欄が出る欄については空欄がない場合は改行をしたくないという条件を付けたく思っています。そこで、下記の式を作りましたが、データがあってもなくても改行してしまいます…なぜでしょうか。

勉強のため、大変でなければ、Replaceでの正解も教えていただけると助かります。

"{添付2}", Nz(Chr(13) + Chr(10) & [添付2案件], "")),
"{添付3}", Nz(Chr(13) + Chr(10) & [添付3案件], "")),
"{添付4}", Nz(Chr(13) + Chr(10) & [添付4案件], "")) _

>空欄がない場合は
⇒空欄の場合は・・の間違いです・・

"{添付2}", Nz(Chr(13) + Chr(10) + [添付2案件], "")),
"{添付3}", Nz(Chr(13) + Chr(10) + [添付3案件], "")),
"{添付4}", Nz(Chr(13) + Chr(10) + [添付4案件], "")) _
でいかがでしょうか。

kitasue様

うまくいきました！ありがとうございました。

"{添付2}", Format([添付2案件], Chr(13) & Chr(10) & "&")),
"{添付3}", Format([添付3案件], Chr(13) & Chr(10) & "&")),
"{添付4}", Format([添付4案件], Chr(13) & Chr(10) & "&")) _

だと、[添付2案件] が Null でも "" でもOKです。

このQA面白いですね。とても勉強になります

buf = "a" & "1"  'a1'
buf = "a" + "1"  'a1'
buf = "a" & 1    'a1'
buf = "a" + 1    'エラー'
buf = "a" & Null 'a'
buf = "a" + Null 'Null'
buf = "a" & ""   'a'
buf = "a" + ""   'a'

buf = Format("a", "追加文字&")   '追加文字a'
buf = Format("", "追加文字&")    '(空文字)'
buf = Format(Null, "追加文字&")  '(空文字)'

kitasueさん、cerophanさん
VBAは文字列の連結に「+」を許容しますが、特別な理由がない限り「&」を使うべきです。Nz()関数は評価値がNullであることを条件に特別な処理をする関数ですが、評価値の最初にChr(13)がある時点で、これがNullになることがあるのか？と疑問に思ってしまいます。条件分岐で処理をするなら

IIf([添付2案件]<>"",Chr(13) & Chr(10) & [添付2案件])

とするほうが、何をしているのかわかるコードになります。hatenaさん指摘のとおり、データ形式によってはうまく動作しないことも考えられます

Format 関数
改めて眺めていましたが難しい関数ですね。

1 セクションのみ 書式はすべての文字列データに適用されます。
2 セクション 最初のセクションは文字列データに適用され、第 2 のセクションは Null 値と長さ 0 の文字列 ("") に適用されます。

Nullはまだしも「長さ0の文字列（""）」は「すべての文字列データ」に該当しないんですねぇ
何もしないためにFormat()関数を使うのはかなり高等テクニックだと思います。さすがhatenaさんですね

=[Cc1] & Format([Cc2],"\,&") & Format([Cc3],"\,&")

今更ですが、「"\,&") 」これの意味がわかりきれておりません。
解説ページを探すのですが、検索できず…

その他、①nullについて②""の使い方←SQLのWHEREと関係ある？？
がなかなか理解できず困っております。