Perl: Send an E-Mail using Email::Simple and Email::Sender

Dipin Krishna

12 years ago

Email::Simple is the first deliverable of the “Perl Email Project.” The Email:: namespace was begun as a reaction against the increasing complexity and bugginess of Perl’s existing email modules. Email::* modules are meant to be simple to use and to maintain, pared to the bone, fast, minimal in their external dependencies, and correct.

Email::Sender replaces the old and sometimes problematic Email::Send library, which did a decent job at handling very simple email sending tasks, but was not suitable for serious use, for a variety of reasons. Most users will be able to use Email::Sender::Simple to send mail. Users with more specific needs should look at the available Email::Sender::Transport classes. Documentation may be found in Email::Sender::Manual, and new users should start with Email::Sender::Manual::QuickStart.

We will create a email message object using Email::Simple and use the sub sendmail in Email::Sender::Simple. We are using Email::Sender::Transport::SMTP to send the mail over SMTP.

```
 use strict;
```
```
 use warnings;
```
```
 use Try::Tiny;
```
```
 
```
```
 use Email::Simple;
```

 use Email::Sender::Simple qw(sendmail);

 use Email::Sender::Transport::SMTP::TLS;

```
 
```
```
 # Create the email message object.
```

 my $email_object = Email::Simple->create(

```
     header => [
```

         From           => 'USERNAME@gmail.com',

         To             => 'RECEIVER@gmail.com',

         Subject        => 'TEST MAIL!',

```
     ],
```
```
     body => 'THIS IS A TEST EMAIL',
```
```
 );
```
```
 
```

 # Create the transport. Using gmail for this example

 my $transport = Email::Sender::Transport::SMTP::TLS->new(

```
     host     => 'smtp.gmail.com',
```
```
     port     => 587,
```
```
     username => 'USERNAME@gmail.com',
```
```
     password => 'PASSWORD'
```
```
 );
```
```
 
```
```
 # send the mail
```
```
 try {
```

        sendmail( $email_object, {transport => $transport} );

```
 } catch {
```

        warn "Email sending failed: $_";

```
 };
```

Hope, it helps! 🙂