科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件用ASP.NET 做自己的邮件发送系统

用ASP.NET 做自己的邮件发送系统

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

如果要你用ASP来做一个邮件发送系统,你一定认为这是一个比较复杂的工作……

作者:阿虎 来源:yesky 2007年10月26日

关键字: 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领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章