Mail::SendEasy::SMTP (3pm)

This module will handle the communication with the \s-1SMTP\s0 server. It hasn't dependencies and supports authentication.

  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 ;

Create the \s-1SMTP\s0 object and connects to the server.

connect

Connect to the server.

auth_types

The authentication types supported by the \s-1SMTP\s0 server. Does the authentication.

print (data)

Send data to the socket connection. Send a command to the server.

response

Returns the code response.

If wantarray returns an \s-1ARRAY\s0 with the response lines.

last_response

Returns an \s-1ARRAY\s0 with the response lines.

last_response_msg

The last response text.

last_response_line

The last response line (code and text).

close

\s-1QUIT\s0 and close the connection.

Graciliano M. P. <[email protected]>

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