Notes Designer Help -> NotesDXLExporter class
Sub Initialize()
Dim session As New NotesSession
Dim db As NotesDatabase
Dim docDesign As NotesDocument
Dim notes As NotesNoteCollection
Dim objExporter As NotesDXLExporter
Dim objStream As NotesStream
Dim strNoteID As String
Dim strDXL As String
Set db=session.Currentdatabase
Set objStream=session.Createstream
Set notes=db.Createnotecollection(False)
Set objExporter=session.Createdxlexporter
notes.Selectviews=True
'notes.Selectfolders=True
notes.Selectforms=True
notes.Buildcollection
strNoteID=notes.Getfirstnoteid
Do Until strNoteID=""
Set docDesign=db.Getdocumentbyid(strNoteid)
strDXL=objExporter.Export(docDesign)
objStream.Open Environ("Temp") & "\" & strNoteID & ".dxl"
objStream.Writetext strDXL
objStream.Close
strNoteID=notes.Getnextnoteid(strNoteid)
Loop
End SubHallo Alex
Hier ein Beispiel für Export (so mach ich das).CodeSub Initialize() Dim session As New NotesSession Dim db As NotesDatabase Dim docDesign As NotesDocument Dim notes As NotesNoteCollection Dim objExporter As NotesDXLExporter Dim objStream As NotesStream Dim strNoteID As String Dim strDXL As String Set db=session.Currentdatabase Set objStream=session.Createstream Set notes=db.Createnotecollection(False) Set objExporter=session.Createdxlexporter notes.Selectviews=True 'notes.Selectfolders=True notes.Selectforms=True notes.Buildcollection strNoteID=notes.Getfirstnoteid Do Until strNoteID="" Set docDesign=db.Getdocumentbyid(strNoteid) strDXL=objExporter.Export(docDesign) objStream.Open Environ("Temp") & "\" & strNoteID & ".dxl" objStream.Writetext strDXL objStream.Close strNoteID=notes.Getnextnoteid(strNoteid) Loop End Sub
Davon abgesehen. Teil A deiner Aufgabe geht ja.
Hinweis wegen geht nicht: Schau dir in der Hilfe mal an was "Environ" so tut. Und dann überleg noch einmal warum du keine Ergebnisse siehst.
Aber Teil B? Automatisch? Das wäre cool.
Und wenn man es denn realisieren könnte dann sicher nicht als Praktikant mit 0 Vorwissen und einem in Aussicht gestellten Ausbildungsplatz. Könntest du das nämlich, dann würdest du eine MENGE Kohle verdienen können.
Sorry aber da verarscht entweder dich jemand, oder du willst uns ver....en.