VB.Net by API/System.Web.Mail/MailFormat

MailFormat.Html

<source lang="vbnet"> Imports System.Web.Mail Imports System.Web.Mail.MailMessage Imports System.Web.Mail.MailAttachment Imports System.Web.Mail.SmtpMail Imports System.IO Imports System.Text Imports System.Text.Encoding Imports System.Threading

Public Class Tester

   Public Shared Sub Main
       Dim mailmsg As System.Web.Mail.MailMessage
       Dim mailAttach As System.Web.Mail.MailAttachment
       Dim i As Integer
   
       Try
         SmtpMail.SmtpServer = "server"
         mailmsg = New MailMessage()
         mailmsg.From = "from@from.net"
         mailmsg.To = "to@to.net"
         mailmsg.Cc = "cc@cc.net"
         mailmsg.Bcc = "bcc@bcc.net"
         mailmsg.Subject = "sub"
   
         mailmsg.BodyEncoding = System.Text.Encoding.UTF8
   
         mailmsg.Body = "body"
   
         mailmsg.BodyFormat = MailFormat.Html
         "mailmsg.BodyFormat = MailFormat.Text
   
         mailAttach = New MailAttachment("c:test.txt")
         mailmsg.Attachments.Add(mailAttach)
   
         mailmsg.Priority = MailPriority.Normal
         mailmsg.Priority = MailPriority.Low
         mailmsg.Priority = MailPriority.High
   
         Dim CurThread As Thread
   
         CurThread = System.Threading.Thread.CurrentThread
   
         SyncLock CurThread
           SmtpMail.Send(mailmsg)
         End SyncLock
   
         mailmsg = Nothing
   
         Console.WriteLine("Send Mail Successfully.")
   
       Catch ex As Exception
         Console.WriteLine("Send Mail Error: " & ex.ToString)
       End Try
   
   End Sub

End Class

 </source>