[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 = "[e-mail]"
         '設定郵件主題
        item.Subject = "test"
         '設定郵件內容
        item.Body = "dasfdasfsda"
         '設定添附文件
        item.Attachments.Add("c:\tree.txt")
         '發送
        item.Send()
     End Sub