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.担当者アドレス)

お世話になります。
早速の返信をありがとうございました。

言葉足らずで申し訳ありません。
テンプレートは、保管しているメールに書き込みはできないでしょうか
例:テストメール.msg のファイルを作って、ハテナさんが言われている
部分にデータを差し込むような感じにしたいのです。

お忙しいとは思いますが宜しくお願い致します。

.msgだとOutlookのデータですかね
「Outlook VBA」で検索すればいろいろ情報がでてくるのでうまく組み合わせればできると思いますよ

Outlook VBA リファレンス

hirotonさん
お疲れさまです。
ありがとうございました。
VBAのコマンドについて、わかっていればいいのですが、私のようにコピペの利用者
だとマイクロソフトは、敷居が高いです。ずばりってサイトがあれば良いのですが、
念の為、マイクロソフトのサイトで検索してみたいと思います。
引き続き宜しくお願い致します。

Excel VBAからOutlookを操作するサンプルです。Access VBAでも、データ保存する箇所をセルからテーブルのフィールドに変更すればほぼ、そのまま使えます。差し込み部分も私の最初の回答のようにReplaceでも置換を利用しています。

Outlookで差し込み印刷のようにメール本文を作成するExcelVBA（メール作成③） | VBA・GAS・Pythonで仕事を楽しく効率化

【VBAでOutlook操作】Excelシートのデータから下書きメールを一括作成する｜もりさんのプログラミング手帳

回答したとおり「Outlook VBA」で検索すればいろいろ情報がでてきます。さらに言えば「Outlook VBA "やりたいこと"」で検索すればかなり近いコードも見つかるとは思いますよ

ただ、「ずばり」とするには問題が複雑すぎるため見つけられないと思います。問題を切り分けて探してみて下さい
例えばGoogle検索で以下のような結果が得られます

「VBA outlook msg」
Outlookメッセージファイル(.msg)からデータを取り出す – VBA（SugiBlogさん）

「VBA outlook 送信画面」
エクセルVBAでOutlookメールの下書きを作成・表示して送信前に内容チェックする（いつも隣にITのお仕事さん）

おまけ
OFT と MSG (および下書き) の違い（OUTLOOK 研究所さん）

お世話になります。
ハテナさん、ヒロトンさん　
返信をありがとうございました。
確認して見て、分からない場合には、質問をさせて頂きますので宜しくお願い致します。
ACCESSが会社のPCしか入っていないため、勉強時間が欲しいです。
引き続き宜しくお願い致します。