Am Sun, 10 Sep 2006 13:56:01 -0700 schrieb j:

This sample allows you to append the text to a file:

Public Sub WriteFile(ByRef Path As String, _
ByRef Text As String, _
Optional ByVal bAppend As Boolean _
)
On Error GoTo AUSGANG
Dim FileNr As Long

FileNr = FreeFile

Select Case bAppend
Case False
Open Path For Output As #FileNr
Case Else
Open Path For Append As #FileNr
End Select

Print #FileNr, Text;

AUSGANG:
If FileNr Then CloseFileHandle FileNr
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.VBOffice.net --


What is the VB code to append the body of an email to a text file?