Récupérer la valeur d'un champ Formule
Bonjour,
Je cherche à récupérer les règles de messagerie, mais les champs $FilterFormula du CalendarProfile sont de type FORMULA (1536)
j'ai essayé GetItemValue et item.Text, pas moyen de récupérer la formule sous forme d'une chaine pour l'écrire dans un fichier texte
[syntax="LotusScript"] ' Vérifier le nombre de règles actives
Set docProfile = dbMail.GetProfileDocument( "CalendarProfile" )
If Not docProfile.HasItem( "$FilterFormulaCount" ) Then
Print #nFileNum, docNab.Shortname(0) & Chr(9) & "$FilterFormulaCount not found"
GoTo NextDoc
End If
Print #nFileNum, docNab.Shortname(0) & Chr(9) & "$FilterFormulaCount=" & docProfile.~$FilterFormulaCount(0)
' Parcours des règles de messagerie
For i = 0 To Cint(docProfile.~$FilterFormulaCount(0))
If Not docProfile.HasItem( "$FilterFormula_" & i ) Then
Print #nFileNum, docNab.Shortname(0) & Chr(9) & "$FilterFormula_" & i & " not found"
Else
Set item = docProfile.getFirstItem("$FilterFormula_" & i )
If item.Type = 1536 Then ' FORMULA
sFormula = item.Text
Else
vFormula = docProfile.getItemValue("$FilterFormula_" & i )
If IsArray(vFormula) Then
sFormula = vFormula(0)
Else
sFormula = CStr(vFormula)
End If
End If
Print #nFileNum, docNab.Shortname(0) & Chr(9) & "$FilterFormula_" & i & "=" & Chr(9) & sFormula
If InStr( sFormula, {$FilterActions:"COPYTO1} ) > 0 Then
Print #nFileNum, docNab.Shortname(0) & Chr(9) & i & " : Match"
End If
End If
Next[/syntax]
Je cherche à récupérer les règles de messagerie, mais les champs $FilterFormula du CalendarProfile sont de type FORMULA (1536)
j'ai essayé GetItemValue et item.Text, pas moyen de récupérer la formule sous forme d'une chaine pour l'écrire dans un fichier texte
[syntax="LotusScript"] ' Vérifier le nombre de règles actives
Set docProfile = dbMail.GetProfileDocument( "CalendarProfile" )
If Not docProfile.HasItem( "$FilterFormulaCount" ) Then
Print #nFileNum, docNab.Shortname(0) & Chr(9) & "$FilterFormulaCount not found"
GoTo NextDoc
End If
Print #nFileNum, docNab.Shortname(0) & Chr(9) & "$FilterFormulaCount=" & docProfile.~$FilterFormulaCount(0)
' Parcours des règles de messagerie
For i = 0 To Cint(docProfile.~$FilterFormulaCount(0))
If Not docProfile.HasItem( "$FilterFormula_" & i ) Then
Print #nFileNum, docNab.Shortname(0) & Chr(9) & "$FilterFormula_" & i & " not found"
Else
Set item = docProfile.getFirstItem("$FilterFormula_" & i )
If item.Type = 1536 Then ' FORMULA
sFormula = item.Text
Else
vFormula = docProfile.getItemValue("$FilterFormula_" & i )
If IsArray(vFormula) Then
sFormula = vFormula(0)
Else
sFormula = CStr(vFormula)
End If
End If
Print #nFileNum, docNab.Shortname(0) & Chr(9) & "$FilterFormula_" & i & "=" & Chr(9) & sFormula
If InStr( sFormula, {$FilterActions:"COPYTO1} ) > 0 Then
Print #nFileNum, docNab.Shortname(0) & Chr(9) & i & " : Match"
End If
End If
Next[/syntax]