vb.net连接Outlook发送邮件(亲自实践)

1.在vb.net工程中添加引用

2.程序如下:

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