в 16:40, 26 мая 2010

2010-05-26T16:40:16Z

Admin: 1 версия

2010-05-26T12:49:42Z

1 версия

Новая страница

==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>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net by API/System.Web.Mail/MailPriority - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия