Ich habe den Code mal unten reingehängt. Was soll das Script tun ?
1. Sehe in Verzeichnis txt und nehme das erste file
2. Öffne es und lese den Dateinahmen aus (zeile 2) und suche dann in Verzeichnis doc nach der Datei.
Der Code funktioniert auch soweit. Ein Fehler ist jedoch noch drin, denn in Zeile X s.u. wird der erste File gezogen. In Zeile Y springt der Cursor bereits auf File 2 aus dem txt-Verzeichnis. Das soll aber nicht sein. Das Programm arbeitet also den ersten File nicht ab. Also ein Schleifenproblem.
---------------------->
Sub Initialize
On Error Goto fehlermeldung
Dim s As New NotesSession
Dim db As NotesDatabase
Dim logdb As NotesDatabase
Dim logdoc As NotesDocument
Dim newdoc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim strFileName As String
Set db = s.CurrentDatabase
Dim fileName As String
Dim pathName As String
pathName$ = "c:\ordner\txt\*.txt"
fileName$ = Dir$(pathName$, 0) -------------------------> ZEILE X
Dim txt As String
Dim fileNum As Integer
Dim counter As Integer
Dim var() As String
Dim getdocstringfile As String
Dim getdocstringmail As String
Dim getdocstringsubject As String
Dim getdocstringbody As String
Dim countvar As Integer
Do
counter% = 0
fileNum% = Freefile
Open "c:\ordner\txt\" & fileName$ For Input As fileNum%
fileName$ = Dir$() -------------------> Zeile Y
Do While Not Eof(fileNum%)
Line Input #fileNum%, txt$ ' Read each line of the file.
Redim Preserve var(counter%)
var(counter%) = txt$
counter% = counter% + 1 ' Increment the line count.
Loop
Close fileNum%
getdocstringmail = var(0)
getdocstringfile = var(1)
getdocstringsubject = var(2)
getdocstringbody = var(3)
strFileName = Dir$( "c:\ordner\doc\" & getdocstringfile , 0 )
If strFileName <> "" Then
Open "c:\ordner\doc\" & getdocstringfile For Input As fileNum%
Set newdoc = db.CreateDocument
Call newDoc.ReplaceItemValue("FORM","Memo")
Call newDoc.ReplaceItemValue("Sendto", getdocstringmail)
Call newDoc.ReplaceItemValue("Subject", getdocstringsubject)
Set rtitem = New NotesRichTextItem( newdoc, "Body" )
Call rtitem.EmbedObject(EMBED_ATTACHMENT,"", "c:\ordner\doc\" & getdocstringfile )
Call rtitem.AddNewline(2)
Call rtitem.AppendText(getdocstringbody)
Call newdoc.Send(True)
newdoc.Save True,False
countvar = 1
End If
Loop Until fileName$ = ""
Exit Sub
fehlermeldung:
Print "Error" & Str(Err) & ": " & Error$
End Sub
