SendAllInDraft

[BOB MECHLER]

How would the following look in PB COM syntax?

Bob Mechler

SUB SendAllInDraft()
    DIM ns AS Outlook.NameSpace
    DIM objItm AS OBJECT
    DIM mi AS Outlook.MailItem
    SET ns = Outlook.Session
    FOR Each objItm IN ns.GetDefaultFolder(olFolderDrafts).Items
        IF TypeName(objItm) = "MailItem" THEN
            SET mi = objItm
            mi.Send
        END IF
    NEXT
END SUB