M
Mark Derricutt
Hi all, under Outlook XP, when I run "outlook.exe /c ipm.note" to open a
new message, the outlook process hangs and locks up and on restart I get
a message stating my COM addin had problems and is being disabled.
I've noticed this doesn't occur under Outlook 2003, and can't seem to
find anything on MSDN about it, but its possible I'm not looking for the
correct issue.
Hopefully someone here has seen this, and knows something about it,
weather its a bug in Outlook XP or more likely a bug in my code.
For what its worth, the COM addin is written in Dolphin Smalltalk using
the following code:
OnConnection: application ConnectMode: connectMode AddInInst: addInInst
custom: custom
| outlook txtbar sink smsButton |
"For some reason, 'application' in the params is always nil,
so get our own."
outlook := Outlook_Application new.
outlook activeExplorer ifNotNil:
[:explorer |
(OutlookToolBar new commandBarNamed: 'TXTMail' in: explorer
commandBars) ifNotNil:
[:bar |
smsButton := bar controls item: 1.
txtbar visible: true.
"Hook up the event handlers for the new button."
sink := AXEventSink target: self sourceTypeInfo:
(smsButton class typeLib at: '_CommandBarButtonEvents').
sink connect: smsButton.
self when: #Click:CancelDefault: sendTo: self]]
new message, the outlook process hangs and locks up and on restart I get
a message stating my COM addin had problems and is being disabled.
I've noticed this doesn't occur under Outlook 2003, and can't seem to
find anything on MSDN about it, but its possible I'm not looking for the
correct issue.
Hopefully someone here has seen this, and knows something about it,
weather its a bug in Outlook XP or more likely a bug in my code.
For what its worth, the COM addin is written in Dolphin Smalltalk using
the following code:
OnConnection: application ConnectMode: connectMode AddInInst: addInInst
custom: custom
| outlook txtbar sink smsButton |
"For some reason, 'application' in the params is always nil,
so get our own."
outlook := Outlook_Application new.
outlook activeExplorer ifNotNil:
[:explorer |
(OutlookToolBar new commandBarNamed: 'TXTMail' in: explorer
commandBars) ifNotNil:
[:bar |
smsButton := bar controls item: 1.
txtbar visible: true.
"Hook up the event handlers for the new button."
sink := AXEventSink target: self sourceTypeInfo:
(smsButton class typeLib at: '_CommandBarButtonEvents').
sink connect: smsButton.
self when: #Click:CancelDefault: sendTo: self]]