VB Code:
Private Sub SendIt(MyFile As String)
Dim objOutlook As New Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
'Open the file to be sent
Open MyFile For Input As #1
'Create new message
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
.To = "userid@domain"
.Subject = "Field data for Joe Blow"
.Body = input$(LOF(1), #1)
.Send
End With
Set objOutlookMsg = Nothing
'Close Outlook instance: Important!
Set objOutlook = Nothing
Close #1
End Sub
You don't specify as to where the database is located, so I can't offer anything more at this time.