// New Horde MIME_Mail Object
$mail = new MIME_Mail();

// Set the header date
$mail->addHeader('Date', date('r'));

// Set the from address
$mail->addHeader('From', 'sender@example.com');

// Set the subject of the mail
$mail->addHeader('Subject', 'Horde MIME_Mail example');

// Set the text message body
$mail->setBody('Example MIME message with an attachment');

// Add the file as an attachment, set the file name and what kind of file it is.
$mail->addAttachment('/tmp/some_file.zip', 'some_file.zip', 'application/x-zip-compressed');

// Add recipients
$mail->addRecipients('recipient@example.com');

// Get the mail driver
$mail_driver = $conf['mailer']['type'];
$mail_params = $conf['mailer']['params'];
if ($mail_driver == 'smtp' && $mail_params['auth'] &&
empty($mail_params['username'])) {
if (Auth::getAuth()) {
$mail_params['username'] = Auth::getAuth();
$mail_params['password'] = Auth::getCredential('password');
}
}

/* Custom MIME_Headers class because we need to implement _getStream(). */
class MyHeaders extends MIME_Headers {

function _getStream()
{
    return imap_open('{localhost/imap}INBOX', 'username', 'password');
}

}

/* Directory where the CSV attachments get stored WITH trailing slash. */
$target_dir = '/home/jan/csv/';

/* Search string for potential messages.

• Might be optimized by using something like 'SUBJECT "Always the same"'. */
  $imap_search = 'ALL';

/* Possible mime types of CSV attachments. */
$csv_mimetypes = array('text/plain',
'text/x-comma-separated-values',
'application/csv',
'application/vnd.ms-excel');

/* If necessary set the include path to the location where PEAR and the Horde

• packages are installed. */
  // ini_set('include_path', '/usr/share/php');

/****************************************************************************/

/**

• Shows all IMAP errors and exits.
  */
  function error_out()
  {
  $errors = imap_errors();
  if ($errors) {
  foreach ($errors as $error) {
  echo $error . "\n";
  }
  }
  exit;
  }

/* Load libraries. */
require_once 'Horde/CLI.php';
require_once 'Horde/MIME/Structure.php';
require_once 'Horde/MIME/Headers.php';
require_once 'Horde/NLS.php';

/* Setup CLI. */
if (!Horde_CLI::runningFromCLI()) {
exit("Must be run from the command line\n");
}
Horde_CLI::init();

/* Custom MIME_Headers class. */
class MyHeaders extends MIME_Headers {

function _getStream()
{
    return $GLOBALS['imap'];
}

}

/* Open IMAP connection. */
$imap = imap_open(sprintf('{%s/%s}INBOX', $imap_host, $imap_protocol),
$imap_user, $imap_pass);
if (!$imap) {
error_out();
}

/* Regexp for target filename. */
$regexp = '/_(\d+).csv$/';

/* Get all messages from the folder. */
$messages = imap_search($imap, $imap_search, FT_UID);

foreach ($messages as $uid) {
$struct = imap_fetchstructure($imap, $uid, FT_UID);

/* Is this no multipart message? */
if ($struct->type != 1) {
    continue;
}

/* Parse message structure. */
$body = imap_fetchheader($imap, $uid, FT_UID) .
        imap_body($imap, $uid, FT_UID);
$message = MIME_Structure::parseTextMIMEMessage($body);
$map = $message->contentTypeMap();

/* Search for message with possible CSV attachment. */
foreach ($map as $mime_id => $mime_type) {
    if (!in_array($mime_type, $csv_mimetypes)) {
        continue;
    }
    $mime_part = $message->getPart($mime_id);
    $filename = $mime_part->getName(true);
    if (String::lower(substr($filename, -4)) != '.csv') {
        continue;
    }

    /* CSV file found. */
    $content = $mime_part->transferDecode();

    /* Get message subject. */
    $headers = new MyHeaders($uid);
    $headers->buildHeaders();
    $subject = $headers->getValue('Subject');
    if (empty($subject)) {
        $subject = $filename;
    } else {
        $subject .= '.csv';
    }

    /* Find unique file name. */
    $filename = preg_replace('/[^a-z0-9_\-\.]/i', '_', $subject);
    while (file_exists($target_dir . $filename)) {
        if (preg_match($regexp, $filename, $match)) {
            $filename = preg_replace($regexp, '_' . ($match[1] + 1) . '.csv', $filename);
        } else {
            $filename = substr($filename, 0, -4) . '_1.csv';
        }
    }
    
    /* Write CSV file. */
    $fp = fopen($target_dir . $filename, 'w');
    if (!$fp) {
        exit("Can't open file '" . $target_dir . $filename . "' for writing.\n");
    }
    fwrite($fp, $content);
    fclose($fp);

    /* Delete message. */
    imap_delete($imap, $uid, FT_UID);
}

}