Mega Code Archive
Email with pictures
<![CDATA[
<%@ 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>Books<BR>" _
& "<B>Description: </B>These books are good!<BR>" _
& "<B>Price: </B>$12.77<BR><BR>" _
& "<img src=""books.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://yoururl/"
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>
]]>