'Dichiara un oggetto destinato a contenere l'indirizzo di posta del destinatario
                Dim destAddress As MailAddress

                'Istanzia l'autore del messaggio di posta
                Dim author As New MailAddress(Setting.EmailTextBox.Text, Setting.NomeTextBox.Text)

                destAddress = New MailAddress(Setting.DestinatarioTextBox.Text, Setting.NomeDestinatarioTextBox.Text)

                ' Create a new memory stream and export the report into it as PDF.
                Dim Mem As New MemoryStream()
                Report.ExportToPdf(Mem)

                ' Create a new attachment and put the PDF report into it.
                Mem.Seek(0, System.IO.SeekOrigin.Begin)
                Dim Att = New Attachment(Mem, "TestReport.pdf", "application/pdf")

                ' Create a new message and attach the PDF report to it.
                Dim Mail As New MailMessage()
                Mail.Attachments.Add(Att)

                With Mail

                    'Assegna agli elementi del messaggio ciò che è stato specificato nel form
                    'oltre all'autore del messaggio, istanziato precedentemente
                    .Subject = "Richiesta creazione Niki Card"
                    .Sender = author
                    .From = author
                    .Subject = Report.ExportOptions.Email.Subject
                    .Body = "Questo messaggio è stato inviato automaticamente dall'applicazione Niki 2009."
                    'Specifica quale messaggio di notifica deve essere inviato al mittente
                    'In questo caso solo se l'invio del messaggio fallisce.
                    .To.Add(destAddress)
                    .DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure
                End With

                Dim Client As New SmtpClient(Setting.SmtpTextBox.Text)
                'Client.EnableSsl = True

                'E' possibile specificare l'indirizzo IP dell'Host:
                'Client.Host = "210.333.3.1"

                Client.Credentials = New System.Net.NetworkCredential(Setting.NomeUtenteTextBox.Text, Setting.PasswordTextBox.Text)

                Client.Send(Mail)

                ' Close the memory stream.
                Mem.Close()
                Mem.Flush()
                Mem = Nothing
                GC.Collect()