急需一个发送vb.net 发送邮件的例子
急需要一个用outlook 发送邮件的例子，使用vb.net 如果有做过的麻烦跟我分享下啊。急死了
。网上找的都不可以用。在线等。。谢谢各位了
[解决办法]
给你提供一个我以前写的程序
可以通过Exchange服务器发送邮件，SMTP方式的我没有试过
Sub SendEmail()
Dim tmpClient As System.Net.Mail.SmtpClient = New System.Net.Mail.SmtpClient
Dim msgEmail As System.Net.Mail.MailMessage
tmpClient.UseDefaultCredentials = False
tmpClient.Credentials = New System.Net.NetworkCredential("邮件用户名", "邮件用户密码")
tmpClient.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network
tmpClient.Host = "Exchange服务器地址"
msgEmail = New System.Net.Mail.MailMessage
msgEmail.To.Add("收件人地址1")
msgEmail.To.Add("收件人地址2")
msgEmail.To.Add("收件人地址3")
msgEmail.IsBodyHtml = True
msgEmail.From = New Net.Mail.MailAddress("发件人邮件地址", "发件人姓名")
msgEmail.Subject = "邮件标题"
msgEmail.Body = "邮件正文"
msgEmail.DeliveryNotificationOptions = Net.Mail.DeliveryNotificationOptions.OnFailure
'添加附件
msgEmail.Attachments.Add(New System.Net.Mail.Attachment("包含路径的文件名"))
'正式执行发送
tmpClient.Send(msgEmail)
'发送完毕后，必须把附件释放，否则那个文件会一直处于被锁定状态，不能再被其他程序使用，这个问题困扰了我很久
msgEmail.Attachments(0).Dispose()
End Sub
