sende mail og datatypen Vedhæftfil

forstår slet ikke dit problem ???
hvad vil du da ha der skal stå af fil navn og hvad skriver den  ?? er så hele filen med i din mail ??

Jeg har måske ikke forklart tydeligt hvad jeg ville,  men den stykke kode som jeg fundet vil jeg arbejde videre med, som kan hente de filer der ligger under datatypen vedhæftet.

Sub ListAttachments()
    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset2
    Dim rsA As DAO.Recordset2
    Dim fld As DAO.Field2

    'Get the database, recordset, and attachment field
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("tblAttachments")
    Set fld = rst("Attachments")

    'Navigate through the table
    Do While Not rst.EOF

    'Print the first and last name
    Debug.Print rst("FirstName") & " " & rst("LastName")

    'Get the recordset for the Attachments field
    Set rsA = fld.Value

    'Print all attachments in the field
    Do While Not rsA.EOF

        Debug.Print , rsA("FileType"), rsA("FileName")

        'Next attachment
        rsA.MoveNext
    Loop

    'Next record
    rst.MoveNext
    Loop

    rst.Close
    dbs.Close
    Set fld = Nothing
    Set rst = Nothing
    Set dbs = Nothing
End Sub

du svarer jo slet ikke på det jeg spørger dig om  så glemmer dig igen !!!!