1

お問い合わせ分類:シナリオ

( 導入環境:Windows10 物理PC )

( バージョン情報: WinActor rev.6.1.0 )

( ご利用中の資材:  )

あるシナリオで「Outlook 条件を指定して対象メール保存」を
使用しているのですが、スクリプトの以下の①②の部分で
エラーになる場合があります。
・5分おきに実施しているシナリオです。
・必ずエラーが発生するわけではありません。
・一度発生すると連続して発生します。

―――――
'--------------------------------------------------------------------
'メール保存メイン実行部
'--------------------------------------------------------------------
Sub execSaveMails(searchFolder, splitChr, sf, sBasePath)
    Dim oApp
    Set oApp = Nothing
    Dim oOlns 'As Outlook.NameSpace
    Dim oOlInb 'As Object  'Do not Outlook.Folder
    Dim oOlStores 'As Object
    Dim oOlStore 'As Object
    Dim oOlFold 'As Object

    On Error Resume Next
    '起動済みのOutlookをクラス名を指定して取得
    Set oApp = GetObject(, "Outlook.Application")
    On Error GoTo 0
 
    'oAppがNothingなら
    If oApp Is Nothing Then
        Err.Raise 1, "", "Outlookが起動されていません。" ←①
        'WScript.Quit()
    Else
        Dim myOlExp
        Set myOlExp = oApp.ActiveExplorer
        If myOlExp Is Nothing Then
            Err.Raise 1, "", "Outlookが起動されていません。" ←②
            WScript.Quit()
  ・
  ・
  ・
―――――

①はノード実行時にOUTLOOKが起動していない場合に発生するようですが
②の発生条件(myOlExp Is Nothing)がわかりません。

マイクロソフトのサイトを確認しても
「デスクトップの一番上の階層にあるエクスプローラーを表す Explorer オブジェクト。
エクスプローラーが実行されていない場合は、Nothing を返します。」
と記述がありますが、outlookの話なのにエクスプローラーの記述があり
エクスプローラーが何を意味するのか分かりません。

②はどのような条件の時に発生するのでしょうか?
エラーの回避はどうすればよいでしょうか?

なおシナリオは以下の流れになっています。
「outlookメーラ起動/前面化」
  ↓
「Outlookメーラ起動確認」
  ↓
「Excel開く(前面化)」
  ↓
「Outlook 条件を指定して対象メール保存」ここでエラーが発生して例外処理へ

よろしくお願いします。

Yuzunoki 回答した質問
回答とコメントは、会員登録(無料)で閲覧できるようになります。