邮件发送小结

kld3000 2003-06-21 07:16:41
论坛上看到很多朋友问到怎么在aspx里面发送邮件
现在将一些发送邮件最基本的方法用代码的形式给大家看看
希望对正在研究的朋友有所帮助

发送简单的E-MAIL消息：
只需在页面里面输入发件人和收件人地址，以及标题和内容，就可以直接发送。
<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Web.Mail" %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)

End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim TheMailMessage as New MailMessage
Dim TheMailConnection as SmtpMail
TheMailMessage.From = txtFromEmail.Text
TheMailMessage.To = txtToEmail.Text
TheMailMessage.Subject = txtSubject.Text
TheMailMessage.Body = txtMessage.Text
TheMailConnection.Send(TheMailMessage)
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Sending a Simple Email Message in Code</TITLE>
</HEAD>
<form runat="server">
<BR><BR>
Enter your email address:
<asp:textbox
id="txtFromEmail"
runat="server"
/>
<BR>
Enter the to email address:
<asp:textbox
id="txtToEmail"
runat="server"
/>
<BR>
Enter the subject of your message:
<asp:textbox
id="txtSubject"
runat="server"
/>
<BR>
Enter the text of your message:
<asp:textbox
id="txtMessage"
runat="server"
textmode="MultiLine"
rows="5"
/>
<BR>
<asp:button
id="butOK"
text="Send"
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>
</form>
</BODY>
</HTML>
...全文
159 22 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
22 条回复
切换为时间正序
请发表友善的回复…
发表回复
946 2003-06-27
  • 打赏
  • 举报
 回复
mark
kld3000 2003-06-22
  • 打赏
  • 举报
 回复
只是最初级的

所以还没有加入身份验证

不过也欢迎各位兄弟把有身份验证的页面代码贴出来啊
simonasp 2003-06-21
  • 打赏
  • 举报
 回复
upupup
sunnyfigo 2003-06-21
  • 打赏
  • 举报
 回复
UP
OK521 2003-06-21
  • 打赏
  • 举报
 回复
同上
cer 2003-06-21
  • 打赏
  • 举报
 回复
smtp验证呢?
kld3000 2003-06-21
  • 打赏
  • 举报
 回复
这些都是最基本的事例
可是足以满足简单的日常需要了
希望对初学者有点帮助。
kld3000 2003-06-21
  • 打赏
  • 举报
 回复

邮件群发：
需要群发的邮件地址都在EmailDB这个数据库里面，查询数据库并把该数据库里面的地址都群法一遍。
<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Web.Mail" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OLEDB" %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)

End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim TheMailMessage as New MailMessage
Dim TheMailConnection as SmtpMail
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
Dim I as Long
TheMailMessage.From = txtFromEmail.Text
TheMailMessage.Subject = txtSubject.Text
TheMailMessage.Body = txtMessage.Text
DBConn = New OleDbConnection( _
"PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("/EmailDB.mdb;"))
DBCommand = New OleDbDataAdapter _
("Select EmailAddress " _
& "From Employees", DBConn)
DBCommand.Fill(DSPageData, _
"EmailAddress")
For I = 0 to DSPageData.Tables("EmailAddress"). _
Rows.Count - 1
TheMailMessage.To = DSPageData.Tables("EmailAddress"). _
Rows(I).Item("EmailAddress")
TheMailConnection.Send(TheMailMessage)
Next
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Sending Email Blast</TITLE>
</HEAD>
<form runat="server">
<BR><BR>
Enter your email address:
<BR>
<asp:textbox
id="txtFromEmail"
runat="server"
/>
<BR>
Enter the subject of your message:
<BR>
<asp:textbox
id="txtSubject"
runat="server"
/>
<BR>
Enter the text of your message:
<BR>
<asp:textbox
id="txtMessage"
runat="server"
textmode="MultiLine"
rows="5"
/>
<BR>
<asp:button
id="butOK"
text="Send"
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>
</form>
</BODY>
</HTML>
kld3000 2003-06-21
  • 打赏
  • 举报
 回复

嵌入图片：
<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Web.Mail" %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)

End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim TheMailMessage as New MailMessage
Dim TheMailConnection as SmtpMail
Dim TheMessage as String
TheMessage = "<HTML><BODY BACKGROUND=""bg.gif"" " _
& "TEXT=""DarkRed"">" _
& "<B>Product Name: </B>Pants<BR>" _
& "<B>Description: </B>These pants will last!<BR>" _
& "<B>Price: </B>$12.77<BR><BR>" _
& "<img src=""pants.gif"" border=2>" _
& "</BODY></HTML>"
TheMailMessage.From = "me@mycomapny.com"
TheMailMessage.To = txtToEmail.Text
TheMailMessage.Subject = "HTML Email"
TheMailMessage.Body = TheMessage
TheMailMessage.BodyFormat = MailFormat.Html
TheMailMessage.URLContentLocation = _
"http://192.168.1.103/"
TheMailConnection.Send(TheMailMessage)
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Sending an HTML Email Message</TITLE>
</HEAD>
<form runat="server">
<BR><BR>
Enter your email address:
<BR>
<asp:textbox
id="txtToEmail"
runat="server"
/>
<BR>
<BR>
<asp:button
id="butOK"
text="Send HTML Email"
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>
</form>
</BODY>
</HTML>
ltjoy 2003-06-21
  • 打赏
  • 举报
 回复
收藏先
kld3000 2003-06-21
  • 打赏
  • 举报
 回复

发送HTML格式的邮件：
<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Web.Mail" %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)

End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim TheMailMessage as New MailMessage
Dim TheMailConnection as SmtpMail
Dim TheMessage as String
TheMessage = "<HTML><BODY>" _
& "<B>Product Name: </B>Shoes<BR>" _
& "<B>Description: </B>These shoes are very nice!<BR>" _
& "<B>Price: </B>$48.96<BR><BR>" _
& "</BODY></HTML>"
TheMailMessage.From = "me@mycomapny.com"
TheMailMessage.To = txtToEmail.Text
TheMailMessage.Subject = "HTML Email"
TheMailMessage.Body = TheMessage
TheMailMessage.BodyFormat = MailFormat.Html
TheMailConnection.Send(TheMailMessage)
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Sending an HTML Email Message</TITLE>
</HEAD>
<form runat="server">
<BR><BR>
Enter your email address:
<BR>
<asp:textbox
id="txtToEmail"
runat="server"
/>
<BR>
<BR>
<asp:button
id="butOK"
text="Send HTML Email"
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>
</form>
</BODY>
</HTML>
kld3000 2003-06-21
  • 打赏
  • 举报
 回复

多个附件：
<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Web.Mail" %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)

End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim TheMailMessage as New MailMessage
Dim TheMailConnection as SmtpMail
Dim TheAttachment as MailAttachment
Dim TheItem as ListItem
TheMailMessage.From = "me@mycompany.com"
TheMailMessage.To = txtToEmail.Text
TheMailMessage.Subject = "File Request"
TheMailMessage.Body = "Attached is the information " _
& "you requested."
For Each TheItem in lbFiles.Items
If TheItem.Selected = True Then
TheAttachment = New MailAttachment( _
Server.MapPath("/" & TheItem.Value))
TheMailMessage.Attachments.Add(TheAttachment)
End If
Next
TheMailConnection.Send(TheMailMessage)
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Sending Multiple Files in an Email Message</TITLE>
</HEAD>
<form runat="server">
<BR><BR>
Enter your email address to recieve our Product Catalog:
<asp:textbox
id="txtToEmail"
runat="server"
/>
<BR>
Select all the files you wish to receive:
<asp:listbox
id="lbFiles"
runat="server"
selectionmode="multiple"
rows=3
>
<asp:listitem value="catalog.txt">Catalog</asp:listitem>
<asp:listitem value="locations.txt">Locations</asp:listitem>
<asp:listitem value="privacy.txt">Privacy</asp:listitem>
<asp:listitem value="jobs.txt">Jobs</asp:listitem>
</asp:listbox>
<BR>
<asp:button
id="butOK"
text="Send"
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>
</form>
</BODY>
</HTML>
kld3000 2003-06-21
  • 打赏
  • 举报
 回复

添加附件：
<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Web.Mail" %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)

End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim TheMailMessage as New MailMessage
Dim TheMailConnection as SmtpMail
Dim TheAttachment as MailAttachment
TheMailMessage.From = "me@mycompany.com"
TheMailMessage.To = txtToEmail.Text
TheMailMessage.Subject = "Product Catalog"
TheMailMessage.Body = "Attached is the information " _
& "you requested."
TheAttachment = New MailAttachment( _
Server.MapPath("/Catalog.txt"))
TheMailMessage.Attachments.Add(TheAttachment)
TheMailConnection.Send(TheMailMessage)
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Sending a Simple Email Message in Code</TITLE>
</HEAD>
<form runat="server">
<BR><BR>
Enter your email address to recieve our Product Catalog:
<asp:textbox
id="txtToEmail"
runat="server"
/>
<BR>
<BR>
<asp:button
id="butOK"
text="Send"
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>
</form>
</BODY>
</HTML>

happyccc 2003-06-21
  • 打赏
  • 举报
 回复
学习…………
kld3000 2003-06-21
  • 打赏
  • 举报
 回复

邮件的抄送和暗送：
用CC（Carbon Copy）和BCC（Blind Carbon Copy）来实现抄送和暗送：
<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Web.Mail" %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)

End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim TheMailMessage as New MailMessage
Dim TheMailConnection as SmtpMail
TheMailMessage.From = txtFromEmail.Text
TheMailMessage.To = txtToEmail.Text
TheMailMessage.CC = txtCCEmail.Text
TheMailMessage.BCC = txtBCCEmail.Text
TheMailMessage.Subject = txtSubject.Text
TheMailMessage.Body = txtMessage.Text
TheMailConnection.Send(TheMailMessage)
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Sending an Email to Other Recipients</TITLE>
</HEAD>
<form runat="server">
<BR><BR>
Enter your email address:
<BR>
<asp:textbox
id="txtFromEmail"
runat="server"
/>
<BR>
Enter the to email address:
<BR>
<asp:textbox
id="txtToEmail"
runat="server"
/>
<BR>
Enter the CC email addresses:
<BR>
<asp:textbox
id="txtCCEmail"
runat="server"
/>
<BR>
<BR>
Enter the BCC email addresses:
<BR>
<asp:textbox
id="txtBCCEmail"
runat="server"
/>
<BR>
Enter the subject of your message:
<BR>
<asp:textbox
id="txtSubject"
runat="server"
/>
<BR>
Enter the text of your message:
<BR>
<asp:textbox
id="txtMessage"
runat="server"
textmode="MultiLine"
rows="5"
/>
<BR>
<asp:button
id="butOK"
text="Send"
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>
</form>
</BODY>
</HTML>
kld3000 2003-06-21
  • 打赏
  • 举报
 回复

设置邮件优先级：
通过Priority属性设置
<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Web.Mail" %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)

End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim TheMailMessage as New MailMessage
Dim TheMailConnection as SmtpMail
TheMailMessage.From = txtFromEmail.Text
TheMailMessage.To = txtToEmail.Text
TheMailMessage.Subject = txtSubject.Text
TheMailMessage.Body = txtMessage.Text
If ddlPriority.SelectedItem.Text = "High" Then
TheMailMessage.Priority = MailPriority.High
ElseIf ddlPriority.SelectedItem.Text = "Normal" Then
TheMailMessage.Priority = MailPriority.Normal
Else
TheMailMessage.Priority = MailPriority.Low
End If
TheMailConnection.Send(TheMailMessage)
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Setting the Priority of an Email Message</TITLE>
</HEAD>
<form runat="server">
<BR><BR>
Enter your email address:
<BR>
<asp:textbox
id="txtFromEmail"
runat="server"
/>
<BR>
Enter the to email address:
<BR>
<asp:textbox
id="txtToEmail"
runat="server"
/>
<BR>
Enter the subject of your message:
<BR>
<asp:textbox
id="txtSubject"
runat="server"
/>
<BR>
Select the priority of the email message:
<BR>
<asp:dropdownlist
id="ddlPriority"
runat="server"
>
<asp:listitem>High</asp:listitem>
<asp:listitem>Normal</asp:listitem>
<asp:listitem>Low</asp:listitem>
</asp:dropdownlist>
<BR>
Enter the text of your message:
<BR>
<asp:textbox
id="txtMessage"
runat="server"
textmode="MultiLine"
rows="5"
/>
<BR>
<asp:button
id="butOK"
text="Send"
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>
</form>
</BODY>
</HTML>
kld3000 2003-06-21
  • 打赏
  • 举报
 回复
直接使用send方法发送：
除了可以通过对smtpMail对象的send方法传递一个Mailmessage对象发送一封信外，还可以通过send方法直接发送：
<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Web.Mail" %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)

End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim TheMailConnection as SmtpMail
TheMailConnection.Send(txtFromEmail.Text, txtToEmail.Text, _
txtSubject.Text, txtMessage.Text)
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Using the Send Method Directly</TITLE>
</HEAD>
<form runat="server">
<BR><BR>
Enter your email address:
<asp:textbox
id="txtFromEmail"
runat="server"
/>
<BR>
Enter the to email address:
<asp:textbox
id="txtToEmail"
runat="server"
/>
<BR>
Enter the subject of your message:
<asp:textbox
id="txtSubject"
runat="server"
/>
<BR>
Enter the text of your message:
<asp:textbox
id="txtMessage"
runat="server"
textmode="MultiLine"
rows="5"
/>
<BR>
<asp:button
id="butOK"
text="Send"
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>
</form>
</BODY>
</HTML>

newnan 2003-06-21
  • 打赏
  • 举报
 回复
gz
letian 2003-06-21
  • 打赏
  • 举报
 回复
不支持身份认证？
eeeren 2003-06-21
  • 打赏
  • 举报
 回复
收藏
加载更多回复（2）
VB网络编程实例
◆ 39.htm 简单电子邮件发送程序 ◆ 40.htm 建立拨号联接 ◆ 41.htm 将所有窗口最小化 ◆ 42.htm 利用IE控件访问Internet ◆ 43.htm 利用IE控件设计简易器 ◆ 44.htm 利用Mscomm32...
怎样发送匿名邮件
（1）网页登录：24小时临时邮箱（2）会获取一个临时邮箱，不需要注册就可以使用（3）点击匿名邮件发送（4）收件箱填写你想要发送人的邮箱地址，只有显示发送成功邮箱才会收到邮件（5）发件人会随机...
python 实战 自动发送邮件SMTP服务（解决账号没有权限问题）
本文主要内容包括，了解发邮件的思路，发送邮件需要的一些设置，发送一封简单的邮件，发送一封包含附件的邮件，在写代码过程中我们需要注意哪些问题等等。（完整参考代码地址见文末） 思路 使.
.NET社区

62,248

社区成员

668,998

社区内容

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见，支持健康理性的辩论和互动，反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧

+ 用AI写文章