Ok here is the mail script
Please note that the variables are taken from a form
This line is at the top
use Net::SMTP;
these are the variables
$adminmail = 'q^webmaster2\@adelphia.net^';
$fname = $field{'fname'} ;
$lname = $field{'lname'} ;
$address = $field{'address'} ;
$city = $field{'city'} ;
$state = $field{'state'} ;
$zip = $field{'zip'} ;
$phone = $field{'phone'} ;
$email = $field{'email'} ;
$yes = $field{'yes'} ;
$no = $field{'no'} ;
$recip = $email ;
my $MAIL = new Net::SMTP('mail.dc3.adelphia.net');
$MAIL->mail('$adminmail');
$MAIL->to('$recip');
$MAIL->data();
$MAIL->datasend('To: $email'."\n");
$MAIL->datasend('From: $adminmail'."\n");
$MAIL->datasend('Subject: Confirmation'."\n");
$MAIL->datasend("\n");
$MAIL->datasend("Thank you\n");
$MAIL->datasend("for choosing\n");
$MAIL->datasend("Fusion\'s Universe to\n");
$MAIL->datasend("Host your site\n");
$MAIL->datasend("\n");
$MAIL->datasend("Please take a moment to\n");
$MAIL->datasend("verify the information\n");
$MAIL->datasend("you submitted is correct\n");
$MAIL->datasend("as all info is verified\n");
$MAIL->datasend("\n");
$MAIL->datasend('.$fname'."\n");
$MAIL->datasend('.$lname'."\n");
$MAIL->datasend('.$address'."\n");
$MAIL->datasend('.$city'."\n");
$MAIL->datasend('.$state'."\n");
$MAIL->datasend('.$zip'."\n");
$MAIL->datasend('.$phone'."\n");
$MAIL->datasend('.$email'."\n");
$MAIL->datasend("\n");
$MAIL->datasend("If this information\n");
$MAIL->datasend("is incorrect please\n");
$MAIL->datasend("contact the administrator\n");
$MAIL->datasend("ASAP! so it can be\n");
$MAIL->datasend("\n");
$MAIL->datasend("Thank you again\n");
$MAIL->datasend("for choosing\n");
$MAIL->datasend("Fusion\'s Universe\n");
$MAIL->dataend();
$MAIL->quit;
Will this work and if so, how do I add a CC to myself?
thanks
----- Original Message -----
From: "Tim Musson" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Saturday, May 11, 2002 10:24 PM
Subject: Re: Mail?
> Hey Bill,
>
> My MUA believes you used Microsoft Outlook Express 6.00.2600.0000
> to write the following on Saturday, May 11, 2002 at 9:48:14 PM.
>
> BL> I'm making a script that will sent info to a user verify.
> BL> like this
>
> $MAIL->>datasend('.$fname'."\n");
>
> BL> is this correct or not
>
> BL> Also I need to know
> BL> how I can include a cc to myself
>
> I suggest you include a bit more information... Which module are you
> using? Net::SMTP ? Mail::Mailer ?
>
> might be best if you included more of the appropriate code too.
>
> Here is something I keep on tap (I think I got most of it from TPJ).
>
> <code>
> use Net::SMTP;
>
> my($mh, $MailTo, $Subject, $MessageBody);
> #don't forget to set each of the above!
>
> sub sendMail {
> my $smtp = Net::SMTP->new("$mh");
> $smtp->mail($MailTo); # envelope bits
> $smtp->to($MailTo); # envelope bits
> $smtp->data(); # Now for the message itself
> $smtp->datasend("From: $MailTo\n");
> $smtp->datasend("To: $MailTo\n");
> $smtp->datasend("$Subject\n\n");
> $smtp->datasend("$MessageBody");
> $smtp->dataend(); # end the message
> $smtp->quit;
> }
> </code>
>
> --
> [EMAIL PROTECTED]
> MUA = TB! v1.60h (www.RitLabs.com/The_Bat)
> Windows 2000 5.0.2195 (Service Pack 2)
> You can't guard against the arbitrary!
>
> --
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
