アクセスを使ってメールの送信履歴を作りたい。

ワードから送信せず、アクセスでボタンをクリックした場合に、ワード文書を作成し、メールを送信するように組めば出来ると思います。 アクセス97ですが、私がファイルを送信する時に作成したロジックの一部抜粋です。 実際には、レコードを元に、エクセルの表を作成し、それを圧縮後メール送信している所から、メール送信の部分のみを抜粋したつもりですが、必要な箇所がぬけているかもしれませんし、不必要な箇所も残っているかもしれません。 マニュアルを見れば、書いてある事しか行っていませんので、あまり参考にならないかもしれませんが。 Dim myOlapp, myItem, myAttachments, myRecipient As Object Set myOlapp = CreateObject("Outlook.application") Set myItem = myOlapp.CreateItem(olMailItem) Set myAttachments = myItem.Attachments myItem.Recipients.Add アドレス myAttachments.Add パスを含めたファイル名, olByValue, 1, ファイル名 myItem.Subject = "サブジェクト" myItem.ReadReceiptRequested = True myItem.Send myOlapp.Quit Set myOlapp = Nothing 後、Outlookは必ずインストールし、メールが送信出来る状態にしておいて下さい。