Sende eksisterende fil som vedlegg til mail

kan man ikke bare hive den over... det mener jeg da..!

hive og hive.....

DoCmd.SendObject acSendQuery, "queryname", acFormatXLS, _
"Hans Hansen", , , "Overskrift", "Tekstinnhold i mail", true

Detter funker for for en query som skaper en Excel-fil, men hvordan sender jeg en fil (som eksisterer fra før) som vedlegg????

You need a reference to Outlook

Function SendMail()
Dim objOl As New Outlook.Application
Dim objPost As MailItem
Dim vedhæftet As Attachments
       
    Set objPost = objOl.CreateItem(olMailItem)
   
    Set vedhæftet = objPost.Attachments
    vedhæftet.Add "C:\test.txt"
   
    With objPost
        .Subject = "Subject goes here"
        .To = "eksperten@santhell.dk"
        .Body = "Hej Med dig!"
        '.Send
        .Display
    End With
 
    Set objPost = Nothing
    Set vedhæftet = Nothing
   
Exit Function

errhandler:
   
    MsgBox "ERROR: " & Err.Number & " - " & Err.Description

End Function

Jeg fandt en ren Access-applikation, som kan sende mails direkte via Winsock.dll, altså uafhængigt af mailprogrammerne. Den kan findes på http://www.freeaccess.de/downloaddetails.asp?id=19 og har den lille ulempe, at den er på tysk, men det kan rettes!

Supert!! Terry! OK!

selv tak!