Microsoft Access 掲示板

テンプレート(定型文)を使って、メール本文を作成する部分が分からないところでしょうか。

下記のようなテーブルに定型文を保存しておきます。

テーブル名
　T_定型文
フィールド
　定型文ID　主キー
　定型文　　長いテキスト

定型文の例
下記のような感じで、変更したい部分を【】で囲んで埋め込んでおく。

◯◯◯◯◯◯◯◯◯◯◯◯
◯◯◯◯◯◯【製品名】◯◯◯◯ 【製品番号】◯◯◯◯
◯◯◯◯【担当者アドレス】◯◯◯◯
◯◯◯◯◯◯◯◯

ボタンクリックで、下記のように置換すればメイル本文で完成します。

Dim MailHonbun As String
MailHonbun = DLookup("定型文","T_定型文","定型文ID=1")
MailHonbun = Replace(MailHonbun,"【製品番号】",Me.製品番号)
MailHonbun = Replace(MailHonbun,"【製品名】",Me.製品名)
MailHonbun = Replace(MailHonbun,"【担当者アドレス】",Me.担当者アドレス)