Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use Email::Send;
- use Email::Send::Gmail;
- use Email::Simple::Creator;
- #$email = 'somewhere@mailserver.tld';
- sendMail($email,"$details Has ended!");
- sub sendMail {
- my ($ea,$msg) = @_;
- my $email = Email::Simple->create(
- header => [
- From => 'USERNAME@gmail.com',
- To => $ea,
- Subject => 'Simple scheduler update',
- ],
- body => $msg,
- );
- my $sender = Email::Send->new({
- mailer => 'Gmail',
- mailer_args => [
- username => 'USERNAME@gmail.com',
- password => 'PASSWORD',
- ]
- }
- );
- eval { $sender->send($email) };
- die "Error sending email: $@" if $@;
- }
Add Comment
Please, Sign In to add comment