Imports System
Imports System.Web
Imports System.Web.Mail
Imports System.Data
Imports System.Drawing
Imports System.Collections
Imports System.Windows.Forms
Imports System.ComponentModel
Public Class Tester
Public Shared Sub Main
Dim mails As New MailMessage
mails.From = "from@from.net"
mails.To = "to@to.net"
mails.Subject = "message"
mails.Cc = "cc@cc.net"
mails.Body = "this is the message"
mails.BodyEncoding = System.Text.Encoding.UTF8
mails.BodyFormat = MailFormat.Html
mails.Attachments.Add("c:\\test.txt")
SmtpMail.Send(mails)
End Sub
End Class
|