1

Access2007データベースに保存されている添付ファイルを電子メールで送信するための簡単なルーチンを作成しようとしています。どういうわけか、私はそれの最も単純な部分を機能させることができません。

次の行に「ユーザー定義タイプが定義されていません」というエラーが表示されます。

Dim attachmentField As DAO.Field2

この時点まで、DAOオブジェクトにはまだアクセスしていませんが、関連する参照を追加するだけでよいと想定していました。実は、私はその参照が何であるかについて誤解しているようです。意味のある「MicrosoftDAO3.6Object Library」を試しましたが、それでも同じエラーメッセージが表示されます。次に、同じ3.5を試し、次にJETを試し、さらにいくつか試しましたが、あまり意味がありませんでした。

これが完全なリストです。本当に基本的な何かを見逃した場合に備えて。非常に多くのクリーンアップが必要なことはわかっていますが、最初に機能させたいと思います。

Private Sub Command4_Click()
  Dim appOutLook As Outlook.Application
  Dim MailOutLook As Outlook.MailItem
  Set appOutLook = CreateObject("Outlook.Application")
  Set MailOutLook = appOutLook.CreateItem(olMailItem)

  With MailOutLook
    .To = Description.Value
    .Subject = "Confirmation of " & ID.Value

    'Error on the next line
    Dim attachmentField As DAO.Field2
    attachmentField = Recordset("Att")
    attachmentField.SaveToFile "C:\Temp\" & Att.FileName
    Attachments.Add "C:\Temp\" & Att.FileName, olByValue, 1, "Document"

    '.DeleteAfterSubmit = True
    .Send
  End With
End Sub

何か案は？

4

2 に答える 2

4

新しいFIELD2オブジェクトをサポートするDAOバージョン12への参照が必要です

この参照を追加してみてください-「MicrosoftOffice12.0Accessデータベースエンジン」

于 2009-07-28T22:12:37.833 に答える
-2

行をに変更します

 Dim attachmentField As DAO.Field

また、レコードセットはどこから来たのですか？どこに記録がありますか？

于 2009-07-28T22:06:56.240 に答える