sendattachment.aspx

asp.net技术内幕的书配源码

<%@ Import Namespace="System.Web.Mail" %>
<%
Dim objMailMessage As MailMessage
Dim objMailAttachment As MailAttachment

' Create the Mail Attachment
objMailAttachment = New MailAttachment( "c:\BizPlan.doc" )

' Create the Mail Message
objMailMessage = New MailMessage
objMailMessage.From = "[e-mail]"
objMailMessage.To = "[e-mail]"
objMailMessage.Subject = "Secret Business Plan"
objMailMessage.Body = "Here's the plan (don't show it to anyone!)"
objMailMessage.Attachments.Add( objMailAttachment )

' Send the Mail Message
SmtpMail.Send( objMailMessage )
%>

BizPlan Sent!