Получение почты в Ах.

[FiGr]

Спасибо за вариант, но разобрался сам.

static void mail_Attachment(Args _args)
{
    #SysOutlookCOMDEF
    SysOutlookApplication       outlook = new SysOutlookApplication();
    SysOutlook_Items            collection;
    SysOutlook_NameSpace        nameSpace;
    SysOutlookMapiFolder        inboxFolder;
    SysOutlookMailItem          mailItem;
    COM                         nextItem;
    SysOutlookAttachments       atts;
    SysOutlookAttachment        att;
    int                         a;
    ;

    namespace = outlook.getNameSpace('MAPI');

    inboxFolder = namespace.getDefaultFolder(#OlDefaultFolders_olFolderInbox);
    collection = inboxFolder.items();

    nextItem = collection.GetFirst();
    while (nextItem)
    {
        mailItem = new SysOutlookMailItem(nextItem);
        atts = mailItem.Attachments();
        a = atts.Count();
        while (a)
        {
            att = atts.Item(comVariant::createFromInt(a));
            info(strfmt("Тема '%1', файл '%2'",mailItem.Subject(),att.FileName()));
            att.SaveAsFile("c:\\" + att.FileName());
            a--;
        }
        nextItem = collection.GetNext();
    }
}