2009-07-28 77 views
1

我正在尝试编写一个简单的小例程来发送存储在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 

任何想法?

回答

4

您需要DAO 12版的参考 - 它支持新FIELD2对象

尝试加入这个参考 - “的Microsoft Office 12.0 Access数据库引擎”

-2

行更改为

Dim attachmentField As DAO.Field 

而且,哪里的记录从何而来?它在哪里被填满记录?

+0

都能跟得上。我正在寻找Field2 - 这就是你需要操纵附件字段。 – 2009-07-29 04:35:28