Subversion-Projekte lars-tiefland.php_share

<?php

    /**
     * This example provides a basic demonstration of how Mail_IMAP can be used to
     * view multipart messages.  See {@link connect} for extended documentation on
     * how to set the connection URI.
     *
     * @author      Richard York <rich_y@php.net>
     * @copyright   (c) Copyright 2004, Richard York, All Rights Reserved.
     * @package     Mail_IMAP
     * @subpackage  examples
     **
    */
    require_once 'Mail/IMAP.php';

    // Import the message id and part id from the $_GET array
    $mid = $_GET['mid'];
    $pid = $_GET['pid'];

    // pop3://user:pass@mail.example.com:110/INBOX#notls

    $msg =& new Mail_IMAP();

    // Open up a mail connection
    // pop3://user:pass@mail.example.com:110/INBOX#notls
    // Use an existing imap resource stream, or provide a URI abstraction.
    //
    // If you are unsure of the URI syntax to use here,
    // use the Mail_IMAP_connection_wizard to find the right URI.
    // Or see docs for Mail_IMAP::connect
    //
    // This argument must also be set in MAIL_IMAP.inbox.php.

    if (PEAR::isError($msg->connect('imap://user:pass@mail.server.net:143/INBOX'))) {
        echo "<span style='font-weight: bold;'>Error:</span> Unable to build a connection.";
    }

    // Gather header information
    // Sets the seen flag if this is a subpart of a multipart message
    $msg->getHeaders($mid, $pid);

    // Use this to *not* set the seen flag
    // $msg->getHeaders($mid, $pid, 1024, 1024, NULL, FT_PEEK);
    //
    // Must also use this in the call to getBody below.

    // Gather inline/attachment parts specific to this part
    $msg->getParts($mid, $pid);

    // Are there inline or attachment parts?
    if (count($msg->inPid[$mid]) > 0 || count($msg->attachPid[$mid]) > 0)
    {
        echo "              <table style='width: 100%; border: 1px solid black; background: white;'>\n",
             "                  <tr>\n",
             "                      <td style='font-size: 10px; font-weight: bold;'>\n",
             "                          attachments\n",
             "                      </td>\n",
             "                  </tr>\n",
             "                      <td style='padding: 5px;'>\n";
    }

    // Are there inline parts?
    if (count($msg->inPid[$mid]) > 0)
    {
        foreach ($msg->inPid[$mid] as $i => $inid)
        {
            echo "                          Inline part: <a href='IMAP.message.php?mid={$mid}&amp;pid={$msg->inPid[$mid][$i]}'>{$msg->inFname[$mid][$i]} {$msg->inFtype[$mid][$i]} ".$msg->convertBytes($msg->inFsize[$mid][$i])."</a><br />\n";
        }
    }

    // Are there attachments?
    if (count($msg->attachPid[$mid]) > 0)
    {
        foreach ($msg->attachPid[$mid] as $i => $aid)
        {
            echo "                          Attachment: <a href='IMAP.message.php?mid={$mid}&amp;pid={$msg->attachPid[$mid][$i]}'>{$msg->attachFname[$mid][$i]} {$msg->attachFtype[$mid][$i]} ".$msg->convertBytes($msg->attachFsize[$mid][$i])."</a><br />\n";
        }
    }

    if (count($msg->inPid[$mid]) > 0 || count($msg->attachPid[$mid]) > 0)
    {
        echo "                      </td>\n",
             "                  </tr>\n",
             "              </table>\n";
    }

        echo "              <table style='width: 100%; border: 1px solid black; background: white; margin-top: 5px;'>\n",
             "                  <tr>\n",
             "                     <td>\n",
             "                      <pre>\n",

                                         // Print the Raw Headers
                                         htmlspecialchars($msg->rawHeaders[$mid]),

             "                      </pre>\n",
             "                    </td>\n",
             "                  </tr>\n",
             "              </table>\n";

    // Retrieve the message body (sets the seen flag)
    $body = $msg->getBody($mid, $pid);

    // Use this to *not* set the seen flag
    // $body = $msg->getBody($mid, $pid, 0, 'text/html', FT_PEEK);
    //
    // Must also use this in the call to getHeaders above.

    if ($body['ftype'] == 'text/plain')
    {
        echo "              <table style='width: 100%; border: 1px solid black; background: white; margin-top: 5px;'>\n",
             "                  <tr>\n",
             "                      <td>\n",

                                         // If this is a plain/text part format it for display
                                         nl2br(htmlspecialchars($body['message'])),

             "                      </td>\n",
             "                  </tr>\n",
             "              </table>\n";
    }
    else
    {
        echo $body['message'];
    }

    // Close the stream
    $msg->close();

?>