dotNetHell.it - Forum - Codice Sorgente

 Private Sub inviaMail()
      Dim smtp As New System.Net.Mail.SmtpClient
      Dim email As New Mail.MailMessage
      Dim htmlBODY As String = ""

      Try
         htmlBODY = HtmlEditor1.Document.body.innerHTML

         email.To.Add(txtTo.Text)

         email.Subject = txtSubject.Text
         email.SubjectEncoding = Encoding.UTF8


         replaceHTML_Images(htmlBODY, email)
         Dim top As String = "<!DOCTYPE html PUBLIC " & Chr(34) & "-//W3C//DTD XHTML 1.0 Transitional//EN" & Chr(34) & " " & Chr(34) & "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" & Chr(34) & ">"
         Dim headers As String = "<html><body>"
         Dim footers As String = "</body></html>"
         htmlBODY = top & headers & htmlBODY & footers

         Dim plainText As AlternateView = AlternateView.CreateAlternateViewFromString(htmlBODY, Encoding.UTF7, "text/html")
         plainText.TransferEncoding = Net.Mime.TransferEncoding.SevenBit
         email.AlternateViews.Add(plainText)

         'include gli allegati alla mail
         For Each item As ElementoListboxAtt In lstAllegati.Items
            Dim att As New Attachment(item.filePath) 'item.filepath corrisponde al oercorso fisico del file
            att.TransferEncoding = TransferEncoding.QuotedPrintable
            email.Attachments.Add(att)
         Next

         email.From = New MailAddress(GblPreferenze.smtpUsername) 'username
         email.Sender = New MailAddress(GblPreferenze.smtpUsername) 'username
         smtp.Host = GblPreferenze.smtpHostname 'hostname
         smtp.Port = GblPreferenze.smtpPort 'porta
         smtp.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network
         smtp.EnableSsl = GblPreferenze.smtpIsSSL 
         smtp.Credentials = New System.Net.NetworkCredential(GblPreferenze.smtpUsername, GblPreferenze.smtpPassword)
         smtp.Send(email)
      Catch ex As Exception
         MsgBoxEX.Show("inviaMail() - " & ex.Message, tipoMessaggio.MsgOkError, True)
      End Try
   End Sub