Send e-mail - I Give up!

[Monkey Man]

O.k, sorry but I'm going to ask, I've read the demo's (cos there are loads) the posts (even more) and consulted MSDN, but I'm still stuck.

I have a project which will need to send a text file from a field based salesperson (they have laptops) to a default e-mail address. The file is only small (about 20Kb). Outlook will be the only app used as it is installed on all the computers. What is the best way to do this and what info will I need from the co. (I already have the SMTP & PoP address from them ).

What is the best way to do this....

Now originally, I wanted to make sure that the e-mail was sent. As this is a request which the salesperson will be sending in, a date is recorded in the database as to when it was sent. The code i'm using at the moment only puts the e-mail in the outbox and then the user must send it. But I need to know the date it was actually sent . However, if this just complicated the issue then I shall stick with what I have...

Please help

[ccoder]

Would something like this help? It will send the file without the need for the user to send it from the Outbox.

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.