我正在尝试编写一个简单的小例程来通过电子邮件发送存储在 Access 2007 数据库中的附件。由于某种原因,我无法使其最简单的部分发挥作用。
我在以下行中收到一条错误消息“用户定义的类型未定义”:
Dim attachmentField As DAO.Field2
到目前为止,我还没有访问任何 DAO 对象,但我的假设是我只需要添加相关引用。问题是,我似乎对那个参考是什么有误解。我尝试过“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
有任何想法吗?
您需要对 DAO 版本 12 的引用 - 它支持新的 FIELD2 对象
尝试添加此引用 - “Microsoft Office 12.0 Access 数据库引擎”
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)