Everything compiles and runs up to the remarked out code.
Bob Mechler
Bob Mechler
Code:
#COMPILER PBCC 5 #COMPILE EXE "pbsenddrafts.exe" #DIM ALL #INCLUDE "oOutLook.inc" FUNCTION PBMAIN LOCAL oOutLookApp AS Int__Application LOCAL oNameSpace AS Int__NameSpace LOCAL oFolders AS Int__Folders LOCAL oDraftFolder AS MAPIFolder LOCAL oMailItem AS Int__MailItem LOCAL lDraftItem AS LONG LOCAL sBody AS STRING DisplayResult "About to open OUTLOOK!" oOutLookApp = NEWCOM $PROGID_Outlook_Application IF ISFALSE ISOBJECT(oOutLookApp) THEN DisplayResult "Unable to open or start OUTLOOK!" EXIT FUNCTION ELSE DisplayResult "Outlook started!" END IF oNameSpace = oOutLookApp.GetNameSpace(UCODE$("MAPI")) IF ISFALSE ISOBJECT(oNameSpace) THEN DisplayResult "Unable to obtain a NameSpace" EXIT FUNCTION ELSE DisplayResult "Obtained a namespace" END IF oFolders = oNameSpace.Folders IF ISFALSE ISOBJECT(oFolders) THEN DisplayResult "Unable to obtain Folders collection" EXIT FUNCTION ELSE DisplayResult "Obtained a Folders collection" END IF oDraftFolder = oNameSpace.GetDefaultFolder(%olFolderDrafts) IF ISFALSE ISOBJECT(oDraftFolder) THEN DisplayResult "Unable to obtain oDraftFolder" EXIT FUNCTION ELSE DisplayResult "Obtained oDraftFolder" END IF IF oDraftFolder.Items.Count > 0 THEN DisplayResult "Number of items in the Draft Folder is " + STR$(oDraftFolder.Items.Count) FOR lDraftItem = oDraftFolder.Items.Count TO 1 STEP -1 oMailItem = oDraftFolder.Items.Item(lDraftItem) IF ISFALSE ISOBJECT(oMailItem) THEN DisplayResult "Unable to obtain oMailItem" EXIT FUNCTION ELSE DisplayResult "Obtained oMailItem" END IF 'oMailItem.Send 'IF ISFALSE ISOBJECT(oDraftFolder) THEN ' DisplayResult "Unable to send mailitem" ' EXIT FUNCTION 'ELSE ' DisplayResult "Mail item sent" 'END IF NEXT lDraftItem END IF PRINT "Starting Shutdown" oMailItem = NOTHING oDraftFolder = NOTHING oNameSpace = NOTHING oOutLookApp = NOTHING DisplayResult "Shutdown complete" EXIT FUNCTION END FUNCTION SUB DisplayResult(msg AS STRING) PRINT msg PRINT "Press a key..."; WAITKEY$ LOCATE ,1 END SUB
Comment