ciao a tutti
ho questo agent in un database 7.0.2 che scarica gli allegati xml in un server as400. è possibile specificare in quesa connessione verso as400 utente/dominio con psw per scaricare gli allegati e dove devo inserirla inq uesto script???
perchè ho dovuto far avviare il servizio domino con dominio/administrator anzichè localservice e ora non vedo la console nera di domino
grazie mille
Sub Initialize
\'*********************************************************
\'Estrae i file xml in un percorso specificato
\'********************************************************
Dim s As New NotesSession
Dim FileName As String
Dim Percorso As String
Dim doc As NotesDocument
Dim Allegati As Variant
Dim Allegato As NotesEmbeddedObject
Percorso = "\\172.16.0.1\edinew\inboxxml\"
\'Percorso = "D:\provaxml\"
Set doc = s.DocumentContext
Allegati = Evaluate("@AttachmentNames", doc)
Forall att In Allegati
If att <> "" Then
If att Like "*.xml" Then
Set Allegato = doc.GetAttachment(att)
FileName = Percorso & att
Call Allegato.ExtractFile(FileName)
Print "L\'allegato " & att & " è stato estratto in " & FileName
End If
End If
End Forall
End Sub
|