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
/// <summary>
/// 创建数据库。
/// </summary>
/// <param name="srvName">表� ......
