Private Sub Send()
Dim outObj As New Outlook.Application()
Dim Item As Outlook.MailItemClass
Item = outObj.CreateItem(0)
Item.To = "lihonggen0@163.com "
Item.Subject = "hello"
Item.Body = "hell"
Item.Attachments.Add("C:/abc.txt")
Item.Send()
End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mailObj As New MailMessage()
Dim smtp As SmtpMail
'定义SMTP服务器的名称
smtp.SmtpServer = "smtp.XXX.com"
'定义邮件的发送地址
mailObj.From = "lihonggen@XXX.com"
'定义邮件的接收地址
mailObj.To = " AAA@XXX.com"
'定义邮件的暗送地址
mailObj.Bcc= "aa@sina.com"
'定义邮件的抄送地址
mailObj.Cc = "aaa@sina.com"
'定义邮件的主题
mailObj.Subject = "主题"
'定义邮件的主体
mailObj.Body = "邮件主体！"
'邮件以 HTML的格式发送
mailObj.BodyFormat = MailFormat.Html
'定义邮件的有限级，在此设定为高
mailObj.Priority = MailPriority.High
'给发送的邮件附加上一个附件
mailObj.Attachments.Add(New MailAttachment("c:/aa.doc"))
smTp.Send(mailObj)
End Sub

        Dim sendData As String
Dim szData As Byte()
Dim CRLF As String
CRLF = "/r/n"
'创建与服务器25端口的连接
Dim SmtpServ As New TcpClient(txtsmtp.Text, 25)
lstlog.Items.Clear()
'显示服务器初始信息
Dim NetStrm As NetworkStream
NetStrm = SmtpServ.GetStream()
Dim RdStrm As New StreamReader(SmtpServ.GetStream())
If RdStrm.ReadLine() <> "" Then lstlog.Items.Add(RdStrm.ReadLine())
'
sendData = "HELO server " + CRLF
szData = System.Text.Encoding.ASCII.GetBytes(sendData.ToCharArray())
NetStrm.Write(szData, 0, szData.Length)
lstlog.Items.Add(RdStrm.ReadLine())
'标志发件人
sendData = "MAIL FROM: " + "<" + txtfrom.Text + ">" + CRLF
szData = System.Text.Encoding.ASCII.GetBytes(sendData.ToCharArray())
NetStrm.Write(szData, 0, szData.Length)
lstlog.Items.Add(RdStrm.ReadLine())
'标志收件人
sendData = "RCPT TO: " + "<" + txtTo.Text + ">" + CRLF
szData = System.Text.Encoding.ASCII.GetBytes(sendData.ToCharArray())
NetStrm.Write(szData, 0, szData.Length)
lstlog.Items.Add(RdStrm.ReadLine())
'准备发送内容
sendData = "DATA " + CRLF
szData = System.Text.Encoding.ASCII.GetBytes(sendData.ToCharArray())
NetStrm.Write(szData, 0, szData.Length)
lstlog.Items.Add(RdStrm.ReadLine())
'发送主题
sendData = "SUBJECT: " + txtsub.Text + CRLF
'发送内容
sendData = sendData + txtmsg.Text + CRLF
'结束发送
sendData = sendData + "." + CRLF
szData = System.Text.Encoding.ASCII.GetBytes(sendData.ToCharArray())
NetStrm.Write(szData, 0, szData.Length)
lstlog.Items.Add(RdStrm.ReadLine())
'退出
sendData = "QUIT " + CRLF
szData = System.Text.Encoding.ASCII.GetBytes(sendData.ToCharArray())
NetStrm.Write(szData, 0, szData.Length)
lstlog.Items.Add(RdStrm.ReadLine())
'关闭连接
NetStrm.Close()
RdStrm.Close()
lstlog.Items.Add("连接关闭")
lstlog.Items.Add("发送成功")

        Mymail = CreateObject("CDONTS.NewMail")
Mymail.From = *** '信件发送者信箱
Mymail.To = *** ‘信件接收者信箱
Mymail.CC = *** '抄送
Mymail.BCC = *** ’密件发送
Mymail.Subject = *** ‘信件主题
Mymail.Body = *** ’信件正文
'设置优先级，0-不重要，1-一般，2-重要。
Mymail.Importance = 2
Mymail.Send()
Mymail = Nothing

        Dim JMail
JMail = Server.CreateObject("JMail.SMTPMail")
JMail.Logging = True
JMail.ServerAddress = "202.96.144.48"
JMail.Sender = "lihonggen0@163.com"
JMail.Subject = "subject."
JMail.Body = "body."
JMail.AddRecipient("bbbb@163.com")
JMail.AddAttachment("c:/go.gif")
JMail.Priority = 3
JMail.Execute()
JMail = Nothing