[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 = "[email protected]"
         '设定邮件主题
        item.Subject = "test"
         '设定邮件内容
        item.Body = "dasfdasfsda"
         '设定添附文件
        item.Attachments.Add("c:\tree.txt")
         '发送
        item.Send()
     End Sub

 

你可能感兴趣的:([vb.net]最简单的邮件发送)