[if_maks]

Спасибо еще раз Gustav за полезную dll ку
вот так теперь читаем всю почту из outlook с помощью Redemption

static void maks_test_getMail_fromRedemption(Args _args)
{
    #SysOutlookCOMDEF
    COM outlook;          // Outlook.Application

    COM nameSpace;        // Outlook.nameSpace
    COM inboxFolder;      // Outlook.nameSpace.getDefaultFolder
    COM collection;       // Outlook.nameSpace.getDefaultFolder.items
    COM nextItem;         // Outlook.nameSpace.getDefaultFolder.items.item

    COM objMsg;           // Outlook.MailItem

    COM objSMail;      // Redemption.SafeMailItem
    COM objSenderAE;   // Redemption.AddressEntry
    ;

    objSMail = new COM('Redemption.SafeMailItem');

    outlook     = COM::getObject('Outlook.Application');
    nameSpace   = outlook.getNameSpace("MAPI");
    inboxFolder = nameSpace.getDefaultFolder(#OlDefaultFolders_olFolderInbox);
    collection  = inboxFolder.items();
    nextItem    = collection.getFirst();
    while (nextItem)
    {
        objSMail.Item( nextItem );
        objSenderAE = objSMail.Sender();
        if (objSenderAE)
            info( strfmt('Адрес отправителя: %1', objSenderAE.SMTPAddress() ));

        info("Тема : " + objSMail.Subject());
        info("Тело письма: " + objSMail.HTMLBody());

        nextItem = collection.getNext();
    }
}