General information
Category:
COM/DCOM and OLE Automation
Title:
Binding Messenger COM-object
I'm using following code to bind VFP8 to MSN Messenger :
PUBLIC loVFPCOM,loOutlook,loLink
loVFPCOM = CREATEOBJECT("VFPCOM.COMUTIL")
loOutlook = CREATEOBJECT("Messenger.UIAutomation.1")
loLink = CREATEOBJECT("MessengerApplicationEvents")
loVFPCOM.BindEvents(loOutlook,loLink)
DEFINE CLASS MessengerApplicationEvents as Custom
PROCEDURE OnAppShutDown()
MESSAGEBOX("Close MSN")
ENDPROC
PROCEDURE OnTextReceived(plMSession, pSourceUser, bstrMsgHeader, bstrMsgText, pfEnableDefault)
MESSAGEBOX("User receives message")
ENDPROC
ENDDEFINE
When running this code I get 'Unknown COM status code'. I got the method 'OnTextReceived' and 'OnAppShutDown' from the object browser of the 'Messenger 1.0 Type Library'...
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only