Hallo zusammen,
ich hoffe, hier kann mir jemand weiterhelfen?!
Ich habe folgendes Problem:
ich habe einen Agent, der Dokumente regelmäßig in eine Archivdatenbank
kopiert. Da sich das layout häufig ändert, und wir nicht jede Änderung in der
ArchivDB nachhalten können/wollen, soll gleichzeitig, wenn der Agent die Daten
kopiert, eine tif-Datei in Ordner xy angelegt werden.
Für einen schnellen Tipp wäre ich sehr dankbar...
Viele Grüße
Dieter
Hier ist mein Agent:
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim db2 As New notesdatabase("AET00029/Retrade" , "WPC#ARC#CONF" )
Dim view As NotesView
Dim doc As NotesDocument
Dim item1 As NotesItem
Dim item2 As NotesItem
Set db = session.CurrentDatabase
Set view = db.GetView("DealsDoneAmended")
Set doc = view.GetFirstDocument
Dim filenumber As Integer
Dim value1 As String
Dim value2 As String
While Not(doc Is Nothing)
value1 =""
If doc.HasItem("Arc_flag") Then
Set item1 = doc.GetFirstItem("Arc_flag")
value1 = item1.Text
Else
value1 ="No"
End If
If value1<> "Archived" Then
Set item2 = doc.GetFirstItem("doc_num")
Call doc.CopyToDatabase( db2 )
Set item_stat = doc.ReplaceItemValue( "Arc_flag", "Archived" )
Call doc.Save( True,True )
End If
Set doc = view.GetNextDocument(doc)
Wend
End Sub
