前提
アクセスでレポートをPDFデータにして送付したメールを送りたい
実現したいこと
お世話になります。
アクセスで R登録用紙+見積書 というレポートをPDFデータにして送付したメールを送りたいです。
発生している問題・エラーメッセージ
エラーは起きていません。
しかし、outlookのメールアイテムは開いているもののデータの送付や宛名、件名、本文への入力が出来ていない状態です。
該当のソースコード
Dim olapp As Object
Dim mailitem As Object
Set olapp = CreateObject("outlook.application")
Set mailitem = olapp.CreateItem(0)
Dim vobf As String
Dim vobj As String
Dim vto As String
Dim vtitle As String
Dim vtext As String
On Error Resume Next
vobj = "R登録用紙+見積書"
vto = "aaaaa@aa.jp"
vtitle = "a"
vtext = "b"
DoCmd.SendObject acSendReport, vobj, acFormatPDF, vto, , , vtitle, vtext, True
mailitem.Display
試したこと
stopを付けてステップインをしていきましたが原因が分かりませんでした。
解決方法をご存じでしたらご教示ください。
よろしくお願いします。
補足情報(FW/ツールのバージョンなど)
ここにより詳細な情報を記載してください。