0

私のロータス エージェントはファイルを分離し、メールの宛先に基づいて別のフォルダに配置します。実際にはうまく動作しますが、SendToのみで動作します:

found = False
If IsArray(curdoc.GetItemValue("SendTo")) Then
    ForAll elt In curdoc.GetItemValue("SendTo")
        idxFolder = 0
        ForAll dest In destinations
            If InStr(1,CStr(elt),CStr(dest),5) <> 0 Then
                found = True
                Exit ForAll
            End If
            idxFolder = idxFolder + 1
        End ForAll
    End ForAll
    If found Then
        Exit ForAll
    End If
End If

私の質問: CC と BCC の宛先でも機能するようにしたいのですが!

上記のコードを3回繰り返すことでそれができることはわかっていますが、それは理想的な解決策ではありません

4

2 に答える 2

0

この種の質問に答える最も簡単な方法は、ドキュメントを選択してプロパティを開くことです。関連するフィールドが入力されていることを確認してください。

これを行うには、ドキュメントを右クリックして [ドキュメントのプロパティ] を選択します。

それができたら、探している関連フィールドを見ることができます。

あなたの場合はそうでしょう。

  • に送る
  • コピー先
  • ブラインド コピー先

繰り返しコードは、メソッド(fieldName を String)で SUB/Function に入れます。次に、「SendTo」をフィールド名に変更します。

例:

Function checkField (fieldName as String) as Boolean
    found = False 
    If IsArray(curdoc.GetItemValue(fieldName)) Then
        ForAll elt In curdoc.GetItemValue(fieldName)
            idxFolder = 0
            ForAll dest In destinations
                If InStr(1,CStr(elt),CStr(dest),5) <> 0 Then
                    found = True
                    Exit ForAll
                End If
                idxFolder = idxFolder + 1
            End ForAll
        End ForAll
    End If

    checkField = found


End Function
于 2013-05-29T13:55:14.677 に答える