에이전트 lotus GetItemValue SendTo, CC 및 BCC

Question

로터스 에이전트가 파일을 분리하여 메일 목적지의 다른 폴더에 저장합니다. 는 사실, 잘 작동하지만의 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 배 aboves 코드를 repeatting하여 작업을 수행 할 수 있습니다 알고 있지만 그것은 이상적인 솔루션

Answer 1

에게 이러한 질문에 대답하는 가장 빠른 방법 문서를 선택하고 속성을 엽니입니다하지 않습니다. 관련 필드가 채워져 있는지 확인하십시오.

문서를 마우스 오른쪽 버튼으로 클릭하고 "문서 속성"을 선택하면됩니다.

일단 확인하면 관련 필드를 볼 수 있습니다.

귀하의 경우에 그렇습니다.

• SENDTO
• 하는 CopyTo
• BlindCopyTo 반복 코드로서

, 방법 (문자열 등의 fieldName)와 SUB/함수에 넣어. 그런 다음 "SendTo"를 fieldName으로 변경하십시오.

예 :

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 

Answer 2

당신은 단지 모든 값을 포함하고있는 배열을 구축해야 :

Dim varAddresses as Variant 
varAddresses = curdoc.GetItemValue("SendTo") 
varAddresses = ArrayUnique(Fulltrim(ArrayAppend(varAdresses, curdoc.GetItemValue("CopyTo")))) 
varAddresses = ArrayUnique(Fulltrim(ArrayAppend(varAdresses, curdoc.GetItemValue("BlindCopyTo")))) 
Forall elt in varAddresses 
    'Your code comes here 
End Forall