Impromptu Macro Writing

[FirstTimeMacroHELP]

Hello,

I am writing a macro to automate a Letter report and I can't seem to get the cascading prompt windows to work properly.
How do I get the macro to press OK to get from one Prompt window to the next.

I hope this makes sense,

Thanks,

Becca

 

[FirstTimeMacroHELP]

This is the current Macro I have:

Dim ImpAppObject as Object
Dim ImpRepObject as Object
Dim PDFPubObject as Object
Sub Main()
Set ImpAppObject = CreateObject("Impromptu.Application")
ImpAppObject.OpenCatalog "\\csdpr15ap\codadir\Impromptu\codalive.cat", "Creator" ,"CODA500","reportwriter","ReportWriter"
Set ImpRepObject = ImpAppObject.OpenReport("\\csdpr15ap\codadir\Impromptu\Exchequer\Reminder Letter Level 1a.imr","CORE|14|CORE1/STILLR01/BL| : ALL")
ImpRepObject.RetrieveAll
Set PDFPubObject = ImpRepObject.PublishPDF
PDFPubObject.Publish "\\cs\groups\Finance\Exchequer\Rebecca\Reminder Letter Level 1a Pat.pdf"
ImpRepObject.CloseReport
ImpAppObject.Quit
Set ImpRepObject = Nothing
Set ImpAppObject = Nothing
End Sub

Between CORE and 14 there is a change in windows, if you are running it manually you have to click OK. Does anyone know how I can get it to do it itself?

Thanks

 

[drlex]

Try using the SENDKEYS command

[...]
Set ImpRepObject = ImpAppObject.OpenReport("\\csdpr15ap\codadir\Impromptu\Exchequer\Reminder Letter Level 1a.imr","CORE|14") 
SendKeys "{Enter}"+ "|CORE1/STILLR01/BL| : ALL", True
[...]

SENDKEYS is a bit of a fudge, but may solve your issue.
See here for IBM example:

http://pic.dhe.ibm.com/infocenter/c...id1779CreatingMacrosandAutomationScripts.html

soi là, soi carré

 

[FirstTimeMacroHELP]

Thank you