Ciao a tutti, ho creato un agente che spedisce una mail ad un destinatario, ma vorrei che al mittente venisse recapitato o il delivery report o la ricevuta di ritorno, ho fatto cosė
Sub Initialize
Dim
Set doc = s.documentcontext
oggi.SetNow
Set mail = New NotesDocument(mb)
mail.Form = "Memo"
\' imposto l\'oggetto della mail
mail.Subject = " Segnalazione guasto inserita il giorno : " +doc.datachiamata(0)
Set body = New NotesRichTextItem(mail, "Body")
\' creo il corpo del messaggio riga per riga
body.AddNewLine 1
body.AddNewLine 1
body.AppendText "Si inoltra la seguente richiesta di assistenza agli impianti :"
body.AppendText " Grazie e buona giornata"
mail.From = MailMittente
mail.SendTo = MailDestinatario
mail.Recipients = MailDestinatario
mail.DeliveryReport=1
mail.ReturnReceipt=1
Call mail.send(True)
La mail arriva, ma al mittente non arriva nessun messaggio di delivery report o di ricevuta di ritorno (sul server č abilitato).
Avete qualche idea?
|