SendObjectで添付ファイル名に日時を追加したい

Question

レポートをPDFでメールに添付する際に
添付されるファイル名に日時を追加したいのです。
Format(Now(), "yyyymmdd_hhnnss")　でいろいろ試しましたが
知識不足のためなかなかうまくできません…
ご教示いただけませんでしょうか？

よろしくお願いいたします。

Private Sub コマンド10_Click()

DoCmd.RunCommand acCmdSaveRecord

Dim atesaki As String
Dim kenmei As String

atesaki = "---@---"
kenmei = "レポートをお送りいたします"

Dim honbun As String
Dim honbun2 As String
Dim honbun3 As String
Dim honbun4 As String
Dim zenbun As String

honbun = "＿＿様"
honbun2 = "お世話様です。"
honbun3 = "レポートを添付いたします。"
honbun4 = "よろしくお願いいたします。"

zenbun = honbun & vbCrLf & honbun2 & vbCrLf & honbun3 & vbCrLf & honbun4



Const cstrRptName As String = "レポート"



  On Error GoTo Err_Handler
  
  Echo False
  


DoCmd.OpenReport "レポート", acViewPreview, , "報告ID=" & Me!報告ID

DoCmd.SendObject acSendReport, "レポート", acFormatPDF, atesaki, "", "", kenmei, zenbun, True, """"



Exit_Here:
  On Error Resume Next
  DoCmd.Close acReport, cstrRptName
  Echo True
  Exit Sub

Err_Handler:
  If Err.Number = 2501 Then
  Else
    MsgBox "エラーが発生しました"
  End If
  Resume Exit_Here:


End Sub

追記です
いろいろ検索し以下の部分を

Cmd.OpenReport "レポート", acViewPreview, , "報告ID=" & Me!報告ID

DoCmd.SendObject acSendReport, "レポート", acFormatPDF, atesaki, "", "", kenmei, zenbun, True, """"

以下に書き換えてみました。

DoCmd.CopyObject , "レポート_" & Format(Now(), "yyyymmdd_hhnnss"), acReport, "レポート"
DoCmd.SendObject acSendReport, "レポート_" & Format(Now(), "yyyymmdd_hhnnss"), acFormatPDF, atesaki, "", "", kenmei, zenbun, True, ""
DoCmd.DeleteObject acRepory, "レポート_" & Format(Now(), "yyyymmdd_hhnnss")

メール作成画面が開くと、PDFファイル名は変わっておらず、すべてのページのレポートになってしまっています。
メール作成画面を閉じると名前に日時のついたレポートがレポート内に出現します。
削除もされないようです…

Comments

[tatsu99]

Format(Now(), "yyyymmdd_hhnnss")
でOKだと思いますが、なにがだめなんでしょうか。

[techiko]

メールに添付するファイル名にFormat(Now(), "yyyymmdd_hhnnss")を使用して
日時をプラスしたかったのですが、それはできない旨Y.H.さんよりご指摘がありました。

Answer 1

DoCmdは非同期実行のため連続しての使用はできないようですね。

以下では解決できなかった模様です

---

添付ファイルのファイル名は、レポート名から変更できません。

DoCmd.CopyObjectでレポートを日付付きのレポート名にコピーしてから、コピーした日付付きのレポートを指定してDoCmd.SendObjectを呼び出してください。
呼び出し後、日付付きのレポートは削除してください。

---

以下追記：

DoCmdはすべて非同期で実行されるため処理の終了まで適当な時間待ちを入れないとうまく動かないので、Private Sub コマンド10_Click() の前の行にDeclare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)の1行を入れて、Sleepを使用する。

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub コマンド10_Click()
・・・略・・・
	Dim ReportName As String
	ReportName = "レポート_" & Format(Now(), "yyyymmdd_hhnnss")

	DoCmd.CopyObject , ReportName, acReport, "レポート"
	sleep 3000 '3000 msec (3 秒)待つ
	DoCmd.OpenReport ReportName, acViewPreview, , "報告ID=" & Me!報告ID
	sleep 3000 '3000 msec (3 秒)待つ
	DoCmd.SendObject acSendReport, ReportName, acFormatPDF, atesaki, "", "", kenmei, zenbun, True, ""
	sleep 3000 '3000 msec (3 秒)待つ
	DoCmd.DeleteObject acRepory, ReportName

・・・略・・・
End Sub

Comments

[techiko]

回答ありがとうございます。
ちょっと試してみます。

[techiko]

コードを編集してみたのですがうまく動きませんでした…
内容は追記としました。

[Y.H.]

Dim ReportName As String
ReportName = "レポート_" & Format(Now(), "yyyymmdd_hhnnss")

DoCmd.CopyObject , ReportName, acReport, "レポート"
Cmd.OpenReport ReportName, acViewPreview, , "報告ID=" & Me!報告ID
DoCmd.SendObject acSendReport, ReportName, acFormatPDF, atesaki, "", "", kenmei, zenbun, True, ""
DoCmd.Close acReport, ReportName
DoCmd.DeleteObject acRepory, ReportName

[Y.H.]

でできないでしょうか？
※今Accessが無い端末しか使用できないので動作確認はできてません。

[techiko]

ありがとうございます。
試してみたところ、添付ファイルの名前はそのままでした。
また、送信後、実行時エラー’7874’がでてレポート＿日時が見つからない旨表示されました。
Accessのレポート内にはレポート＿日付のファイルがきちんとできています。
もう少し調べてみます。

[Y.H.]

あぁ・・・DoCmdは非同期実行でした。
とりあえず対応ですが、DoCmd実行後に3秒づつ待つApplication.Wait()を以下のように入れてみるとどうでしょうか？（実行時間が計10秒ほどになってしまいますが・・・）

Dim ReportName As String
ReportName = "レポート_" & Format(Now(), "yyyymmdd_hhnnss")

DoCmd.CopyObject , ReportName, acReport, "レポート"
Application.Wait(Now + TimeValue("0:00:03"))
DoCmd.OpenReport ReportName, acViewPreview, , "報告ID=" & Me!報告ID
Application.Wait(Now + TimeValue("0:00:03"))
DoCmd.SendObject acSendReport, ReportName, acFormatPDF, atesaki, "", "", kenmei, zenbun, True, ""
Application.Wait(Now + TimeValue("0:00:03"))
DoCmd.DeleteObject acRepory, ReportName

[techiko]

何度も申し訳ありません。
.wait　がコンパイル エラーになってしまいます。(メソッドまたはデータ メンバが見つかりません）

[Y.H.]

すみません。wait()があるのはExcelでした。。。
回答に追記したコードでうまく動いてくれないですかね。。。

[techiko]

ありがとうございます。。。
Private Sub コマンド10_Click()の前に挿入すると
イベントプロパティに指定した式 読み込み時 でエラーが発生しました
と出てしまうので標準モジュールに追加して実行してみましたが
待ち時間は長くなったものの結果は同じでした。
→ファイル名に日時が付かない、コピーされたファイルが削除されない

[Y.H.]

う～ん、うまくいかないですねぇ。。。
Sleepの行を全部コメントにして、
ステップ実行でDoCmdの行毎に少し時間を空けて
実行するとうまく動きますか？

[techiko]

同じ結果でした。
そして、今気づいたのですが添付されたpdfは特定のレポートのみとなっていますが
日時が付いてコピーされたレポートはすべてのレポートがコピーされたものでした。

[techiko]

Y.H.さん
貴重なお時間をいただきありがとうございました。
SendObjectから行うのは厳しそうなのであきらめてほかの方法を探そうと思います。
本当にどうもありがとうございました。

[Y.H.]

お役に立てませんでした。
頑張ってくださいね。

[techiko]

とんでもないです！
勉強になりました。
どうもありがとうございました。

Answer 2

【VBA】Formatで日付・時刻、数値、文字列の表示設定(和暦、曜日)

これで参考になるでしょうか

Comments

[techiko]

ご回答ありがとうございます
参考ページありがとうございます。
このコードをどのように埋め込んだらファイル名の後に日時が入れられるかがわかりません…