推荐订阅源

Try

                Dim mail As New MailMessage
            mail.To = "wqiyuan@126.com"
            mail.From = "qi@126.com"
            ' mail.
            '  mail.From.

            mail.Subject = "progToemail11"

            mail.BodyFormat = MailFormat.Html
            mail.Body = "qiyuan123"

            '******************************
            Dim sFile As String = "E:\he.rar"

            Dim oAttch As MailAttachment = New MailAttachment(sFile, MailEncoding.Base64)

            mail.Attachments.Add(oAttch)     附件   
            '******************************
            mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
            mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "username")
            mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "password")
            SmtpMail.SmtpServer = "smtp126.com"
            SmtpMail.Send(mail)

            MessageBox.Show("发送邮件成功", "qiyuan")
        Catch ex As Exception

            MessageBox.Show(ex.ToString)

        End Try