{"id":266,"date":"2015-01-20T14:29:53","date_gmt":"2015-01-20T14:29:53","guid":{"rendered":"http:\/\/adriangrigoras.com\/blog\/?p=266"},"modified":"2015-01-20T14:29:53","modified_gmt":"2015-01-20T14:29:53","slug":"send-email-gmail-perl","status":"publish","type":"post","link":"https:\/\/adriangrigoras.com\/blog\/send-email-gmail-perl\/","title":{"rendered":"Send email from Gmail using Perl"},"content":{"rendered":"

You can send email from Perl using the following code:<\/p>\n

use<\/span> Email<\/span>::<\/span>Send<\/span>;<\/span>\r\n\r\nmy<\/span> $mailer <\/span>=<\/span> Email<\/span>::<\/span>Send<\/span>-><\/span>new<\/span>(<\/span> {<\/span>\r\n    mailer <\/span>=><\/span> 'SMTP::TLS'<\/span>,<\/span>\r\n    mailer_args <\/span>=><\/span> [<\/span>\r\n        Host<\/span> =><\/span> 'smtp.gmail.com'<\/span>,<\/span>\r\n        Port<\/span> =><\/span> 587<\/span>,<\/span>\r\n        User<\/span> =><\/span> 'username@gmail.com'<\/span>,<\/span>\r\n        Password<\/span> =><\/span> 'password'<\/span>,<\/span>\r\n        Hello<\/span> =><\/span> 'fayland.org'<\/span>,<\/span>\r\n    ]<\/span>\r\n}<\/span> );<\/span>\r\n\r\nuse<\/span> Email<\/span>::<\/span>Simple<\/span>::<\/span>Creator<\/span>;<\/span> # or other Email::<\/span>\r\nmy<\/span> $email <\/span>=<\/span> Email<\/span>::<\/span>Simple<\/span>-><\/span>create<\/span>(<\/span>\r\n    header <\/span>=><\/span> [<\/span>\r\n        From<\/span>    =><\/span> 'username@gmail.com'<\/span>,<\/span>\r\n        To<\/span>      =><\/span> 'to@mail.com'<\/span>,<\/span>\r\n        Subject<\/span> =><\/span> 'Subject title'<\/span>,<\/span>\r\n    ],<\/span>\r\n    body <\/span>=><\/span> 'Content.'<\/span>,<\/span>\r\n);<\/span>\r\n\r\neval<\/span> {<\/span> $mailer<\/span>-><\/span>send<\/span>(<\/span>$email<\/span>)<\/span> };<\/span>\r\ndie<\/span> \"Error sending email: $@\"<\/span> if<\/span> $@<\/span>;<\/span><\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"
You can send email from Perl using the following code: use Email::Send; my $mailer = Email::Send->new( { mailer => ‘SMTP::TLS’, mailer_args => [ Host => ‘smtp.gmail.com’, Port => 587, User => ‘username@gmail.com’, Password => ‘password’, Hello => ‘fayland.org’, ] } ); use Email::Simple::Creator; # or other Email:: my $email = Email::Simple->create( header => [ From\u2026 Read More »<\/a><\/span><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[14],"tags":[],"class_list":["post-266","post","type-post","status-publish","format-standard","hentry","category-perl"],"_links":{"self":[{"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/posts\/266","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/comments?post=266"}],"version-history":[{"count":1,"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/posts\/266\/revisions"}],"predecessor-version":[{"id":267,"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/posts\/266\/revisions\/267"}],"wp:attachment":[{"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/media?parent=266"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/categories?post=266"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/tags?post=266"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}