I hope this is the appropiate forum to post this question.
I can't figure this out and have spent many hours and days doing research trying too!
I have a recipe database using Access on my wesite. All works fine with the exception of an option my users have, to email a friend a link to the recipe that they are viewing.
Clicking on (Email this recipe) opens a window (Sending recipe to friend) that allows them to enter their name and email address and the name of their friend and and email. Beneath these form fields is a text box that is populated with the recipe's name
and the link to it. Click send and a conformation that it has been sent appears.
It's received by the person it was sent to with a copy going to the sender---but---the email is mostly blank? The subject line of the email is there and a greeting---Hello (the name of the person the message is sent to), ---This message was sent from: (address
of my domain xxx.com.) and, You received this from (sender's first name and their email address) that's it!
There is no link to the recipe and the greeting that was in pre-populated form field on the send recipe page.
Any suggestions are greatly appreciated, John V.
Here is the page---
<%--
'++++++++++++++++++++++++++++++++++++++++++++
'+ World Recipe, Dexter Zafra
'+ Reconfigured by Good Cooking, Inc. 2010
'+
'++++++++++++++++++++++++++++++++++++++++++++
--%>
'++++++++++++++++++++++++++++++++++++++++++++
Sub Page_Load(Source As Object, E As EventArgs)
If Not Page.IsPostBack Then
Dim strUrl as string = "http://www.goodcooking.com/recipe/recipedetail.aspx?id=" & Request.QueryString("id")
Dim strName as string = Request.QueryString("n")
Dim strCat as string = Request.QueryString("c")
Dim strBody As String
strBody = "Hi," & vbCrLf & vbCrLf _
& "I thought you might be interested in this recipe I found at
www.goodcooking.com: " & vbCrLf _
& "Recipe Name: " & strName & vbCrLf _
& "Category: " & strCat & vbCrLf _
& vbCrLf
txtMessage.Text = strBody
End If
End Sub
'++++++++++++++++++++++++++++++++++++++++++++
'++++++++++++++++++++++++++++++++++++++++++++
Sub btnSendMsg_OnClick(Source As Object, E As EventArgs)
Try
Dim Messagesnd As New MailMessage
Dim sndingmail As SmtpMail
Dim strHello as string
Messagesnd.From = txtFromEmail.Text
Messagesnd.To = txtToEmail.Text
Messagesnd.Bcc = "entree@goodcooking.com"
Messagesnd.Subject = txtFromName.Text & " has emailed you " & Request.QueryString("n") & "recipe"
Messagesnd.Body = strHello & txtMessage.Text & vbCrLf _
& "This message was sent from: " _
& Request.ServerVariables("SERVER_NAME") & "." _
& vbCrLf & vbCrLf _
& "You received this from :" & txtFromName.Text & " - " & txtFromEmail.Text & "."
'SMTP server's name,localhost or ip address!
sndingmail.SmtpServer = "localhost"
sndingmail.Send(Messagesnd)
Panel1.Visible = False
lblsentmsg.Text = "Your message has been sent to " _
& txtToEmail.Text & "."
End If
Catch ex As Exception
HttpContext.Current.Response.Write("<b>AN ERROR OCCURRED:</b><br>" & _
"<br>" & ex.Message & "<br><br>Your web server is not configured to use email component for sending an email. Contact you system adminstrator.<br><br><p>Please <a href='mailto:entree@goodcooking.com'>e-mail us</a> providing as
much detail as possible including the error message, what page you were viewing and what you were trying to achieve.<p>")
Throw in some print statements to print out the variables used to create the email. The email is likely working perfectly. ZYour problem is in creating the email body.
BigJob
3 Posts
Classic ASP sending mail not working as planned
Feb 19, 2013 02:47 PM|LINK
I hope this is the appropiate forum to post this question.
I can't figure this out and have spent many hours and days doing research trying too!
I have a recipe database using Access on my wesite. All works fine with the exception of an option my users have, to email a friend a link to the recipe that they are viewing.
Clicking on (Email this recipe) opens a window (Sending recipe to friend) that allows them to enter their name and email address and the name of their friend and and email. Beneath these form fields is a text box that is populated with the recipe's name and the link to it. Click send and a conformation that it has been sent appears.
It's received by the person it was sent to with a copy going to the sender---but---the email is mostly blank? The subject line of the email is there and a greeting---Hello (the name of the person the message is sent to), ---This message was sent from: (address of my domain xxx.com.) and, You received this from (sender's first name and their email address) that's it!
There is no link to the recipe and the greeting that was in pre-populated form field on the send recipe page.
Any suggestions are greatly appreciated, John V.
Here is the page---
<%--
'++++++++++++++++++++++++++++++++++++++++++++
'+ World Recipe, Dexter Zafra
'+ Reconfigured by Good Cooking, Inc. 2010
'+
'++++++++++++++++++++++++++++++++++++++++++++
--%>
<%@ Page Language="VB" Debug="true" EnableSessionState="false" EnableViewState="false" %>
<%@ Import Namespace="System.Web.Mail" %>
<script language="VB" runat="server">
'++++++++++++++++++++++++++++++++++++++++++++
Sub Page_Load(Source As Object, E As EventArgs)
If Not Page.IsPostBack Then
Dim strUrl as string = "http://www.goodcooking.com/recipe/recipedetail.aspx?id=" & Request.QueryString("id")
Dim strName as string = Request.QueryString("n")
Dim strCat as string = Request.QueryString("c")
Dim strBody As String
strBody = "Hi," & vbCrLf & vbCrLf _
& "I thought you might be interested in this recipe I found at www.goodcooking.com: " & vbCrLf _
& "Recipe Name: " & strName & vbCrLf _
& "Category: " & strCat & vbCrLf _
& vbCrLf
txtMessage.Text = strBody
End If
End Sub
'++++++++++++++++++++++++++++++++++++++++++++
'++++++++++++++++++++++++++++++++++++++++++++
Sub btnSendMsg_OnClick(Source As Object, E As EventArgs)
Try
Dim Messagesnd As New MailMessage
Dim sndingmail As SmtpMail
Dim strHello as string
If Page.IsValid() Then
strHello = "Hello " & toname.text & "," & vbCrLf & vbCrLf _
Messagesnd.From = txtFromEmail.Text
Messagesnd.To = txtToEmail.Text
Messagesnd.Bcc = "entree@goodcooking.com"
Messagesnd.Subject = txtFromName.Text & " has emailed you " & Request.QueryString("n") & "recipe"
Messagesnd.Body = strHello & txtMessage.Text & vbCrLf _
& "This message was sent from: " _
& Request.ServerVariables("SERVER_NAME") & "." _
& vbCrLf & vbCrLf _
& "You received this from :" & txtFromName.Text & " - " & txtFromEmail.Text & "."
'SMTP server's name,localhost or ip address!
sndingmail.SmtpServer = "localhost"
sndingmail.Send(Messagesnd)
Panel1.Visible = False
lblsentmsg.Text = "Your message has been sent to " _
& txtToEmail.Text & "."
End If
Catch ex As Exception
HttpContext.Current.Response.Write("<b>AN ERROR OCCURRED:</b><br>" & _
"<br>" & ex.Message & "<br><br>Your web server is not configured to use email component for sending an email. Contact you system adminstrator.<br><br><p>Please <a href='mailto:entree@goodcooking.com'>e-mail us</a> providing as much detail as possible including the error message, what page you were viewing and what you were trying to achieve.<p>")
HttpContext.Current.Response.Flush()
HttpContext.Current.Response.End()
End Try
End Sub
'++++++++++++++++++++++++++++++++++++++++++++
</script>
<html>
<head>
<title>Sending Recipe To a Friend</title>
<style type="text/css" media="screen">@import "css/cssreciaspx.css";</style>
</head>
<body>
<asp:Panel ID="Panel1" runat="server">
<form runat="server">
<table align="center" cellspacing="0" cellpadding="0" width="40%">
<tr><td>
<br />
<div align="center"><h2>Sending <%=Request.QueryString("n")%> Recipe to a Friend</h2></div>
<table border="0" cellspacing="1" cellpadding="1" width="100%">
<tr>
<td valign="top" align="right" class="content6"><b>Your Name:</b></td>
<td>
<asp:TextBox id="txtFromName" size="25" cssClass="textbox" runat="server" />
<asp:RequiredFieldValidator runat="server"
id="validNameRequired" ControlToValidate="txtFromName"
cssClass="cred2" errormessage="* Name:<br />"
display="Dynamic" />
</td>
</tr>
<tr>
<td valign="top" align="right" class="content6"><b>Your Email:</b></td>
<td>
<asp:TextBox id="txtFromEmail" size="25" cssClass="textbox" runat="server" />
<asp:RequiredFieldValidator runat="server"
id="validFromEmailRequired" ControlToValidate="txtFromEmail"
cssClass="cred2" errormessage="* Email:<br />"
display="Dynamic" />
<asp:RegularExpressionValidator runat="server"
id="validFromEmailRegExp" ControlToValidate="txtFromEmail"
ValidationExpression="^[\w-]+@[\w-]+\.(com|net|org|edu|mil)$"
cssClass="cred2" errormessage="Not Valid"
Display="Dynamic" />
</td>
</tr>
<tr>
<td valign="top" align="right" class="content6"><b>Friends Name:</b></td>
<td>
<asp:TextBox id="toname" size="25" cssClass="textbox" runat="server" />
<asp:RequiredFieldValidator runat="server"
id="validFriendNameRequired" ControlToValidate="toname"
cssClass="cred2" errormessage="* Name:<br />"
display="Dynamic" />
</td>
</tr>
<tr>
<td valign="top" align="right" class="content6"><b>Friends Email:</b></td>
<td>
<asp:TextBox id="txtToEmail" size="25" cssClass="textbox" runat="server" />
<asp:RequiredFieldValidator runat="server"
id="validToEmailRequired" ControlToValidate="txtToEmail"
cssClass="cred2" errormessage="* Email:<br />"
display="Dynamic" />
<asp:RegularExpressionValidator runat="server"
id="validToEmailRegExp" ControlToValidate="txtToEmail"
ValidationExpression="^[\w-]+@[\w-]+\.(com|net|org|edu|mil)$"
cssClass="cred2" errormessage="Not Valid:"
Display="Dynamic" />
</td>
</tr>
<tr>
<td colspan="2">
<asp:TextBox id="txtMessage" cssClass="textbox" Cols="50" TextMode="MultiLine"
Rows="9" ReadOnly="True" runat="server" />
<br />
<asp:Button id="btnSend" cssClass="submit" Text="Send Recipe"
OnClick="btnSendMsg_OnClick" runat="server" />
</td>
</tr>
</table>
</td></tr>
</table>
</form>
</asp:Panel>
<div style="text-align: center;" class="content2"><asp:HyperLink runat="server" NavigateUrl="JavaScript:onClick= window.close()" class="content2">Close Window</asp:HyperLink></div>
<br />
<br />
<asp:Label cssClass="content2" id="lblsentmsg" runat="server" />
</body>
</html>
jeff@zina.co...
3379 Posts
MVP
Moderator
Re: Classic ASP sending mail not working as planned
Feb 25, 2013 03:04 PM|LINK
Throw in some print statements to print out the variables used to create the email. The email is likely working perfectly. ZYour problem is in creating the email body.
Jeff
BigJob
3 Posts
Re: Classic ASP sending mail not working as planned
Mar 03, 2013 09:51 PM|LINK
You know, I've been looking at this for so long, I couldn't get past the root of the problem. I'll do as you say and see if it corrects things.
Thank you for replying,
John V.