VB.Net by API/System.Web.Mail/MailPriority
MailPriority.Normal
<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>