Guest User

Untitled

a guest
Jan 13th, 2018
327
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.94 KB | None | 0 0
  1. use Email::Send;
  2. use Email::Send::Gmail;
  3. use Email::Simple::Creator;
  4.  
  5. #$email = 'somewhere@mailserver.tld';
  6.  
  7. sendMail($email,"$details Has ended!");
  8.  
  9. sub sendMail {
  10. my ($ea,$msg) = @_;
  11. my $email = Email::Simple->create(
  12. header => [
  13. From => 'USERNAME@gmail.com',
  14. To => $ea,
  15. Subject => 'Simple scheduler update',
  16. ],
  17. body => $msg,
  18. );
  19.  
  20. my $sender = Email::Send->new({
  21. mailer => 'Gmail',
  22. mailer_args => [
  23. username => 'USERNAME@gmail.com',
  24. password => 'PASSWORD',
  25. ]
  26. }
  27. );
  28. eval { $sender->send($email) };
  29. die "Error sending email: $@" if $@;
  30. }
Add Comment
Please, Sign In to add comment