Hi Sir

I want my program to send information via email i am using Perl here is my code:

sub send_mail {


use OLE;

$h = new HTTP::Headers
Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
    Content_Type => 'text/html; version=3.2',
    Content_Base => 'http://www.musicasia.ca/';


$DevMailer = CreateObject OLE 'Geocel.Mailer';

        $DevMailer->AddServer ("mail.musicasia.ca",25);

        $DevMailer->AddRecipient ("[EMAIL PROTECTED]","Anees Khokhar");

        $DevMailer->{FromName}  = "Geocel Support";
        $DevMailer->{FromAddress}  = "[EMAIL PROTECTED]";

        $DevMailer->{Subject} = "Subscription";



        $DevMailer->{Body} = "Message Body\r\nLine 2\r\n";
        $DevMailer->{Body} = $DevMailer->{Body} . "Line 3\r\n";
        $success = $DevMailer->Send();

        if(! $success) {
                print "Could not send message, please check C:\\TEMP\\GEOCEL.LOG \n";
                print "for more information.\n";
        }


}


as soon as i hit the send button it gives me this error:

CGI Error
The specified CGI application misbehaved by not returning a complete set of HTTP headers. The headers it did return are:


Please if you can help me or post this so it could help others.
I have pl script in my cgi-bin

_________________________________________________________________
MSN Premium helps eliminate e-mail viruses. Get 2 months FREE* http://join.msn.com/?pgmarket=en-ca&page=byoa/prem&xAPID=1994&DI=1034&SU=http://hotmail.com/enca&HL=Market_MSNIS_Taglines




Reply via email to