我正在尝试编写一个简单的小例程来发送存储在Access 2007数据库中的附件。出于某种原因,我无法得到最简单的部分工作。在Access 2007中访问Field2
我得到一个错误说“没有定义的用户定义类型”下面一行:
Dim attachmentField As DAO.Field2
现在,到现在为止我还没有访问的任何DAO对象还没有,但我的假设是,我只需要添加相关参考。事情是,我似乎对这个参考是什么有一个误解。我曾尝试过“微软DAO 3.6对象库”,这是有道理的,但我仍然收到相同的错误信息。然后我尝试了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 - 这就是你需要操纵附件字段。 – 2009-07-29 04:35:28