Anscheinend gibt es innerhalb der unterschiedlichen Versionen eines Release ( 7.0.2, Server, Client ) unterschiedliche Templatestände, obwohl scheinbar alle Templates das gleiche Datum tragen.
Ich habe mir mal unterschiedliche Templates angesehen. Hier mein Ergebnis
StdR7Mail ( 7.0.2 - 24.07.2006 )
dwa7 ( basiert auf ExtR7Mail 7.0.2 - 24.07.2006 )
ExtR7Mail/de ( 7.0.2 - 24.07.2006 )
Public Function DefineWorkType() As Variant
%REM
*** Function to define what type of work need to be done ***
1 - Future implementation
2 - Always - With this, Mail Policy will always be pushed to the client
3 - Initially - With this, Mail Policy will be applied only the db is created (run once only)
%END REM
Dim WorkItemNames() As String 'array of item names
Dim counter As Integer
'// reset flag
DefineWorkType = ""
counter = 0
If Not (Me.m_CalProfile Is Nothing) Then
If Me.m_CalProfile.HasItem("$FL_2") Then
Redim Preserve WorkItemNames(Counter) As String
WorkItemNames(Counter) = "$FL_2"
Counter = Counter + 1
End If
If Me.m_CalProfile.HasItem("$FL_3") Then
Redim Preserve WorkItemNames(Counter) As String
WorkItemNames(Counter) = "$FL_3"
Counter = Counter + 1
End If
End If
DefineWorkType = WorkItemNames
End Function
in der OpenNTF Mail Experience - German Edition ( http://www.openntf.org/Projects/pmt.nsf/ProjectHome?ReadForm&Query=OpenNTF%20Mail%20Experience%20-%20German%20Edition )
sieht die Funktion dann folgendermaßen aus:
Public Function DefineWorkType() As Integer
%REM
*** Function to define what type of work need to be done ***
1 - Future implementation
2 - Always - With this, Mail Policy will always be pushed to the client
3 - Initially - With this, Mail Policy will be applied only the db is created (run once only)
%END REM
'// reset flag
DefineWorkType = 0
If Not (Me.m_CalProfile Is Nothing) Then
If Me.m_CalProfile.HasItem("$FL_2") Then
Set Me.m_WorkTypeItem = Me.m_CalProfile.GetFirstItem( "$FL_2" )
DefineWorkType = 2
Elseif Me.m_CalProfile.HasItem("$FL_3") Then
Set Me.m_WorkTypeItem = Me.m_CalProfile.GetFirstItem( "$FL_3" )
DefineWorkType = 3
End If
End If
End Function
Der Fehler tritt hier nicht auf, was auch logisch ist.
in der letzten Version von OpenNTF Mail Experience (7.0.2b HF1) ( http://www.openntf.org/Projects/pmt.nsf/ProjectHome?ReadForm&Query=OpenNTF%20Mail%20Experience )
sieht dann die Funktion wieder so aus, wie eingangs erwähnt. Allerdings tritt der beschriebene Fehler nicht auf.
So liebe IBM. Jetzt bringt das in Ordnung.
offenbar ist dieses Feld auch gar nicht nötig. Es gibt in der SL MailPoliy eine Sub, die dieses Feld neben anderen Feldern löscht
'// ******** Reset any flags *************
Public Sub ResetFlag()
If Me.m_ClientType <> "" Then
If Not Me.m_CalProfile Is Nothing Then
Select Case Me.m_ClientType
Case "Notes"
Call Me.m_CalProfile.RemoveItem("$MPUP_N")
If Me.m_CalProfile.HasItem("$FL_2") Then
Call Me.m_CalProfile.RemoveItem("$FL_2")
End If
If Me.m_CalProfile.HasItem("$FL_3") Then
Call Me.m_CalProfile.RemoveItem("$FL_3")
End If
Case "WebMail"
Call Me.m_CalProfile.RemoveItem("$MPUP_W")
Case "DWA"
Call Me.m_CalProfile.RemoveItem("$MPUP_D")
Case Else
Exit Sub
End Select
End If
End If
End Sub
Bisher habe ich aber noch nicht gefunden, wo die Sub aufgerufen wird. Möglicherweise ist hier der Hund begraben und man hat schlichtweg den Funktionsaufruf irgendwo vergessen.
Mal sehen, ob IBM auch in dieser Richtung was anzubieten hat, wenn ich denn mal eine gescheite Antwort auf meine Frage erhalte ...
oder die können nicht programmieren.
könnte man vermuten ...
Else '// Mail Policy has not been applied - exiting now...
Goto Continue
End If
Continue:
End Sub