[vb.net]最简单的邮件发送

Imports Microsoft.Office.Interop.Outlook PRivate Sub sendMail()         Dim outObj As New application         Dim item As MailItem        item = outObj.CreateItem(0)         '设定收件人地址        item.To = "abc@163.com"         '设定邮件主题        item.Subject = "test"         '设定邮件内容        item.Body = "dasfdasfsda"         '设定添附文件        item.Attachments.Add("c:/tree.txt")         '发送        item.Send()     End Sub