OutlookEX UDF - Help & Support (II)

[water]

Have you tried the _OL_ItemCreate.au3 example script? Does this work for you?

[SkoubyeWan]

I just tested it. It works when Outlook is open. But if run when outlook is not open, I get the following error:

Error creating the test environment. @error = 508, @extended = 2

[water]

Very strange.

Which version of AutoIt do you run (I'm sure I've asked this in the past too)?

[SkoubyeWan]

AutoIT Version 3.3.8.1

[water]

SkoubyWan,

I can reproduce the error. I get:

COM Error Encountered in OL_Test5.au3
OutlookEx UDF version = 0.9.1
@AutoItVersion = 3.3.8.1
@AutoItX64 = 0
@Compiled = 0
@OSArch = X64
@OSVersion = WIN_7
Scriptline = 2442
NumberHex = 800706BE
Number = -2147023170
WinDescription = Remote Procedure Call failed
Description =
Source =
HelpFile =
HelpContext = 1027423549
LastDllError = 0

It's not obvious to me what happens so some testing will be needed ...

[water]

I think I found the bug.

Please replace line

$oItem.Close(0)

in function _OL_ItemCreate with

$oItem.Save()

[SkoubyeWan]

Great! That solved the problem. Now I just have to solve a problem in my own programing since the WinWaitClose("Message (HTML)") doesn't cause the program to wait. The email flashes on the screen and then is gone due to the _OL_Close command. But this one I can probably figure out on my own. Thanks so much for your efforts. This is an indispensable UDF.

[SkoubyeWan]

Great! That solved the problem. Now I just have to solve a problem in my own programing since the WinWaitClose("Message (HTML)") doesn't cause the program to wait. The email flashes on the screen and then is gone due to the _OL_Close command. But this one I can probably figure out on my own. Thanks so much for your efforts. This is an indispensable UDF.

Here is the solution to my prior programming error: Needed to be able to match substrings.

Opt("WinTitleMatchMode", 2) ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase

[SkoubyeWan]

A follow up from my prior post. Adding Opt("WinTitleMatchMode", 2) ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase solved the disappearing email problem. Now I get no errors and it waits for me to hit the send button on the created email. But hitting the send button immediately closes outlook and the email must wait in the outbox until outlook is opened again to send it.

I tried adding the _OL_ItemSendReceive but since outlook is closed, it gives an error. I can solve the problem by opening outlook again after the WinWaitClose statement, but that seems inelegant. Is there a way to click send on the created email item and keep outlook open for the sendreceive function? Or better yet, just have outlook not close until that email is sent. Here is the code for this function. Thanks for any input.

Global $oOutlook = _OL_Open()
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)

$oItem = _OL_ItemCreate($oOutlook, $olMailItem, "", "", "", "BodyFormat=" & $olFormatHTML, "Body=" & $BodyFinalWithLink, "Subject=" & $SubjectFinal, "To=" & $StaffEmail, "Importance=" & $olImportanceHigh)
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OL_ItemCreate Script", "Error creating mail. @error = " & @error & ", @extended = " & @extended)

_OL_ItemDisplay($oOutlook, $oItem)

WinWaitClose("Message (HTML)")

Global $oOutlook = _OL_Open()
_OL_ItemSendReceive($oOutlook, False)
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OL_ItemSendReceive Example Script", "Error sending/receiving mail. @error = " & @error & ", @extended = " & @extended)
MsgBox(64, "OutlookEX UDF: _OL_ItemSendReceive Example Script", "Mail successfully sent/received!")

_OL_Close($oOutlook)

[water]

A second _OL_Open isn't needed because Outlook stays open in the background until _OL_Close is called. So the script should look like:

Global $oOutlook = _OL_Open()
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)

$oItem = _OL_ItemCreate($oOutlook, $olMailItem, "", "", "", "BodyFormat=" & $olFormatHTML, "Body=" & $BodyFinalWithLink, "Subject=" & $SubjectFinal, "To=" & $StaffEmail, "Importance=" & $olImportanceHigh)
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OL_ItemCreate Script", "Error creating mail. @error = " & @error & ", @extended = " & @extended)

_OL_ItemDisplay($oOutlook, $oItem)

Opt("WinTitleMatchMode", 2) 
WinWaitClose("Message (HTML)")

_OL_ItemSendReceive($oOutlook, False)
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OL_ItemSendReceive Example Script", "Error sending/receiving mail. @error = " & @error & ", @extended = " & @extended)
MsgBox(64, "OutlookEX UDF: _OL_ItemSendReceive Example Script", "Mail successfully sent/received!")

_OL_Close($oOutlook)

[SkoubyeWan]

I agree that the second _OL_Open should not be necessary. But without it your script gives me this error:

Error sending/receiving mail. @error = 99, @extended = 12.

It appears that Outlook closes when the "Send" key is hit in the email. I guess that is really what I am asking. How do I avoid this. Again, there is no problem if the full version of Outlook is open in the background, but without it, you have to open Outlook again using _OL_Open and then send and receive. I am assuming you are not having this error occur. I seem to be the problem lately.

I am running Outlook 2010, Windows XP SP3, and AutoIT Version 3.3.8.1.

[water]

Error 99 means: Function not available for this Outlook version. @extended denotes the lowest required Outlook version to run the function

But you are running version 14 so everything should be fine. Looks like some kind of bug - again

Will again do some testing and come back as soon as I know what's going on.

[SkoubyeWan]

I don't know if this information helps or not, but when I hit the send button on the email, the Outlook icon in the systems tray goes away. This is what I mean by saying that hitting the send button shuts down Outlook.

[water]

Very, very strange.

Google didn't find anything so I need to test when I'm in my office again.

[water]

Strange problem. As soon as the displayed item is closed, Outlook closes too. Has nothing to do with _OL_ItemDisplay because the following script acts the same way.

It waits for 5 seconds then calls _OL_ItemSendRecieve. If you manually close the displayed item before the 5 seconds have passed then _OL_ItemSendRecieve will return @error = 99, else it works as expected.

#include <OutlookEX.au3>
Opt("TrayIconDebug", 1)
Global $oOutlook = _OL_Open()
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)

$BodyFinalWithLink = "Body"
$SubjectFinal = "Subject"
$StaffEmail = "name@company.com"
Global $oItem = _OL_ItemCreate($oOutlook, $olMailItem, "", "", "", "BodyFormat=" & $olFormatHTML, "Body=" & $BodyFinalWithLink, "Subject=" & $SubjectFinal, "To=" & $StaffEmail, "Importance=" & $olImportanceHigh)
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OL_ItemCreate Script", "Error creating mail. @error = " & @error & ", @extended = " & @extended)

$oItem.Display()

Sleep(5000)

_OL_ItemSendReceive($oOutlook, False)
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OL_ItemSendReceive Example Script", "Error sending/receiving mail. @error = " & @error & ", @extended = " & @extended)
MsgBox(64, "OutlookEX UDF: _OL_ItemSendReceive Example Script", "Mail successfully sent/received!")

;_OL_Close($oOutlook)

[SkoubyeWan]

Clearly you have been able to reproduce the issue i am having. I cannot make sense of why this happens either. I would have expected Outlook to remain active after closing the email item. The short term work around is to place another $oOutlook = _OL_Open() statement just before the send and receive to assure that Outlook sends the email. Thanks for looking into this.

[water]

I too would expect Outlook to remain active. I replaced $oItem.Display() with $oItem.GetInspector.Activate() because .Display is only still valid for cmpatibility reasons. But the result is the same.

According to MS Outlook is closed when there is no more open window.

So the script should look like:

Global $oOutlook = _OL_Open()
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)

$oItem = _OL_ItemCreate($oOutlook, $olMailItem, "", "", "", "BodyFormat=" & $olFormatHTML, "Body=" & $BodyFinalWithLink, "Subject=" & $SubjectFinal, "To=" & $StaffEmail, "Importance=" & $olImportanceHigh)
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OL_ItemCreate Script", "Error creating mail. @error = " & @error & ", @extended = " & @extended)

$oExplorer = $oItem.Parent.GetExplorer
_OL_ItemDisplay($oOutlook, $oItem)

Opt("WinTitleMatchMode", 2)
WinWaitClose("Message (HTML)")

_OL_ItemSendReceive($oOutlook, False)
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OL_ItemSendReceive Example Script", "Error sending/receiving mail. @error = " & @error & ", @extended = " & @extended)
MsgBox(64, "OutlookEX UDF: _OL_ItemSendReceive Example Script", "Mail successfully sent/received!")

_OL_Close($oOutlook)

Edited March 16, 2013 by water

[water]

I tested the above script and it works - Outlook stays open in the background.

Could you please test too?

[SkoubyeWan]

Sorry for the slow response. I have been out of pocket for a few days.

I tested the above code as well, and as you said, outlook does stay open to send the message when the send button is pressed on the email. However, the script never comes to an end to close outlook either. In other words, the script doesn't execute any further past the showing of the email item. It never gets to executing the send receive, it just does a send receive because outlook stays open, but it never does get to closing outlook and I have to manually end the script.

If I comment out the new line ($oExplorer = $oItem.Parent.GetExplorer), then it goes back to the prior error message and outlook closing on hitting the send button. So I guess we have solved one problem but created another. Why doesn't the script continue to execute after the _OL_ItemDisplay command?

[water]

Could you please add

AutoItSetOption("TrayIconDebug", 1)

at the top of the script? If you then run your script from SciTE and move the mouse over the AutoIt symbol in the system tray a tooltip displays the statement where the script has stopped.