私はAccess 2007データベースに格納されている添付ファイルを電子メールで送信する簡単なルーチンを作成しようとしています。何らかの理由で、私はそれの最も単純な部分を働かせることはできません。Access 2007のField2へのアクセス
は、私は次の行の「ユーザー定義型は定義されていません」というエラーが出ます:私はアクセスしていないこの時点まで今
Dim attachmentField As DAO.Field2
任意のDAOはまだオブジェクトが、私の仮定はIということでした関連する参照を追加するだけです。私は、その参照が何であるかについて誤解を持っているようです。私は "Microsoft DAO 3.6 Object 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
いや - この参照を追加する新しいFIELD2オブジェクト
てみをサポートしています。私はField2を探しています - それはあなたが添付ファイルのフィールドを操作するために必要なものです。 –