Email txt file

[gastoman]

Hi,
I'm trying to sent an txt file as an option in a Database.
Does anyone know how to make this work??

rgds,
Martijn

 

[Kodo]

do a search here for "sending email" and you'll have a lot to read.

 

[gastoman]

nice

After reading all this I havn't found the awnser

 

[CBragg]

Have a go with this

Dim NameSpace As Object
Dim EmailSend As MailItem 'for the mail item, must have outlook reference
Dim EmailApp As Object

Set EmailApp = CreateObject("Outlook.Application") 'outlook object
Set NameSpace = EmailApp.getNameSpace("MAPI")
Set EmailSend = EmailApp.CreateItem(0) 'CreateItem(0) Mail Item

EmailSend.Subject = "Testing"
EmailSend.HTMLBody = "Testing"
EmailSend.Recipients.Add Me![To] 'Message Receipient, or use an email address instead of a text box on the form

Emailsend.Attachments.Add ("Source of attachment")

EmailSend.Send

 

[gastoman]

Jippy

Works like a charme!! Thanx