Append Body of Email to Text File

M

Michael Bauer [MVP - Outlook]

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
 
Top