Can't call method "AddRecipient" on unblessed reference.

huareu · Sep 29, 2000

I got the following error message:

} else { $Mailer->AddRecipient('' , 'name1@company.com' ) ; error '80004005'

Can't call method "AddRecipient" on unblessed reference.

/feedback.asp, line 35

***********************************************
during the execution of this file: Can you help? Thanks.
Hu

************************************
<%@ LANGUAGE = PerlScript%>

<html>
…..

<%

$MAILHOST = company.com'; ## SMTP server for email page.
$Mailer = $Server->CreateObject("SMTPsvg.Mailer&quot

;

$Mailer->{'FromName'} = $Request->Form('Name')->item;
$Mailer->{'FromAddress'} = $Request->Form('Email')->item;
$Mailer->{'RemoteHost'} = $MAILHOST;
$Mailer->{'Subject'} = "Comment from Feedback Page";
$Mailer->{'BodyText'} = "Company / Institution: " . $Request->Form('Company')->item . "\n" .
"Telephone Number: " . $Request->Form('Telephone')->item . "\n" .
"Sender IP Address: " . $Request->ServerVariables('REMOTE_ADDR')->item . "\n\n\n" .
$Request->Form('Comments')->item;

if (! $Request->Form('Name')->item || ! $Request->Form('Email')->item || ! $Request->Form('Comments')->item) {
$Response->write(" Error! You must fill in the Name, Email, and Comments fields. Press the back button on your browser to return to the form. &quot

;
} else {
$Mailer->AddRecipient('' , 'name1@company.com' ) ;
$Mailer->AddRecipient('' , 'name2@company.com' ) ;
$Mailer->AddRecipient('' , 'name3@company.com) ;
if ($Mailer->SendMail()) {
$Response->write("Thank you for your comments. They have been successfully sent.&quot

;
} else {
$Response->write('An Error has occurred. Your comments have not been successfully sent. 
<a href="mailto: name2@company.com">Try clicking here to invoke your local mail program
to E-mail name2@company.com</a>' );
}
}

%>

….

</body>
</html>

[sig][/sig]

sesth · Oct 4, 2000

Are you shure that

Code:

$Mailer = $Server->CreateObject(&quot;SMTPsvg.Mailer&quot;);

creates an Object? You should check this. With

Code:

$Win32::OLE::Warn = 3;

every COM error is immediately reported and your script dies.
Hope that helps
Thomas
[sig][/sig]

huareu · Oct 12, 2000

Thanks for the reply, I inserted the $Win32::OLE::Warn=3; as suggested, and the reported error listed on the bottom. I'm a beginner in PERL, so can you help me with this type of syntax error? Thanks.
Hu

THE ORIGINAL CODE:

I got the following error message:

} else { $Mailer->AddRecipient('' , 'name1@company.com' ) ; error '80004005'

Can't call method "AddRecipient" on unblessed reference.

/feedback.asp, line 35

***********************************************
during the execution of this file: Can you help? Thanks.
Hu

************************************
<%@ LANGUAGE = PerlScript%>

<html>
?.

<%

$MAILHOST = company.com'; ## SMTP server for email page.
$Mailer = $Server->CreateObject("SMTPsvg.Mailer&quot

;

$Mailer->{'FromName'} = $Request->Form('Name')->item;
$Mailer->{'FromAddress'} = $Request->Form('Email')->item;
$Mailer->{'RemoteHost'} = $MAILHOST;
$Mailer->{'Subject'} = "Comment from Feedback Page";
$Mailer->{'BodyText'} = "Company / Institution: " . $Request->Form('Company')->item . "\n" .
"Telephone Number: " . $Request->Form('Telephone')->item . "\n" .
"Sender IP Address: " . $Request->ServerVariables('REMOTE_ADDR')->item . "\n\n\n" .
$Request->Form('Comments')->item;

if (! $Request->Form('Name')->item || ! $Request->Form('Email')->item || ! $Request->Form('Comments')->item) {
$Response->write(" Error! You must fill in the Name, Email, and Comments fields. Press the back button on your browser to return to the form. &quot

;
} else {
$Mailer->AddRecipient('' , 'name1@company.com' ) ;
$Mailer->AddRecipient('' , 'name2@company.com' ) ;
$Mailer->AddRecipient('' , 'name3@company.com) ;
if ($Mailer->SendMail()) {
$Response->write("Thank you for your comments. They have been successfully sent.&quot

;
} else {
$Response->write('An Error has occurred. Your comments have not been successfully sent. 
<a href="mailto: name2@company.com">Try clicking here to invoke your local mail program
to E-mail name2@company.com</a>' );
}
}

%>

?

</body>
</html>

REPLY BY THOMAS:

Are you shure that
$Mailer = $Server->CreateObject("SMTPsvg.Mailer&quot

;
creates an Object? You should check this. With
$Win32::OLE::Warn = 3;
every COM error is immediately reported and your script dies.
Hope that helps
Thomas

REPORTED ERROR:

$Win32::OLE::Warn=3; $Mailer->{'FromName'} = $Request->Form('Name')->item; error '80004005'
Variable "$Mailer" is not imported. Global symbol "$Mailer" requires explicit package name at (eval 10) line 6. Variable "$Request" is not imported at (eval 10) line 6. Global symbol "$Request" requires explicit package name at (eval 10) line 6. Variable "$Mailer" is not imported at (eval 10) line 7. Global symbol "$Mailer" requires explicit package name at (eval 10) line 7. Variable "$Request" is not imported at (eval 10) line 7. Global symbol "$Request" requires explicit package name at (eval 10) line 7. Variable "$Mailer" is not imported at (eval 10) line 8. Global symbol "$Mailer" requires explicit package name at (eval 10) line 8. Variable "$MAILHOST" is not imported at (eval 10) line 8. Global symbol "$MAILHOST" requires explicit package name at (eval 10) line 8. Variable "$Mailer" is not imported at (eval 10) line 9. Global symbol "$Mailer" requires explicit package name at (eval 10) line 9. Variable "$Mailer" is not imported at (eval 10) line 10. Global symbol "$Mailer" requires explicit package name at (eval 10) line 10. Variable "$Request" is not imported at (eval 10) line 10. Global symbol "$Request" requires explicit package name at (eval 10) line 10. Variable "$Request" is not imported at (eval 10) line 11. Global symbol "$Request" requires explicit package name at (eval 10) line 11. Variable "$Request" is not imported at (eval 10) line 12. Global symbol "$Request" requires explicit package name at (eval 10) line 12. Variable "$Request" is not imported at (eval 10) line 13. Global symbol "$Request" requires explicit package name at (eval 10) line 13. Variable "$Request" is not imported at (eval 10) line 14. Global symbol "$Request" requires explicit package name at (eval 10) line 14. Variable "$Request" is not imported at (eval 10) line 14. Global symbol "$Request" requires explicit package name at (eval 10) line 14. Variable "$Request" is not imported at (eval 10) line 14. Global symbol "$Request" requires explicit package name at (eval 10) line 14. Variable "$Response" is not imported at (eval 10) line 15. Global symbol "$Response" requires explicit package name at (eval 10) line 15. Variable "$Mailer" is not imported at (eval 10) line 17. Global symbol "$Mailer" requires explicit package name at (eval 10) line 17. Variable "$Mailer" is not imported at (eval 10) line 18. Global symbol "$Mailer" requires explicit package name at (eval 10) line 18. Variable "$Mailer" is not imported at (eval 10) line 19. Global symbol "$Mailer" requires explicit package name at (eval 10) line 19. Variable "$Mailer" is not imported at (eval 10) line 20. Global symbol "$Mailer" requires explicit package name at (eval 10) line 20. Variable "$Response" is not imported at (eval 10) line 21. Global symbol "$Response" requires explicit package name at (eval 10) line 21. Variable "$Response" is not imported at (eval 10) line 23. Global symbol "$Response" requires explicit package name at (eval 10) line 23. Variable "$Response" is not imported at (eval 10) line 28. Global symbol "$Response" requires explicit package name at (eval 10) line 28.
[sig][/sig]

huareu · Oct 12, 2000

UPDATE OF LAST POST on 10/12/00

I got the following reported error after executing the code on the bottom.

} $Response->writeblock(1); error '80004005'
Variable "$Response" is not imported. Global symbol "$Response" requires explicit package name at (eval 10) line 28.
/feedback.asp, line 52

<%@ LANGUAGE = PerlScript%>
<html>
<head>
<title>Feedback Page</title>
</head>

<BODY>
<TABLE>
</TABLE>

<%
use strict;
$Win32::OLE::Warn=3;

my $MAILHOST = 'company.com';## SMTP server for email page.
my $Mailer = my $Server->CreateObject("SMTPsvg.Mailer&quot

;
$Mailer->{'FromName'} = my $Request->Form('Name')->item;
$Mailer->{'FromAddress'} = $Request->Form('Email')->item;
$Mailer->{'RemoteHost'} = $MAILHOST;
$Mailer->{'Subject'} = "Comment from PWD Feedback Page";
$Mailer->{'BodyText'} = "Company / Institution: " . $Request->Form('Company')->item . "\n" .
"Telephone Number: " . $Request->Form('Telephone')->item . "\n" .
"Sender IP Address: " . $Request->ServerVariables('REMOTE_ADDR')->item . "\n\n\n" .
$Request->Form('Comments')->item;

if (! $Request->Form('Name')->item || ! $Request->Form('Email')->item || ! $Request->Form('Comments')->item) {
my $Response->write(" Error! You must fill in the Name, Email, and Comments fields. Press the back button on your browser to return to the form. &quot

;
} else {
$Mailer->AddRecipient('' , 'name1@company.com') ;
$Mailer->AddRecipient('' , 'name2@company.com') ;
$Mailer->AddRecipient('' , 'name3@company.com') ;
if ($Mailer->SendMail()) {
my $Response->write("Thank you for your comments. They have been successfully sent.&quot

;
} else {
my $Response->write("An Error has occurred. Your comments have not been successfully sent. 
<a href="mailto:name2@company.com">Try clicking here to invoke your local mail program
to E-mail name2@company.com </a>&quot

;
}
}

[sig][/sig]

huareu · Oct 13, 2000

Help! Can't call method "AddRecipient" on unblessed reference.

I got the following reported error after executing the code on the bottom. Please help. Thanks.
Hu

} $Response->writeblock(1); error '80004005'
Variable "$Response" is not imported. Global symbol "$Response" requires explicit package name at (eval 10) line 28.
/feedback.asp, line 52

<%@ LANGUAGE = PerlScript%>
<html>
<head>
<title>Feedback Page</title>
</head>

<BODY>
<TABLE>
</TABLE>

<%
use strict;
$Win32::OLE::Warn=3;

my $MAILHOST = 'company.com';## SMTP server for email page.
my $Mailer = my $Server->CreateObject("SMTPsvg.Mailer&quot

;
$Mailer->{'FromName'} = my $Request->Form('Name')->item;
$Mailer->{'FromAddress'} = $Request->Form('Email')->item;
$Mailer->{'RemoteHost'} = $MAILHOST;
$Mailer->{'Subject'} = "Comment from PWD Feedback Page";
$Mailer->{'BodyText'} = "Company / Institution: " . $Request->Form('Company')->item . "\n" .
"Telephone Number: " . $Request->Form('Telephone')->item . "\n" .
"Sender IP Address: " . $Request->ServerVariables('REMOTE_ADDR')->item . "\n\n\n" .
$Request->Form('Comments')->item;

if (! $Request->Form('Name')->item || ! $Request->Form('Email')->item || ! $Request->Form('Comments')->item) {
my $Response->write(" Error! You must fill in the Name, Email, and Comments fields. Press the back button on your browser to return to the form. &quot

;
} else {
$Mailer->AddRecipient('' , 'name1@company.com') ;
$Mailer->AddRecipient('' , 'name2@company.com') ;
$Mailer->AddRecipient('' , 'name3@company.com') ;
if ($Mailer->SendMail()) {
my $Response->write("Thank you for your comments. They have been successfully sent.&quot

;
} else {
my $Response->write("An Error has occurred. Your comments have not been successfully sent. 
<a href="mailto:name2@company.com">Try clicking here to invoke your local mail program
to E-mail name2@company.com </a>&quot

;
}
}
[sig][/sig]

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Can't call method "AddRecipient" on unblessed reference.

huareu

Programmer

sesth

Programmer

huareu

Programmer

huareu

Programmer

huareu

Programmer

Similar threads

Part and Inventory Search

Sponsor

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Can't call method &quot;AddRecipient&quot; on unblessed reference.

huareu

Programmer

sesth

Programmer

huareu

Programmer

huareu

Programmer

huareu

Programmer

Similar threads

Log in

Part and Inventory Search

Sponsor

Can't call method "AddRecipient" on unblessed reference.