| |
▼小僧 さん：
早々の回答ありがとうございます。
以下がコードです。
Private Sub コマンド21_Click()
On Error GoTo Err_コマンド21_Click
Dim stDocName As String
Dim stDocTo As String
Dim sTDocCc As String
Dim stDocSu As String
Dim stDocMes As String
stDocName = "R_LicenseKEY"
stDocTo = 依頼者メールアドレス
sTDocCc = 発行者メールアドレス
stDocSu = "＊＊＊ライセンス情報"
stDocMes = "添付資料を参照してください。"
DoCmd.SendObject acReport, stDocName, acFormatXLS, stDocTo, sTDocCc, , stDocSu, stDocMes
Exit_コマンド21_Click:
Exit Sub
Err_コマンド21_Click:
MsgBox Err.Description
Resume Exit_コマンド21_Click
End Sub
よろしくお願いします。
>▼nakamura さん：
>こんにちは。
>
>当方もAccess2002の環境なのですが、正常にメール画面が起動されます。
>
>SendObject メソッドの OutputFormat 引数をつけないと、
>こちらでは 3つ Excel関連が選べますね。
>
>・Microsoft Excel(*.xls)
>・Microsoft Excel 5-7(*.xls)
>・Microsoft Excel 97-2002 (*.xls)
>
>
>>”現在出力しようとしているオブジェクトの形式は無効です”表示され
>
>過去ログ等を色々探してみたのですが、引数の位置や指定が間違っていると
>このようなメッセージが出るそうです。
>
>現在使っているコード(SendObject メソッドに関係ありそうな所だけでも)を
>ご提示できますでしょうか？
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
- 06/1/11(水) 16:08 -
