I have tried the Mail::Sender module, now when I run the script, no error
occurs, but I can't receive any mail, even as I click the "Send/Receive"
button in Outlook.
Here is my script:
----------------------------------------------------------
use strict;
use Mail::Sender;
use CGI qw(:standard);
# Set up hash containing mail message information
#$sender = new Mail::Sender {};
my %mail = (
smtp => '13.198.32.88',
from => '[EMAIL PROTECTED]',
to => '[EMAIL PROTECTED]',
subject => 'Hello!',
msg => "I'm sending you a message."
);
(new Mail::Sender)->MailMsg(%mail);
print header(), start_html("Sendmail");
print p("Mail sent successfully!\n");
print end_html();
exit (0);
----------------------------------------------------------
Have you got the same problem as mine (can't receive mail)?
thanks,
Lee Goddard wrote:
> Sorry, I don't use Sendmail: since I'm on Windows here
> I use Mail::Sender which is a wonderful, wonderful thing.
> Have you tried it? Example from the POD:
>
> use Mail::Sender;
> $sender = new Mail::Sender {
> smtp => 'mail.yourdomain.com',
> from => '[EMAIL PROTECTED]'
> };
> $sender->MailMsg({
> to => '[EMAIL PROTECTED]',
> subject => 'Here is the file',
> msg => "I'm mailing you.",
> });
>
>
> You're not clear about what your mod_perl set-up is,
> but perhaps you don't want to call "exit" since it
> will cause the perl interpreter to die, and that negates
> the advantages gained in using mod_perl.
>
> hth
> lee
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
