When there are so many pure-Perl mail tools at your disposal, why use blat? Here's a sample using Mail::Sendmail, which is installable with PPM if you're using ActivePerl.
use Mail::Sendmail; my $fromsender='someone@somewhere.com'; my $subject="Data"; my $CustomerNumber = param("CustomerNumber"); my $Name = param("Name"); my $Address1 = param("Address1"); my $City = param("City"); my $State = param("State"); my $ZipCode = param("ZipCode"); my $Email = param("Email"); my $server="server.name.net"; my $recipient='someoneelse@somewhereelse.com'; my $bccaddress = 'wheredidI@comefrom.com'; my $message="$CustomerNumber.$Name.$Address1.$City.$State.$ZipCode.$ +Email"; my %mail = ( Subject => $subject, From => $fromsender, To => $recipient, smtp => $server, Message => $message, Bcc => $bccaddress ); Mail::Sendmail::sendmail( %mail ); if ( $Mail::Sendmail::error ) { # ... display the error in $Mail::Sendmail::error # or however you wish to handle it } # everything else below this is for displaying HTML # and not relevant to this post...
Two other things:
Using single-quotes (') when creating strings means you don't have to escape the '@' character as you had in your original code.
I used 'my' to initialize all your variables so it would run under use strict;, which is highly recommended. It will save you more time than you know. It pointed out, for instance, that $bccaddress was never initialized.
Chris
M-x auto-bs-mode
In reply to Re: blat problems
by lachoy
in thread blat problems
by quietone
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |