ImportsMicrosoft.Office.Interop.OutlookPRivateSubsendMail()DimoutObjAsNewapplicationDimitemAsMailItem
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