Newsgroup: it.comp.appl.notes-domino
Titolo: Script per estrarre gli allegati

Devo riuscire ad estrarre in automatico i file in allegato a determinate 
mail.
Non ho nessuna esperienza con LotusScript che però mi è sembrato di capire 
assomiglia in qualche modo al Basic.
C'è qualcuno che mi sa dare qualche dritta ??
Ciao Grazie.
Paolo Bonvicini

Ciao,
non è difficile conoscendo il modello ad oggetti di Notes... ora sono a
casa, non ho la guida, domani dall'ufficio se vuoi posso darti una mano...
Per ora beccati questo, non è esattamente quello che serve a te ma ci va
molto vicino, è l'unica cosa che ho pescato al volo con google.....
Fai sapere...  :-))
Ciao
Ciccio
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.AllDocuments
For i = 1 To collection.Count
Set doc = collection.GetNthDocument( i )
If doc.HasEmbedded Then
Call detachFiles( doc )
End If
Next
End Sub
Sub detachFiles( doc As NotesDocument )
Dim rtitem As Variant
Set rtitem = doc.GetFirstItem( "Body" )
Forall o In rtitem.EmbeddedObjects
If o.Type = EMBED_ATTACHMENT Then
Call o.ExtractFile( "c:\newfiles\" & o.Source )
Call o.Remove
Call doc.Save( True, True )
End If
End Forall
End Sub

Sinceramente non ho mai lavorato con gli oggetti.
Hai idea di dove posso reperire qualche informazione in più ?
Ciao
Grazie
Paolo Bonvicini

Paolo Bonvicini
Lotusscript č fondamentalmente un linguaggio Basic con incorporate le classi
per poter accedere appunto all'Object Model di Notes.
Se inizi a sviluppare la cosa migliore č utilizzare la guida in linea che č
piena di esempi.
Tu sei stato un po' generico nella richiesta che hai fatto. Mi sembra di
capire che devi realizzare un agente (schedulato? Lanciato da pulsante? Sul
db di posta stesso o da un altro db??) che detacci su disco (quale? quello
del server, in locale....) gli allegati nei documenti di posta (Sui doc
selezionati? Sui doc con un Subject particolare??).
Ti posto qualcosa a grandi linee
'INIZIO CODICE
Dim session As New NotesSession   'Per prima cosa devi accedere al database
di posta dell'utente
Dim db As NotesDatabase
Set db = session.GetDatabase(NOMEDELSERVER, NOMEDELDATABASE) 'becchi il
database
if Not DB.isopen then  'controlli se puoi accedervi
    msgbox "Impossibile accedere al database",,"Atenzione"
    exit sub
end if
dim collection As NotesDocumentCollection  'Per esempio lavori sui documenti
selezionati dalla vista corrente
Set collection = db.Unprocesseddocuments
Set doc = collection.getfirstdocument  ' ti collochi sul primo...
Dim rtitem As Variant
do until doc is nothing         'fai un ciclo sui documenti selezionati
  If doc.HasEmbedded Then      'se il doc ha un allegato...
  Set rtitem = doc.GetFirstItem( "Body" )     'vai sul campo Body (campo
richtext)
     Forall o In rtitem.EmbeddedObjects      'Fai un ciclo su tutti gli
attachment del documento
         If o.Type = EMBED_ATTACHMENT Then
              Call o.ExtractFile( "c:\newfiles\" & o.Source )  ' lo estrai
su disco
          End if
      End forall
  End if
  set doc = collection.getnextdocument(doc)   ' passi al doc successivo
loop
End Sub
'FINE CODICE
Questo č un esempio di quello che devi realizzare.
Certo se non conosci Notes per nulla o se non hai mai programmato non č che
sia la cosa piů semplice del mondo, un minimo di esperienza ci vuole.
Oltre ai classici siti su Notes Domino
http://www.notes.net/
http://www-3.ibm.com/software/lotus/support/
http://www.dominopro.com/
puoi trovare parecchie cose qui, tra cui molti esempi
http://cseh.best.vwh.net/script1.html
Usa comunque buoni motori di ricerca tipo Google e troverai parecchia
documentazione, magari cercando le parole chiave che ti occorrono
(NotesDatabase, NotesRichTextItem) anche nei vecchi post di Usenet...
Spero di averti aiutato.
Saluti dar CICCIO DE ROMA  :-))

Sei stato veramente eccezionale a fornirmi tutte queste notizie.
Ti ringrazio
Comunque pensavo di utilizzare un agente impostando la condizione "Se 
arrivano nuovi documenti di posta..." e inserire un filtro per esempio sul 
subject.
Dopo di che se la ricerca sodisfa la condizione richiesta, viene fatto 
partire l'agente.
Grazie
Paolo

 Paolo
Di nulla
Auguri per il job  :-)
CICCIO
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG