par nowlan » 24 Jan 2008 à 16:37
Ils sont editeur minimum
Juste pour vous dire que j'ai regarder le code du document profile (out of office profile ) voici ce que j'ai vu du modèle dwa7.ntf
Set m_AdminRequest = Me.m_session.CreateAdministrationProcessNotConnected(Me.m_vHomeServer(0))
MailFilePath = ""
If m_dbCurrentDatabase.Server = "" Then
MailFilePath = m_dbCurrentDatabase.FilePath
End If
If (( Activate ) And ( Enable )) Then
ReqID = m_AdminRequest.ConfigureMailAgentExt(m_dbOwner, MailFilePath, Strrightback(Me.m_agentOutOfOffice.Name, "|"), True, True)
Elseif (( Activate) And Not ( Enable )) Then
ReqID = m_AdminRequest.ConfigureMailAgentExt(m_dbOwner, MailFilePath, Strrightback(Me.m_agentOutOfOffice.Name, "|"), True, False)
Elseif (Not ( Activate ) And ( Enable )) Then
ReqID = m_AdminRequest.ConfigureMailAgentExt(m_dbOwner, MailFilePath, Strrightback(Me.m_agentOutOfOffice.Name, "|"), False, True)
Else
ReqID = m_AdminRequest.ConfigureMailAgentExt(m_dbOwner, MailFilePath, Strrightback(Me.m_agentOutOfOffice.Name, "|"), False, False)
End If
'//If an ID is generated than the request was successful (Server is recheable)
'//If ReqID is blank or return an err, then an AdminP req need to be generated by email + the user need to replicate.
If ReqID = "" Or Str(Err) = 4000 Then '
Msgbox "Vous devez répliquer votre fichier courrier sur votre serveur de messagerie pour pouvoir activer/désactiver l'agent d'absence. Si vous ne répliquez pas maintenant, son activation/désactivation sera impossible...."
End If
'// Counter flag - Warn the user if multiple requests have been submited.
Call Me.m_noteUIDoc.document.replaceitemvalue("AdminP_Counter", Me.m_noteUIDoc.document.GetItemValue("AdminP_Counter")(0) + 1)
Exit Function
Dans le modèle Inotes6.ntf on ne l'a pas on a ceci
Public Function CreateAdminPAuthentication(Activate As Variant, Enable As Variant )
Me.m_ProcessAdminRequest = True
Call GetHomeServer
Set m_AdminRequest = Me.m_session.CreateAdministrationProcess(Me.m_vHomeServer(0))
If (( Activate ) And ( Enable )) Then
Call m_AdminRequest.ConfigureMailAgent(m_dbOwner, Strrightback(Me.m_agentOutOfOffice.Name, "|"), True, True)
Elseif (( Activate) And Not ( Enable )) Then
Call m_AdminRequest.ConfigureMailAgent(m_dbOwner, Strrightback(Me.m_agentOutOfOffice.Name, "|"), True, False)
Elseif (Not ( Activate ) And ( Enable )) Then
Call m_AdminRequest.ConfigureMailAgent(m_dbOwner, Strrightback(Me.m_agentOutOfOffice.Name, "|"), False, True)
Else
Call m_AdminRequest.ConfigureMailAgent(m_dbOwner, Strrightback(Me.m_agentOutOfOffice.Name, "|"), False, False)
End If
'// Counter flag - Warn the user if multiple requests have been submited.
Call Me.m_noteUIDoc.document.replaceitemvalue("AdminP_Counter", Me.m_noteUIDoc.document.GetItemValue("AdminP_Counter")(0) + 1)
End Function
On n'a pas le
Msgbox "Vous devez répliquer votre fichier courrier sur votre serveur de messagerie pour pouvoir activer/désactiver l'agent d'absence. Si vous ne répliquez pas maintenant, son activation/désactivation sera impossible...."
Je vois donc que c'est sur le modèle dwa7.ntf mais je ne sais pas pourquoi il genere le message d'erreur impossible de le reproduire.
Merci encore si vous avez d'aute info
Nowlan