ASP.Net 1.1 ÈçºÎ·¢ËÍ´øÓи½¼þµÄÓʼþ

    Private Sub SendEmail()
        Dim email As System.Web.Mail.MailMessage = New Mail.MailMessage
        Dim emailsmtp As System.Web.Mail.SmtpMail
        Dim emailattch As System.Web.Mail.MailAttachment
        email.from = "mingl@appfinityasia.com"
        email.To = "dongzhi@gmail.com"
        email.Subject = "email test" & System.DateTime.Now.ToString
        email.Body = "email body"
        emailattch = New Mail.MailAttachment("e:\test.txt", System.Web.Mail.MailEncoding.Base64)
        email.Attachments.Add(emailattch)
        emailsmtp.Send(email)
    End Sub