扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者：阿虎 来源：yesky 2007年11月8日
关键字： Windows
| ＜SCRIPT language=VB RUNAT="server"＞ ＜br＞ ＜br＞ Sub SendMail (Obj As Object, E As EventArgs) ＜br＞ ＜br＞ Dim mailObj AS new MailMessage ＜br＞ ＜br＞ Dim smtp AS new SmtpMail ＜br＞ ＜br＞ '定义SMTP服务器的名称 ＜br＞ ＜br＞ Smtp.smtpserver="smtp.yesky.com" ＜br＞ ＜br＞ '定义邮件的发送地址 ＜br＞ ＜br＞ mailObj.From = "zhangchunlan@yesky.com" ＜br＞ ＜br＞ '定义邮件的接收地址 ＜br＞ ＜br＞ mailObj.To ="majinhu@yesky.com" ＜br＞ ＜br＞ '定义邮件的暗送地址 ＜br＞ ＜br＞ mailObj.Bcc="majinhu@163.net" ＜br＞ ＜br＞ '定义邮件的抄送地址 ＜br＞ ＜br＞ mailObj.Cc="majinhu@yesky.com" ＜br＞ ＜br＞ '定义邮件的主题 ＜br＞ ＜br＞ mailObj.Subject = "我的邮件系统，欢迎使用！" ＜br＞ ＜br＞ '定义邮件的主体 ＜br＞ ＜br＞ mailObj.Body = "这里是邮件的主体！" ＜br＞ ＜br＞ '邮件以HTML的格式发送 ＜br＞ ＜br＞ mailObj.BodyFormat = MailFormat.Html ＜br＞ ＜br＞ '定义邮件的有限级 ＜br＞ ＜br＞ mailObj.Priority = MailPriority.High ＜br＞ ＜br＞ '给发送的邮件附加上一个附件，请确定在C盘的根目录下有test.doc文件 ＜br＞ ＜br＞ mailObj.Attachments.Add(new MailAttachment("c:\test.doc")) ＜br＞ ＜br＞ Smtp.Send(mailObj) ＜br＞ ＜br＞ End Sub ＜br＞ ＜br＞ ＜/SCRIPT＞ |
如果您非常迫切的想了解IT领域最新产品与技术信息，那么订阅至顶网技术邮件将是您的最佳途径之一。
京公网安备 11010802021500号