,VB.net   工具软件   办公软件   操作系统   网络安全   设计在线   程序开发   教程宝典   软件下载   软件论坛,VB.net
您的位置:Yesky > 软件 > 开发者网络 > 微软开发专栏 > 正文
Web上利用System.Web.Mail发送EMail
[文章信息]
作者:
时间:2005-05-05
出处:爱雪儿工作室
责任编辑:方舟
[文章导读]
这是个vb.net的例子
advertisement
热点推荐
· 图文详解:黑客入侵方式演示
· Java异常处理的陋习展播
· 多媒体系列教程:网页设计制作
· Powerpoint动画演示教程连载
· 光盘刻录手册:禁忌与技巧(下)
[正文]
  这是个vb.net的例子~

  Email.aspx

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="Email.aspx.vb" Inherits="asif.SendEmail"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
 <title>SendEmail</title>
 <meta name="vs_showGrid" content="True">
 <meta content="Microsoft Visual Studio.NET 7.0" name="GENERATOR">
 <meta content="Visual Basic 7.0" name="CODE_LANGUAGE">
 <meta content="JavaScript" name="vs_defaultClientScript">
 <meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
</HEAD>
<body MS_POSITIONING="GridLayout">
 <form id="Form1" method="post" runat="server">
  <asp:Label id=Label5 runat="server" Width="464px" Font-Size="Large" Font-Bold="True" ForeColor="Blue"
style="Z-INDEX: 100; LEFT: 140px; POSITION: absolute; TOP: 42px">
    Sending Email from ASP.NET WebPage
  </asp:Label>

  <asp:TextBox id=txtFrom runat="server" Width="169px" style="Z-INDEX: 101; LEFT: 236px; POSITION: absolute; TOP: 104px">
  </asp:TextBox>

 <asp:Label id=Label1 runat="server" Font-Bold="True" Font-Names="Arial" Font-Size="Smaller" style="Z-INDEX: 102; LEFT: 140px; POSITION: absolute; TOP: 106px">
  From:
 </asp:Label>

 <asp:RequiredFieldValidator id=RequiredFieldValidator1 runat="server" Font-Size="X-Small"
ErrorMessage="*RequiredField" ControlToValidate="txtFrom" style="Z-INDEX: 103; LEFT: 413px; POSITION: absolute; TOP: 111px">
 </asp:RequiredFieldValidator>

 <asp:TextBox id=txtTo runat="server" Width="168px" style="Z-INDEX: 104; LEFT: 236px; POSITION: absolute;
TOP: 137px">
 </asp:TextBox>

 <asp:Label id=Label2 runat="server" Font-Bold="True" Font-Names="Arial" Font-Size="Smaller"
style="Z-INDEX: 105; LEFT: 140px; POSITION: absolute; TOP: 138px">
  To:
 </asp:Label>

 <asp:RequiredFieldValidator id=RequiredFieldValidator4 runat="server" Font-Size="X-Small"
ErrorMessage="*RequiredField" ControlToValidate="txtTo" style="Z-INDEX: 106; LEFT: 417px; POSITION: absolute;
TOP: 145px">
 </asp:RequiredFieldValidator>

 <asp:TextBox id=txtSubject runat="server" Width="168px" style="Z-INDEX: 107; LEFT: 236px; POSITION: absolute; TOP: 171px">
 </asp:TextBox>

 <asp:Label id=Label4 runat="server" Font-Bold="True" Font-Names="Arial" Font-Size="Smaller"
style="Z-INDEX: 108; LEFT: 140px; POSITION: absolute; TOP: 173px">
  Subject:
 </asp:Label>

 <asp:RequiredFieldValidator id=RequiredFieldValidator2 runat="server" Font-Size="X-Small"
ErrorMessage="*RequiredField" ControlToValidate="txtSubject" style="Z-INDEX: 109; LEFT: 417px; POSITION: absolute; TOP: 177px">
 </asp:RequiredFieldValidator>

 <asp:TextBox id=txtMessage runat="server" TextMode="MultiLine" Width="349px" Height="188px"
style="Z-INDEX: 110; LEFT: 236px; POSITION: absolute; TOP: 214px">
 </asp:TextBox>

 <asp:Label id=Label3 runat="server" Font-Bold="True" Font-Names="Arial" Font-Size="Smaller"
style="Z-INDEX: 111; LEFT: 140px; POSITION: absolute; TOP: 218px">
  Message:
 </asp:Label>

 <asp:RequiredFieldValidator id=RequiredFieldValidator3 runat="server" Font-Size="X-Small" ErrorMessage="*RequiredField" ControlToValidate="txtMessage" style="Z-INDEX: 112; LEFT: 591px; POSITION: absolute; TOP: 222px">
 </asp:RequiredFieldValidator>

 <asp:Button id=cmdSendEmail runat="server" Text="Send Email" Width="165px" Font-Bold="True"
style="Z-INDEX: 113; LEFT: 236px; POSITION: absolute; TOP: 418px">
 </asp:Button>

 <asp:Label id=lblMessage style="Z-INDEX: 114; LEFT: 141px; POSITION: absolute; TOP: 76px" runat="server"
Font-Size="Small" Width="373px" Visible="False">
 </asp:Label>
 </form>
</body>
</HTML>

Email.aspx.vb

Imports System.Web.Mail

Public Class SendEmail

 Private Sub cmdSendEmail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSendEmail.Click

  Dim objMail As New MailMessage()

  objMail.From = Me.txtFrom.Text.ToString
  objMail.To = Me.txtTo.Text.ToString
  objMail.Subject = Me.txtSubject.Text.ToString
  objMail.Body = Me.txtMessage.Text.ToString
  objMail.BodyFormat = MailFormat.Html
  SmtpMail.Send(objMail)
  Me.lblMessage.Text = "Email has been sent"

 End Sub

End Class

发表评论推荐给朋友我想参加相关培训打印我对此感兴趣订阅电子杂志
,VB.net相关内容,VB.net焦点新闻
  • 浅析Visual Basic.NET中的资源使用
  • VB.NET中采用多线程填写treeview控件
  • VB.NET中使用Directsound9之简单播放
  • 用Visual Basic.NET编写扑克牌游戏
  • Visual Basic.NET实现双检锁(DCL)模式
  • FVD刺激高清碟机加速商业化 抢占商机最重要
  • 3家搜索引擎集体诉讼8848 吕春维未敢出席
  • 杨元庆:没有准备不会获批的备用方案
  • 军队信息化诞生新领域 电子军务呼之欲出
  • 世界经济论坛公布信息化程度全球最新排名
  • 2004政务绩效评估:政府门户尚处于发展阶段
  • 甲骨文出资5.15亿美元 意图收购RetekInc
  • 技术并购:帮你突破传统增长的“天花板”
  • ,VB.netAdvertisement

    天极无线
    经典名曲 华语流行 欧美风情 人声音效 原声大碟
    你好周杰伦-安又琪
    直线-张韶涵
    天边-张韶涵
    看我72变-蔡依林
    乱世佳人-Twins
    全世界下雨-张娜拉
    我们的爱-飞儿乐队
    分手快乐-梁静茹
    爱在西元前-周杰伦
    三万英尺-迪克牛仔
    爱如潮水-张信哲
    爱情宣言-齐秦
    寻找玛依拉-刀郎
    驼铃-刀郎
    老鼠爱大米-杨臣刚
    功夫主题曲
    仙剑主题曲杀破狼
    天下无贼片尾曲
    冲动的惩罚-刀郎
    情人-刀郎
    爱情-莫文蔚
    挪威的森林-伍佰
    奔跑 - 羽泉
    因为爱 - 羽泉
      ·时尚女人圈
    ·经典影视专集
    ·美女秀场
    ·美丽大自然专题
    ·流行金曲
    ·科幻电影特区
    | 最新推荐
    ·你好周杰伦
    ·杀破狼
    ·寻找玛依拉
    ·孤单公园
    ·男人海洋
    | 魔术铃声
    ·少女丰胸
    ·少妇丰胸
    ·减肥魔铃
    ·增高魔铃
    ·美容魔铃

    今日报价查询 更多报价