Hi,
I am trying to send emaiEmail::Send::Gmail;
l have got following code from web:
Code:
#!/usr/bin/perl
##use strict;
use warnings;
use Email::Send;
use Email::Send::Gmail;
use Email::Simple::Creator;
use IO::Socket::SSL qw( SSL_VERIFY_NONE );
our ($uri);
RPC::XML::Client->new($uri,
useragent => [
ssl_opts => {
verify_hostname => 0,
SSL_verify_mode => SSL_VERIFY_NONE,
},
],
);
my $email = Email::Simple->create(
header => [
From => 'zulfi60001@gmail.com',
To => 'zulfi60001@gmail.com',
Subject => 'Server down',
],
body => 'The server is down. Start panicing.',
);
my $sender = Email::Send->new(
{ mailer => 'Gmail',
mailer_args => [
username => 'zulfi60001@gmail.com',
password => 'XXX',
]
}
);
eval { $sender->send($email) };
die "Error sending email: $@" if $@;
I am getting following error:
D:\Zulfi\PERL MAIN FOLDER>perl gmail2.pl
Can't locate object method "new" via package "RPC::XML::Client" (perhaps you for
got to load "RPC::XML::Client"?) at gmail2.pl line 10.
D:\Zulfi\PERL MAIN FOLDER>
Somebody plz help me.
Zulfi.