Com Object with Progress Bar

[kandinsky]

Hello,

I would like to run a progress bar while while I send a mail with the Outlook COM Object.

My exchange mail server is quiet slow and the resolve of the E-Mail address can take up to 1 Minute.

The problem is that the Adlib function is not beeing called while the COM methods are executing.

This means that the Myadlib function is not beeing called and the progressbar is not updating.

Does anybody know how to solve this?

global $i
$I = 0
Func myadlib()
    ProgressSet($i)
    $i = $i + 1
    if $i = 100 Then
        $i = 0
    EndIf
EndFunc


$oOutlook = ObjCreate("Outlook.Application")
$OutboxItem.Item = $oOutlook.createitem(0)

ProgressOn("Sending Outlook E-Mail...", "", "Please wait while outlook sends confirmation mail")
AdlibEnable("myadlib",50)

With $OutboxItem
  .Subject="test"
  .HTMLbody="Test Message"
  .Recipients.Add("Test@test.com)
  .Recipients.Item(1).Resolve
  .Send
EndWith

ProgressOff()
Exit

Many thanks,

Kandinsky

[Stumpii]

You could write a second program 'Progress.exe' that just shows the progress bar. Start the program before you do the long task and kill the process when the long task finishes.

Is there an event raised by Outlook that gives a status of the progress? It might be hidden somewhere in the object model. I think unlikely, but take a look.

[big_daddy]

If you are just trying to show a dummy progress bar you might that a look at this.

Marquee Progress Control