VB2008 邮件发送代码

'邮件发送
    Private Sub SendMail()
        Dim mailClient As New System.Net.Mail.SmtpClient
        mailClient.Host = "smtp.yeah.net"
        mailClient.UseDefaultCredentials = False
        mailClient.Credentials = New System.Net.NetworkCredential("用户名", "密码")
        mailClient.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network

        Dim message As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage("发件人", "收件人,收件人２")

        message.Subject = "邮件名头"
        message.Body = "邮件主体"
        message.BodyEncoding = System.Text.Encoding.UTF8
        message.IsBodyHtml = True

        Dim data As Net.Mail.Attachment = New Net.Mail.Attachment("附件", _
                                                                    System.Net.Mime.MediaTypeNames.Application.Octet)
        message.Attachments.Add(data)

        Try
            mailClient.Send(message)

        Catch ex As Exception
#If DEBUG Then
            MessageBox.Show(ex.Message)
#End If
        Finally
            message.Attachments.Dispose() '这个很重要，如果你是用程序自动发送邮件的，没有这个语句，你下次再发送这个附件时，就会提示这个文件正在被其它进程使用中
        End Try
    End Sub