Jing Kang - 康 小靖
and 1 contributors

NAME

Mail::Send::Loop - Perl extension for sending emails that attach each file in a specified folder and loop a set of users

SYNOPSIS

        use strict;
        use Mail::Send::Loop;

        my @sender = ('Acting@netdlp.com', 'Actors@netdlp.com', 'Administrator@netdlp.com');
        my @rpient = ('tiger@freedom.net', 'lion@freedom.net');

        my $mailer = Mail::Send::Loop->new(
                mail_host  => '127.0.0.1',
                mail_port  => 25,
                mail_mode  => '1tom',
                greeting   => 'www.com',
                senders    => \@sender,
                recipients => \@rpient, 
                mail_count => 8,
        );

        my $email_body = &getMIME(); 

        $mailer->setDebug(1);

        my $ret = $mailer->sendMail_LoopAllUsers(
                mail_body       => $email_body,
                mail_mode       => '1to1',
                mail_count      => 3,
        );
        print "  $ret mails sent\n";

        $ret = $mailer->sendMail_AllFilesInFolder(
                mail_folder  => 'test_emails', 
                mail_mode    => '1to1',
                mail_subject => "blabla...",
                mail_txt_body=> "7777",
                greetings    => "ccc.com",
                mail_count   => 2,

        );

        print  $mailer->emailMode() . "\n";

        $mailer->sendMail_EML('test_emails/mail.eml', $sender[0], $rpient[0]);

        sub getMIME(){

        return  qq(MIME-Version: 1.0
                Content-Transfer-Encoding: binary
                Content-Type: multipart/mixed; boundary="_----------=_128097394742080"
                X-Mailer: MIME::Lite 3.027 (F2.76; T1.30; A2.06; B3.08; Q3.08)
                Date: Wed, 4 Aug 2010 19:05:47 -0700
                From: jkang\@freedom.net
                To: bill\@freedom.net
                Subject: A message with 2 parts ...

                This is a multi-part message in MIME format.

                --_----------=_128097394742080
                Content-Disposition: inline
                Content-Transfer-Encoding: 8bit
                Content-Type: text/plain

                Here's the attachment file(s) you wanted
                --_----------=_128097394742080
                Content-Disposition: attachment; filename="head.gif"
                Content-Transfer-Encoding: base64
                Content-Type: image/gif; name="head.gif"

                R0lGODlhUABQAPcAABgICC9vcTw6MC+jtKlvVHg7KcGLayQiG4BXRLR2bGEj
                ...
                --_----------=_128097394742080--
                );
        }

DESCRIPTION

The Module is designed to stress any MTA with different files, senders and recipients.

METHODS

new

        my $mailer = Mail::Send::Loop->new(option => 'value', ...);

Create an Email Client. Other functions can override some parameters.

Options:

  • debug

    Print all SMTP conversation

  • mail_host

    MTA's IP

  • mail_port

    MTA's Port. The default port is 25 if not given.

  • greeting

    HELO greeting. The default domain is 'test.net' if not given.

  • senders

    Users set for 'MAIL FROM'. It takes an ARRAY reference.

  • recipients

    Users set for 'RCPT TO'. It takes an ARRAY reference.

  • mail_mode

    1tom: One TCP connection to MTA is used to send MANY emails.

    1to1: One TCP connection to MTA is used to send ONE email.

  • mail_count

    Stop sending email after specified number of emails sent

    -1: Keep sending emails endlessly

setDebug

        $mailer->setDebug(1);

1/0: Enable/Disable SMTP conversation information

emailMode

         $mailer->emailMode()

Print current email Mode or Set it to 1to1/1tom.

sendMail_AllFilesInFolder

        $mailer->sendMail_AllFilesInFolder(option => 'value', ...);

Options:

  • mail_folder

    All files in this specified folder will be sent one by one as an attachment. EML file is sent as-it. Other files will be MIME-encrypted first based on LWP/media.types, and then sent out. Each email has only One attachment.

  • mail_mode

    1tom: One TCP connection to MTA is used to send MANY emails.

    1to1: One TCP connection to MTA is used to send ONE email.

  • mail_subject

    Static subject for each email

  • mail_txt_body

    Static email text body

  • greeting

    HELO greeting

  • senders

    Users set for 'MAIL FROM'. It takes an ARRAY reference.

  • recipients

    Users set for 'RCPT TO'. It takes an ARRAY reference.

  • mail_count

    Stop sending email after specified number of emails sent

sendMail_LoopAllUsers

        $mailer->sendMail_LoopAllUsers(option => 'value', ...);
        

Send SAME email to all users.

Options:

  • mail_body

    It takes text string that can be prepared MIME-encrypted email content.

  • mail_mode

    1tom: One TCP connection to MTA is used to send MANY emails.

    1to1: One TCP connection to MTA is used to send ONE email.

  • greeting

    HELO greeting

  • senders

    Users set for 'MAIL FROM'. It takes an ARRAY reference.

  • recipients

    Users set for 'RCPT TO'. It takes an ARRAY reference.

  • mail_count

    Stop sending email after specified number of emails sent

sendMail_EML

        $mailer->sendMail_EML($eml, $mailfrom, $mailto);
        

Send one specified EML email file

Options:

  • $eml

    EML file's path

  • $mailfrom

    MAIL FROM email address

  • $mailto

    RCPT TO email address

SEE ALSO

Please, see MIME::Lite.

AUTHOR

Jing Kang <kxj@hotmail.com>

COPYRIGHT AND LICENSE

Copyright (C) 2010 by jkang

This library is free software.