D
DBS
Anybody know the classname for Groupwise? (version 6.5.4, if that make a
difference.)
Here's the context of my problem:
I'm modified Dimitri's sample code to send emails via Groupwise without user
intervention.
http://www.mvps.org/access/modules/mdl0059.htm
Class for sending emails through GroupWise
Works great, but now I'd like to be able to check to see if GroupWise is
already running before attempting to send the emails. I've made use of Dev's
sample code in the past to check for running instances of Excel, Word, etc.
Find out if an application is currently running
http://www.mvps.org/access/api/api0007.htm
In the past, I've even been able to expand it to detect Lotus Notes. But for
the life of me, I can't figure out how to add a line to the Select Case for
Groupwise.
Select Case LCase$(strAppName)
Case "excel": strClassName = "XLMain"
Case "word": strClassName = "OpusApp"
Case "access": strClassName = "OMain"
Case "powerpoint95": strClassName = "PP7FrameClass"
Case "powerpoint97": strClassName = "PP97FrameClass"
Case "notepad": strClassName = "NOTEPAD"
Case "paintbrush": strClassName = "pbParent"
Case "wordpad": strClassName = "WordPadClass"
Case Else: strClassName = vbNullString
End Select
I've tried to set strClassName to every variation of "groupwise" "grpwise",
"gw", "ngw", etc. but nothing works. I'm sure it's something completely
counter-intuitive. Anybody know the right classname to use?
Any help would be greatly appreciated!!!
David
difference.)
Here's the context of my problem:
I'm modified Dimitri's sample code to send emails via Groupwise without user
intervention.
http://www.mvps.org/access/modules/mdl0059.htm
Class for sending emails through GroupWise
Works great, but now I'd like to be able to check to see if GroupWise is
already running before attempting to send the emails. I've made use of Dev's
sample code in the past to check for running instances of Excel, Word, etc.
Find out if an application is currently running
http://www.mvps.org/access/api/api0007.htm
In the past, I've even been able to expand it to detect Lotus Notes. But for
the life of me, I can't figure out how to add a line to the Select Case for
Groupwise.
Select Case LCase$(strAppName)
Case "excel": strClassName = "XLMain"
Case "word": strClassName = "OpusApp"
Case "access": strClassName = "OMain"
Case "powerpoint95": strClassName = "PP7FrameClass"
Case "powerpoint97": strClassName = "PP97FrameClass"
Case "notepad": strClassName = "NOTEPAD"
Case "paintbrush": strClassName = "pbParent"
Case "wordpad": strClassName = "WordPadClass"
Case Else: strClassName = vbNullString
End Select
I've tried to set strClassName to every variation of "groupwise" "grpwise",
"gw", "ngw", etc. but nothing works. I'm sure it's something completely
counter-intuitive. Anybody know the right classname to use?
Any help would be greatly appreciated!!!
David