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