OutlookEX UDF: Example scripts

[water]

Version 0.9.0.0 of the UDF has been released.

Please test before using in production!

For download please see my signature.

[water]

Example scripts updated!

[SkoubyeWan]

I cannot get the _OL_Example_SentMail_Event.au3 to work. I am working on a windows XP SP3 Computer with Outlook 2010 and UDF 0.9.0. Is it possible Outlook is blocking the script somehow?

Thanks.

[water]

Do you get a security popup?

[SkoubyeWan]

I did not. It runs and tells me the hotkey to use to exit, but does not do anything else when an email is sent. I built some scripts under a prior version of the UDF that included this kind of functionality. I compiled them. I had a hard drive crash. Didn't loose any of the data, but can't remember the version of the UDF that I was previously using and installed. My exe file still works (because it has the original UDF built in) but the au3 file does not with the new UDF version. I want to add some additional functionality so I want to update my code. If this example worked, it would give me the code I need.

Thanks.

[water]

Can you insert

_OL_ErrorNotify(2)

at the top of the script so we can see any COM error messages.

[SkoubyeWan]

I have inserted it and It shows a com error in the following script line:

Global $oItems = $oOApp.GetNamespace("MAPI").GetDefaultFolder($olFolderSentMail).Items

Here is the error report:

COM Error Encountered in _OL_Example_SentMail_Event.au3

AutlookEx UDF version = 0.9.0

@AutoItVersion 3.3.6.0

@AutoItX64 = 0

@Compiled = 0

@OSArch = X86

$OSVersion = WIN_XP

Scriptline = 18

NumberHex = 80040200

Number-2147220992

The rest are blank except for:

LastDllError = 0

This happens right after dismissing the message box at the beginning of the script.

Edited February 28, 2013 by SkoubyeWan

[water]

Google gives me the following information:

0x80004002 (E_NOINTERFACE or "No such interface supported")

0x80040200 (CONNECT_E_NOCONNECTION)

0x80040202 (CONNECT_E_CANNOTCONNECT)

Do you run the full Outlook product or the evaluation version?

[SkoubyeWan]

Office 2010 Professional full version. It did start as an evaluation version and then a license was purchased.

[water]

When installing an evaluation version COM support isn't installed. Even when you provide the license key COM support is still missing.

I guess a re-install of the full product is needed.

[SkoubyeWan]

That is bad news. I wonder why my old compiled script with the older OutlookEx UDF still works? Thanks so much for giving this a look.

[water]

Did you compile on a computer with full Outlook installed?

[water]

I wonder why my old compiled script with the older OutlookEx UDF still works?

The example script is independant from the UDF (in fact the #include statement in the example script isn't needed) because none of the _OL_* functions is called.

[SkoubyeWan]

I compiled it when I had Outlook 2007 and before my upgrade to 2010. I would be happy to reinstall the full version if I had a disk, but I purchased the software online and received the validation code via email from the seller. You then install the trial version and register it. I guess I will have to wait until I can get my hands on a disk of the full version to install with. There is no way to activate COM support without reinstallation?

[water]

I'm not familiar with "Office Starter". Best would be to ask your seller. He should know.

[SkoubyeWan]

When I go to Outlook 2010 Add-ins, there are listed a large number of functioning COM Add-Ins. How are these functioning if the COM support is not working?

[water]

Another question:

Where did you insert

_OL_ErrorNotify(2)

Before or after _OL_Open?

[SkoubyeWan]

Right after the includes. Here is the entire example script with it added:

#AutoIt3Wrapper_Au3Check_Parameters= -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#AutoIt3Wrapper_Au3Check_Stop_OnWarning=Y
#include 
_OL_ErrorNotify(2)

; *****************************************************************************
; Example Script
; Handle Outlook Folder event when a new item arrives in a folder.
; This script checks the Sent Items folder to display a message when a mail
; has been sent (= a copy of the sent mail is stored in this folder).
; This script loops until Shift-Alt-E is pressed to exit.
; *****************************************************************************
HotKeySet("+!e", "_Exit") ;Shift-Alt-E to Exit the script
MsgBox(64, "OutlookEX UDF Example Script", "Hotkey to exit the script: 'Shift-Alt-E'!")

Global $oOApp = ObjCreate("Outlook.Application")
Global $oItems = $oOApp.GetNamespace("MAPI").GetDefaultFolder($olFolderSentMail).Items
ObjEvent($oItems, "oItems_")

While 1
Sleep(10)
WEnd

; Outlook 2007 - ItemAdd event - http://msdn.microsoft.com/en-us/library/bb220152%28v=office.12%29.aspx
Func oItems_ItemAdd($oOL_Item)

MsgBox(64, "OutlookEX UDF Example Script", "Mail has been sent!" & @CRLF & @CRLF & _
"Subject: " & $oOL_Item.Subject)

EndFunc ;==>oOFolder_ItemAdd

Func _Exit()
Exit
EndFunc ;==>_Exit

[water]

Can you insert the following lines after: Global $oOApp = ObjCreate("Outlook.Application")

MsgBox(0, "", "IsObj: " & IsObj($oOApp))
MsgBox(0, "", "Name: " & $oOApp.Name)

[SkoubyeWan]

It returns:

IsObj: 1

Name: Outlook