#! / USR / бен / PHP

$ Mbox = imap_open ( '{mail.mymaildomain.com:110/pop3}INBOX', 'user@mymaildomain.com', 'мойпароль') или умереть ( 'соединение POP3 не удалось');
$ = imap_num_msg почты ($ Mbox);
Эхо $ почты." новые письма прибыли \ п";
для ($ = 1; $ я<= $ почты; $ Я ++)
        {
        $ Mbody = imap_body ($ Mbox, $ I);
        $ линии = взорваться ("\ п", $ Mbody);
        Foreach ($ линии как $ TMP)
                {
                $ TMP = подрезать ($ TMP);
                если (пусто ($ TMP)) {продолжить; }
                эхо "BODY [". $ TMP."] \ П";
                }
# Imap_delete ($ Mbox, $ я);
        }
#imap_expunge ($ Mbox);
imap_close ($ Mbox);

?>