小编vic*_*ent的帖子

我喜欢用VBA打开Outlook.它应该检查outlook是否开放,如果没有,那么它应该打开它.我有代码,但它很大,有时不与其他宏使用Call函数.什么应该是简单和短的代码来做到这一点,并与所有版本一起使用？

#Const LateBind = True

Const olMinimized As Long = 1
Const olMaximized As Long = 2
Const olFolderInbox As Long = 6

#If LateBind Then

Public Function OutlookApp( _
    Optional WindowState As Long = olMinimized, _
    Optional ReleaseIt As Boolean = False _
    ) As Object
    Static o As Object
#Else
Public Function OutlookApp( _
    Optional WindowState As outlook.OlWindowState = olMinimized, _
    Optional ReleaseIt As Boolean _
) As outlook.Application
    Static o As outlook.Application
#End If
On Error GoTo …