Dim stream As NotesStream
Dim strPath As String
Dim strContent As String
Dim bOpen As Boolean
Set stream = Session.Createstream()
strPath = {C:\temp\tmp.xml}
' Datei öffnen , wenn nicht möglich Abbruch
If Not stream.Open(strPath) Then
Exit Sub
End If
strContent = stream.Readtext