こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

アクセスを使って差し込み文書をワードで作るのは簡単です。その差し込み文書をワードからメール送信したときに自動的にテーブルの「送信済み」というフィールドにチェックがはいるように設定したいのですが、可能でしょうか?使っているのはアクセス2000でOSはWinMEです。

投稿日時 - 2002-10-23 21:52:31

QNo.388197

暇なときに回答ください

質問者が選んだベストアンサー

ワードから送信せず、アクセスでボタンをクリックした場合に、ワード文書を作成し、メールを送信するように組めば出来ると思います。

アクセス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は必ずインストールし、メールが送信出来る状態にしておいて下さい。

投稿日時 - 2002-10-24 15:00:23

補足

ありがとうございます。そのような夢のようなことが現実になるにはアクセスをはじめて間もない私にとっては相当時間がかかることでしょう。上に書いてあることはマクロなのでしょうか?

投稿日時 - 2002-10-24 22:14:33

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

Nii

>上に書いてあることはマクロなのでしょうか?
モジュールになります。

投稿日時 - 2002-10-25 14:37:48

あなたにオススメの質問