Outlook (全般)

Outlook 全般に関するフォーラムです。
Outlook Express、Windowsメールも含みます。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10 Home : Outlook 2016)
Outlookの仕分けルール確認について
投稿日時: 20/03/29 17:11:28
投稿者: kimwhat

Outlookの仕分け設定を確認するスクリプトをVBSで書いていますがうまく
いかないので質問させていただきます。
 
仕分けルールで件名に特定文字列がある場合という条件の特定文字列に何が設定
されているのかを確認するのにRule.Conditions.Subject.Textの配列を参照したい
のですがうまくいきません。下記のように記載しました。
 
Set objOutlook = Createobject("Outlook.Application")
Set ns = objOutlook.GetNamespace("MAPI")
Set otlStores = ns.Stores
 
For Each otlStore In otlStores
    Set otlRules = otlStore.GetRules
    For Each otlRule In otlRules
    textarray = otlRule.Conditions.Subject.Text
    Msgbox Lbound(textarray) & " " & Ubound(textarray) '@
    Msgbox Typename(textarray)
    Msgbox Typename(textarray(0)) 'A
    Next
Next
Set otlRule = Nothing
Set otlRules = Nothing
Set otlStore = Nothing
Set otlStores = Nothing
Set ns = Nothing
objOutlook.quit
set objOutlook = Nothing
 
@の部分では設定された文字列の数だけ配列のインデックスがある事を確認できるのですが
Aでインデックスを指定して参照すると型が一致しませんのエラーが出てしまいます。
これはどのようにすれば内容を参照できるようになりますでしょうか。
 
ちなみにOutlookのVBAで確認するとotlRule.Conditions.Subject.Text()(0)という書き方
をするか、textarray(0)で参照が可能です(otlRule.Conditions.Subject.Text(0)ではエラーとなります)

トピックに返信