Microsoft Access 掲示板

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

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

T_メールテンプレート

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

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

【氏名】様

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

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

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

T_メール送信

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

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

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

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

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

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

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

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