program MAPITEST,1.0(100)    ! test MX_MAPI
!EDIT HISTORY
![100] May 23, 2011 01:13 PM            Edited by jack
!   Created
!--------------------------------------------------------------------

++include ashinc:ashell.def

map1 STATUS,f

    ? "Test 1 - simplest possible"
    xcall MIAMEX, MX_MAPI, STATUS
    ? "Status: ";STATUS
    stop

    ? "Test 2 - add an embedded text fspec"
    xcall MIAMEX, MX_MAPI, STATUS, "ATEMSG.USA[1,4]"
    ? "Status: ";STATUS
    stop

    ? "Test 3 - attached file"
    xcall MIAMEX, MX_MAPI, STATUS, "LOG.LIT[1,4]", 2
    ? "Status: ";STATUS
    stop
    
    ? "Test 4 - add a subject line"
    xcall MIAMEX, MX_MAPI, STATUS, "LOG.LIT[1,4]", 2, "Test subject "
    ? "Status: ";STATUS
    stop

    ? "Test 5 - add a message text"
    xcall MIAMEX, MX_MAPI, STATUS, "LOG.LIT[1,4]", 2, "Test subject", "This is message text"
    ? "Status: ";STATUS
    stop

    ? "Test 6 - add a recipient"
    xcall MIAMEX, MX_MAPI, STATUS, "LOG.LIT[1,4]", 2, "Test subject", "This is message text", &
        "support@microsabio.com"
    ? "Status: ";STATUS
    stop

    ? "Test 7 - add a 2nd attachment"
    xcall MIAMEX, MX_MAPI, STATUS, "LOG.LIT[1,4]", 2, "Test subject", "This is message text", &
        "support@microsabio.com", "COPY.LIT[1,4]"
    ? "Status: ";STATUS
    stop

    END