>

|

re : CopyItemToDocument( docMail, "" ) DanteS Beh la soluzione l\'avrei trovata... dopo aver accumulato l\'elenco degli indirizzi di posta (circa 5000) e creato i relativi memo nella cartella draft del database di posta corrente, ho creato uno script che dovrebbe (e dico dovrebbe) aprire ogni singola mail (notesuidocument) e spedirla, salvarla e chiuderla...ma dopo la 14 mail si pianta tutto (errore: user-defined error). Le finestre delle poste inviate si richiudono (a parte l\'ultima che richiede il salvataggio)....e le mail generate rimangono desolatamente nella vista draft... Lo script è questo qua: Dim MailWs As New notesuiworkspace Dim MailSession As New NotesSession Dim MailobjNS As New NotesSession Dim MailobjDB As NotesDatabase Dim MailobjVISTA As NotesView Dim MailobjDOC As NotesDocument Dim counter As Integer Call MailWs.OpenDatabase( curdoc.MailFilePath(0), curdoc.MailFilePath(1), "($Drafts)" ) Set MailobjDB = MailSession.CurrentDatabase Set MailobjVista = MailobjDB.GetView("($Drafts)") Set MailobjDOC = MailobjVISTA.getfirstdocument counter = 0 Dim POSTAWS As New NotesUIWorkspace Dim POSTASESSION As New NotesSession Dim POSTAUIDOC As NotesUIDocument Do While Not (MailobjDOC Is Nothing) counter = counter + 1 Call POSTAWS.EditDocument(False, MailobjDOC) Set POSTAUIDOC = POSTAWS.CurrentDocument Call POSTAUIDOC.Send Call MailobjVista.Refresh Call POSTAWS.ViewRefresh Call POSTAUIDOC.Close Set MailobjDoc = Mailobjvista.getnextdocument(MailobjDoc) Loop Msgbox "Sono state inviate N. " + Cstr(counter) + " Mail !!!" Dov\'è l\'errore??? o meglio perche un notesuidocument non si chiude...(Call POSTAUIDOC.Close) Grazie a chi mi darà una risposta (o dello scemo!!!) ...e comunque BUONA NATALE A TUTTI !!! CopyItemToDocument( docMail, "" ) - DanteS -      re : CopyItemToDocument( docMail, "" ) - DanteS -     re : CopyItemToDocument( docMail, "" ) - aragosta -     re : CopyItemToDocument( docMail, "" ) - gabrielesh -