The following is untested, from memory. I'm fairly sure I've got it right,
but couldn't completely rule out the possibility of a typo or two.

Dim strFile As String
Dim intFile as Integer

strFile = "C:\SomeFolder\SomeFile.txt"
intFile = FreeFile
Open strFile For Append As intFile
Print #intFile, "Some text"
Close #intFile

For Append will create the file if it doesn't exist, or add the text to the
end of the file if it already exists. If you want to replace the file if it
already exists, use For Output instead, but take care - you'll be
overwriting the existing file without any prompt, unless you write your own
code to check for the existance of the file and warn the user.

Why not just reference the information on the form in the
creation of the email form in Access.  This way it shows up
in the body of the email instead of an attachment.

Jim

Hi Nick,

I use this:

Function WriteToFile(Var As Variant, _
 FileSpec As String, _
 Optional Overwrite As Long = True) _
 As Long
 'Writes Var to a textfile as a string.
 'Returns 0 if successful, an errorcode if not.
 
 'Overwrite argument controls what happens
 'if the target file already exists:
 ' -1 or True (default): overwrite it.
 ' 0 or False: append to it
 ' Any other value: abort.
 
 Dim lngFN As Long
 
 On Error GoTo Err_WriteToFile
   lngFN = FreeFile()
   Select Case Overwrite
     Case True
       Open FileSpec For Output As #lngFN
     Case False
       Open FileSpec For Append As #lngFN
     Case Else
       If Len(Dir(FileSpec)) > 0 Then
         Err.Raise 58 'File already exists
       Else
         Open FileSpec For Output As #lngFN
       End If
   End Select
   Print #lngFN, CStr(Nz(Var, ""));
   Close #lngFN
   WriteToFile = 0
 Exit Function
Err_WriteToFile:
 WriteToFile = Err.Number
End Function

--
John Nurick [Microsoft Access MVP]

Please respond in the newgroup and not by email.