---
name: "Mail::SendEasy::SMTP"
section: "3pm"
platform: "linux"
package: "libmail-sendeasy-perl"
version: "1.2-2.1"
release: "Debian 13 (Trixie)"
platforms: ["linux"]
url: "https://new.carta.tech/Mail::SendEasy::SMTP"
---

# Mail::SendEasy::SMTP(3pm)

Handles the communication with the SMTP server without dependencies.

## NAME

Mail::SendEasy::SMTP - Handles the communication with the SMTP server without dependencies.

## DESCRIPTION

This module will handle the communication with the SMTP server. It hasn't dependencies and supports authentication.

## USAGE

```
  use Mail::SendEasy ;
  $smtp = Mail::SendEasy::SMTP->new( 'domain.foo' , 25 , 120 ) ;

  if ( !$smtp->auth ) { warn($smtp->last_response_line) ;}

  if ( $smtp->MAIL("FROM:<$mail{from}>") !~ /^2/ ) { warn($smtp->last_response_line) ;}

  if ( $smtp->RCPT("TO:<$to>") !~ /^2/ ) { warn($smtp->last_response_line) ;}

  if ( $smtp->RCPT("TO:<$to>") !~ /^2/ ) { warn($smtp->last_response_line) ;}

  if ( $smtp->DATA =~ /^3/ ) {
    $smtp->print("To: foo@foo") ;
    $smtp->print("Subject: test") ;
    $smtp->print("\n") ;
    $smtp->print("This is a sample MSG!") ;
    if ( $smtp->DATAEND !~ /^2/ ) { warn($smtp->last_response_line) ;}
  }
  $smtp->close ;
```

## METHODS

### new ($host , $port , $timeout , $user , $pass)

Create the SMTP object and connects to the server.

### connect

Connect to the server.

### auth\_types

The authentication types supported by the SMTP server.

### auth($user , $pass)

Does the authentication.

### print (data)

Send *data* to the socket connection.

### cmd (CMD , @MORE)

Send a command to the server.

### response

Returns the code response.

If *wantarray* returns an ARRAY with the response lines.

### last\_response

Returns an ARRAY with the response lines.

### last\_response\_msg

The last response text.

### last\_response\_line

The last response line (code and text).

### close

**QUIT** and close the connection.

## AUTHOR

Graciliano M. P. \<gm@virtuasites.com.br\>

## COPYRIGHT

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.