在我的测试附带一个不存在的附件下面的消息。
如果您的情况并非如此，您可以应用以下解决方法，例如：

' The area at left of title is called the GOS container (shellcont).
    ' It contains a GuiToolbarControl (shell), with one button named %GOS_TOOLBOX,
    ' which is of type "ButtonAndMenu" (button with a dropdown menu).
    ' Click the dropdown part of the button.
    session.findById("wnd[0]/titl/shellcont/shell").pressContextButton "%GOS_TOOLBOX"
    ' Press the menu item "Attachment list"
    session.findById("wnd[0]/titl/shellcont/shell").selectContextMenuItem "%GOS_VIEW_ATTA"
    ' A popup (wnd[1]) should open if there are attachments, otherwise none opens.
    on error resume next 
    session.findById("wnd[1]").close
    if err.number <> 0 then 
       msgbox "There are no attachments."
    end if
    on error goto 0
    ...

问候，ScriptMan

我使用以下方法解决：

session.findById("wnd[0]/titl/shellcont/shell").pressContextButton "%GOS_TOOLBOX"
session.findById("wnd[0]/titl/shellcont/shell").selectContextMenuItem "%GOS_VIEW_ATTA"
Err.Clear
On Error Resume Next
If session.findById("/app/con[0]/ses[0]/wnd[1]").changeable = True Then
  err1 = Err.Number
End If
If session.findById("/app/con[0]/ses[1]/wnd[1]").changeable = True Then
  err3 = Err.Number
End If
On Error GoTo 0
If err1 = 619 And err3 = 619 Then
Else
session.findById("wnd[0]").sendVKey 3

我只是不知道为什么有时代码有时是[...]/ses[0]/wnd[0]，有时是[...]ses[0]/wnd[1]...所以，我做了两行，每一个案件。