Mega Code Archive

 

Categories / VB.Net by API / System Web Mail

 

MailPriority Normal

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