Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Automation with Outlook 2007
Message
 
 
To
14/04/2008 14:27:33
Elyse Pomerantz
Dynamic Data Concepts, Inc.
Brooklyn, New York, United States
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
01310442
Message ID:
01310509
Views:
19
You can use Object Browser, as usual
DEFINE CLASS myclass AS session OLEPUBLIC

	IMPLEMENTS ApplicationEvents IN {00062FFF-0000-0000-C000-000000000046}#9.3
	
	*IMPLEMENTS ApplicationEvents IN "C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE12\MSOUTL.OLB"

	PROCEDURE ApplicationEvents_ItemSend(Item AS VARIANT, Cancel AS LOGICAL @) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ApplicationEvents_NewMail() AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ApplicationEvents_Reminder(Item AS VARIANT) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ApplicationEvents_OptionsPagesAdd(Pages AS VARIANT) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ApplicationEvents_Startup() AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ApplicationEvents_Quit() AS VOID
	* add user code here
	ENDPROC

ENDDEFINE
DEFINE CLASS myclass AS session OLEPUBLIC

	*IMPLEMENTS ApplicationEvents_11 IN "C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE12\MSOUTL.OLB"

	IMPLEMENTS ApplicationEvents_11 IN {00062FFF-0000-0000-C000-000000000046}#9.3

	PROCEDURE ApplicationEvents_11_ItemSend(Item AS VARIANT, Cancel AS LOGICAL @) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ApplicationEvents_11_NewMail() AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ApplicationEvents_11_Reminder(Item AS VARIANT) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ApplicationEvents_11_OptionsPagesAdd(Pages AS VARIANT) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ApplicationEvents_11_Startup() AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ApplicationEvents_11_Quit() AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ApplicationEvents_11_AdvancedSearchComplete(SearchObject AS VARIANT) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ApplicationEvents_11_AdvancedSearchStopped(SearchObject AS VARIANT) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ApplicationEvents_11_MAPILogonComplete() AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ApplicationEvents_11_NewMailEx(EntryIDCollection AS STRING) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ApplicationEvents_11_AttachmentContextMenuDisplay(CommandBar AS VARIANT, Attachments AS VARIANT) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ApplicationEvents_11_FolderContextMenuDisplay(CommandBar AS VARIANT, Folder AS VARIANT) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ApplicationEvents_11_StoreContextMenuDisplay(CommandBar AS VARIANT, Store AS VARIANT) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ApplicationEvents_11_ShortcutContextMenuDisplay(CommandBar AS VARIANT, Shortcut AS VARIANT) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ApplicationEvents_11_ViewContextMenuDisplay(CommandBar AS VARIANT, View AS VARIANT) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ApplicationEvents_11_ItemContextMenuDisplay(CommandBar AS VARIANT, Selection AS VARIANT) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ApplicationEvents_11_ContextMenuClose(ContextMenu AS VARIANT) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ApplicationEvents_11_ItemLoad(Item AS VARIANT) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ApplicationEvents_11_BeforeFolderSharingDialog(FolderToShare AS VARIANT, Cancel AS LOGICAL @) AS VOID
	* add user code here
	ENDPROC

ENDDEFINE
>I'll try to get to a machine with Outlook 2007 to have a look. I don't remember, though, how to get the list of events...?
>
>>Look in the registry under HKEY_CLASSES_ROOT\Typelib\{00062FFF-0000-0000-C000-000000000046} key. Try
>>
>>...
>>IMPLEMENTS ApplicationEvents IN {00062FFF-0000-0000-C000-000000000046}#9.3
>>...
>>
>>
>>Also check Re: How to avoid fullpath in IMPLEMENTS line? Message #1163894
>>
>>>I have code in my VFP8 application to send email using Outlook. I have the BindEvents coded for different versions of Outlook, but now a client has Outlook 2007 and it's not recognized. What is the official version # of Outlook 2007? For 2003, I have the following code. What is the equivalent for Outlook 2007?
>><snip>
--sb--
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform