Domino 9 und frühere Versionen > ND7: Administration & Userprobleme

Welche Funktion hat der Agent (MailPolicy) in der Maildatenbank

<< < (2/7) > >>

eknori (retired):
... und wie erwarte, kommt mal wieder nur MÜLL zurück:


--- Zitat ---Dear Mr Krause,


Regarding your question on this PMR: 41781,032,724 about the purpose of the
function DefineWorkType()

This is not a public method then it is not documented for being using by
customer and not available to customer.
This function put value from calendar profile to another document.
It cannot be changed as making change to this function will be in customer
own risk.
I have created SPR:KMUR6YEM26 as enhancement request for this function to
be public in our designer help in the future.

According to the above please let me know if you agree to close this PMR.

While waiting for your feedback, I will setup the next follow up for
16/02/2007
--- Ende Zitat ---

Hallo ?? Hat der eigentlich meine Frage richtig gelesen ??

Ich habe in meinem Call genau beschrieben, worum es geht, und an welcher Stelle das Problem ( reproduzierbar auf allen rechnern unserer Abteilung ) auftritt.

Und der Dummbatz meint, ich will da irgend eine Funktion haben, die offenbar kein Mensch braucht ...
Ich fasse es nicht.

eknori (retired):
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 )


--- Code: --- 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

--- Ende Code ---


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:


--- Code: --- 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
--- Ende Code ---

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.

eknori (retired):
in der OpenNTF Variante kommt der Fehler deshalb nicht hoch, weil die Public Function OKToProcess(Client As String) As Integer
dort ein false zurückliefert. In meinem Client wird die exact gleiche Funktion mit exakt gleichem Parameter aufgerufen und liefert ein true.

Dann erst wird  die Public Function DefineWorkType() As Variant überhaupt angesprungen, was dann zu dem bekannten Fehler führt.

EDIT: die Funktion liefert bei mir ein true, weil in meinem CalenderProfile das feld $MPUP_N vorhanden ist und mit "1" besetzt ist.

eknori (retired):
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


--- Code: --- '// ******** 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
--- Ende Code ---

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 ...

domino770:
Da bin ich auch gespannt.  >:(

Entweder haben die Leute dort keine Ahnung oder die können nicht programmieren.

Trotzdem Danke! Wäre echt super wenn die etwas tun würden...

Gruß

Ülker

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete