Torna al Thread

'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()
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5