質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

Q&A

1回答

696閲覧

アクセスでレポートをPDFデータにして送付したメールを送りたい

0122

総合スコア2

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

0グッド

0クリップ

投稿2022/12/05 05:29

前提

アクセスでレポートを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/ツールのバージョンなど)

ここにより詳細な情報を記載してください。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

mdj

2022/12/05 07:04

access2016でモジュールに記入して動作させたところ、添付ファイル、件名が入力されました。ただ「半角のプラス記号」が「_(アンダースコア)」に変換されました。全角であればそのままです。バージョン等、環境を追記していただくと情報が増えるかもしれません。
0122

2022/12/05 07:28

ご回答ありがとうございます! 動作させていただいたのですね。ありがとうございます! 結果を見るとやりたい動作は出来ているみたいですね。 環境について下記ご確認くださいませ。 ・access 2013 32ビット ・windows 10 pro 必要な情報があればまたご教示ください。 よろしくお願いいたします。
guest

回答1

0

件名を設定するときは このように指定します。

vb

1mailitem.Subject = "Mail to myself"

以下参照
https://learn.microsoft.com/ja-jp/office/vba/api/outlook.mailitem

投稿2022/12/05 06:10

chisua

総合スコア24

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0122

2022/12/05 06:17

ご回答ありがとうございます! 件名設定の仕方はこのように置き換えても良いのですね。 DoCmd.SendObjectで同様の動作が出来ると思うのですが動かずの状態なので、もし確認する中で件名だけエラーが出るようでしたら置き換えてみます。
0122

2022/12/05 07:30

EditMessage部分で送信するかしないかは選べるみたいですね。 今回はtrueなので送信しない状態で設定しています。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだベストアンサーが選ばれていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問