Sign in to follow this  
Followers 0
kandinsky

Com Object with Progress Bar

3 posts in this topic

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

Share this post


Link to post
Share on other sites



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.


“Give a man a script; you have helped him for today. Teach a man to script; and you will not have to hear him whine for help.”AutoIt4UE - Custom AutoIt toolbar and wordfile for UltraEdit/UEStudio users.AutoIt Graphical Debugger - A graphical debugger for AutoIt.SimMetrics COM Wrapper - Calculate string similarity.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0