Ho realizzato una applicazione che genera degli avvisi, inviando alcuni messaggi di posta a gruppi di utenti.
Un primo messaggio viene inviato dal client al momento in cui viene inserito un nuovo documento nel database e tutto funziona regolarmente: il messaggio viene correttamente inviato.
Il problema sorge su un agente che è programmato sul server e che dovrebbe inviare anche lui un messaggio ad un gruppo di utenti. Questo agente non funziona, in quanto, quando parte, da questo errore:
AMgr: Agent (\'Avvisatore\' in \'Ritiri.nsf\') error message: Notes error: The server is not responding. The server may be down or you may be experiencing network problems. Contact your system administrator if this problem persists.
Preciso che l\'agente è firmato dall\'amministratore di sistema.
Il messaggio viene creato così:
Set posta=New NotesDocument(db)
posta.Form="Memo"
posta.SendTo=destin
posta.Subject="Avviso imminente ritiro"
Set rtitem=New NotesRichTextItem(posta,"Body")
testo="Si ricorda che il giorno "+Left(ritiro.DataRitiro(0),10)+" è previsto il ritiro "+"per il cliente "+ritiro.Cliente(0)
testo=testo+" presso "+ritiro.Debitore(0)+" in "+ritiro.Localita(0)
Call rtitem.AppendText(testo)
Call posta.Send(False)
Notifica=Date$+" "+Time$+" "+destin
Call ritiro.ReplaceItemValue("Notifica2",Notifica)
Call ritiro.Save(True,False)
Qualcuno mi può aiutare?
Ciao e grazie
|