Io ho provato con uno script e funziona anche con 2000 destinatari
ha messo un pulsante con questo codice
__________________________________________________________
Sub Click(Source As Button)
Dim w As New NotesUIWorkspace
Dim DB As NotesDatabase
Dim Uidoc As NotesUIDocument
Dim Doc As NotesDocument
Dim MailDoc As NotesDocument
Dim DocBodyItem1 As NotesRichTextItem
Dim MailBodyItem2 As NotesRichTextItem
Dim ElencoSelezione
Set Uidoc = w.CurrentDocument
Set Doc = UiDoc.Document
Set Db = Doc.ParentDatabase
Set DocBodyItem1 = Doc.GetFirstItem("Body")
ElencoSelezione = Doc.ElencoSelezione
Set MailDoc = DB.CreateDocument
MailDoc.Subject = Doc.Subject
Set MailBodyItem2 = MailDoc.CreateRichTextItem("Body")
Call MailBodyItem2.AppendRTItem(DocBodyItem1)
Forall S In ElencoSelezione
MailDoc.SendTo = s
Call Maildoc.Send(False)
End Forall
Msgbox "Questa mail e stata spedita a " & (Ubound(ElencoSelezione)+1) & " destinatari"
End Sub
___________________________________________________________________
Spero che ti sia di aiuto (e spero che tu non debba mandare spam)
Ciao
Roberto Mele
Roberto Mele
Torino
|