I am using the following sub to send email to users that are registered in our database.
What I am trying to do is get the senders email address auto-inserted rather than having to type it into a field.
Any ideas how I can do this with the following sub?
sub html_send_email_form {
#----------------------------------------------------------
my ($message) = $_[0];
%rec = &get_record($in{$db_key});
&html_page_top;
print qq|
<table border=0 bgcolor="#FFFFFF" cellpadding=5 cellspacing=3 width=600 align=center valign=top>
<tr><td class="tofronttext"><b>Send an email to $rec{'FirstName'} $rec{'LastName'}</b><br>
|;
if ($message) {
print qq| There was a problem: $message|;
}
print qq|
Fill in your email address, the subject of your email and the message you wish to send
to $rec{'FirstName'} $rec{'LastName'}.
|;
print qq|
<form action="$db_script_url" method="POST">
<input type=hidden name="db" value="$db_setup">
<input type=hidden name="uid" value="$db_uid">
<input type=hidden name="$db_key" value="$in{$db_key}">
<table><tr><td align=right class="tofronttext">Your email address:</td>
<td><input type=text name="EmailAddress" value="$in{'EmailAddress'}" size=40></td>
</tr>
<tr><td align=right class="tofronttext">Subject:</td>
<td><input type=text name="subject" value="$in{'subject'}" size=40></td></tr>
<tr><td align=right valign="top" class="tofronttext">Your message:</td>
<td><textarea name="emailmessage" rows=20 cols=50>$in{'emailmessage'}</TEXTAREA></td></tr>
</table><center>
<input type="submit" name="send_email" value="Send Email" STYLE="background-color:#eeeeee;border:1 solid #999999; Cursor:HAND">
<input type="submit" value="Reset Form" STYLE="background-color:#eeeeee;border:1 solid #999999; Cursor:HAND">
</center>
</form>
|;
&html_footer;
&html_page_bottom;
}
TIA,
Donm
What I am trying to do is get the senders email address auto-inserted rather than having to type it into a field.
Any ideas how I can do this with the following sub?
sub html_send_email_form {
#----------------------------------------------------------
my ($message) = $_[0];
%rec = &get_record($in{$db_key});
&html_page_top;
print qq|
<table border=0 bgcolor="#FFFFFF" cellpadding=5 cellspacing=3 width=600 align=center valign=top>
<tr><td class="tofronttext"><b>Send an email to $rec{'FirstName'} $rec{'LastName'}</b><br>
|;
if ($message) {
print qq| There was a problem: $message|;
}
print qq|
Fill in your email address, the subject of your email and the message you wish to send
to $rec{'FirstName'} $rec{'LastName'}.
|;
print qq|
<form action="$db_script_url" method="POST">
<input type=hidden name="db" value="$db_setup">
<input type=hidden name="uid" value="$db_uid">
<input type=hidden name="$db_key" value="$in{$db_key}">
<table><tr><td align=right class="tofronttext">Your email address:</td>
<td><input type=text name="EmailAddress" value="$in{'EmailAddress'}" size=40></td>
</tr>
<tr><td align=right class="tofronttext">Subject:</td>
<td><input type=text name="subject" value="$in{'subject'}" size=40></td></tr>
<tr><td align=right valign="top" class="tofronttext">Your message:</td>
<td><textarea name="emailmessage" rows=20 cols=50>$in{'emailmessage'}</TEXTAREA></td></tr>
</table><center>
<input type="submit" name="send_email" value="Send Email" STYLE="background-color:#eeeeee;border:1 solid #999999; Cursor:HAND">
<input type="submit" value="Reset Form" STYLE="background-color:#eeeeee;border:1 solid #999999; Cursor:HAND">
</center>
</form>
|;
&html_footer;
&html_page_bottom;
}
TIA,
Donm