Dominoarea.org Index du Forum Dominoarea.org
 Forum, Téléchargement Lotus Domino/Notes en Français 
 FAQFAQ   PartenairesPartenaires   RechercherRechercher   Liste des MembresListe des Membres   Groupes d'utilisateursGroupes d'utilisateurs 
 S'enregistrerS'enregistrer   ConnexionConnexion 

La date/heure actuelle est 30 Juil 2010 à 00:43
Toutes les heures sont au format UTC + 1		 Voir les nouveaux messages depuis votre dernière visite
Voir les messages sans réponses
 Index du Forum » IBM-Lotus Domino » Forums d'entre-aide » Développement
Client Notes qui se plante pendant un agent
Modérateurs: Modérateur
Poster un nouveau sujet   Répondre au sujet Voir le sujet précédentVoir le sujet suivant
Page 2 sur 2 [20 messages]   Aller à la page: Précédente 1, 2
Auteur Message
mike76
Empereur des posts
Empereur des posts

Inscrit le: 12 Oct 2006
Messages: 1717
Warnings: 0 0 Warnings
Spécialité: Développeur
Localisation: ROUEN
Pays:
Sexe:
Age: 36
Navigateur:
J'ai réussi à ouvrir avec un nouveau masque, mais il n'y a plus déchiffrage du mail

MessagePosté le: 11 Mar 2010 à 17:33
 Voir le profil de l'utilisateur Envoyer un message privé Envoyer un e-mail
 Revenir en haut de page 
Michael DELIQUE
Administrateur
Administrateur


Inscrit le: 16 Déc 2004
Messages: 9395
Warnings: 0 0 Warnings
Spécialité: Développeur
Localisation: Paris/Cergy
Pays:
Sexe:
Age: 38
Navigateur:
et avec une copie du masque memo ?
_________________
Cordialement

Michael (SMS-Phobique)
----------------------------
"La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi."
Albert EINSTEIN

MessagePosté le: 11 Mar 2010 à 17:34
 Voir le profil de l'utilisateur Envoyer un message privé Envoyer un e-mail Visiter le site web de l'utilisateur MSN Messenger
 Numéro ICQ 
 Revenir en haut de page 
mike76
Empereur des posts
Empereur des posts

Inscrit le: 12 Oct 2006
Messages: 1717
Warnings: 0 0 Warnings
Spécialité: Développeur
Localisation: ROUEN
Pays:
Sexe:
Age: 36
Navigateur:
j'avais fait le test effectivement en copiant le masque Memo, j'ai retiré le queryopen, le postopen, le querysave, le postsave et le queryclose
j'ai dû en retiré trop à mon avis

MessagePosté le: 11 Mar 2010 à 17:37
 Voir le profil de l'utilisateur Envoyer un message privé Envoyer un e-mail
 Revenir en haut de page 
Michael DELIQUE
Administrateur
Administrateur


Inscrit le: 16 Déc 2004
Messages: 9395
Warnings: 0 0 Warnings
Spécialité: Développeur
Localisation: Paris/Cergy
Pays:
Sexe:
Age: 38
Navigateur:
je ferais une copie

et ne changerais que le nom du form et le code necessaire au close
_________________
Cordialement

Michael (SMS-Phobique)
----------------------------
"La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi."
Albert EINSTEIN

MessagePosté le: 11 Mar 2010 à 17:38
 Voir le profil de l'utilisateur Envoyer un message privé Envoyer un e-mail Visiter le site web de l'utilisateur MSN Messenger
 Numéro ICQ 
 Revenir en haut de page 
mike76
Empereur des posts
Empereur des posts

Inscrit le: 12 Oct 2006
Messages: 1717
Warnings: 0 0 Warnings
Spécialité: Développeur
Localisation: ROUEN
Pays:
Sexe:
Age: 36
Navigateur:
j'ai essayé pas mieux.

J'ai Jérôme qui vient de me filer un super code :
Code:

Sub Initialize()
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim nextdoc As NotesDocument
   
   
   Set db=s.CurrentDatabase
   Set collection=db.Search({Encrypt="1"},Nothing,0)
   If collection.Count>0 Then
      Set doc=collection.Getfirstdocument()
      While Not (doc Is Nothing)
         Set nextdoc=collection.Getnextdocument(doc)
         
         ' the below loop is mandatory to ensure that all $File entries are unecrypted
         ForAll i In doc.Items
            If i.isencrypted Then
               i.isencrypted=false
            End If
         End ForAll
         
         ' must have at least 1 field encrypted in order to call Encrypt method
         Dim temp As New NotesItem(doc,"tempjunk","temp")
         temp.Isencrypted=True
         Call doc.Encrypt()
         Call doc.Save(True,False)
         
         ' this portion can now remove the fields relative to encrpying the single token encrypted field
         Call doc.Removeitem("$Seal")
         Call doc.Removeitem("$SealData")
         Call doc.Removeitem("SecretEncryptionKeys")
         Call doc.Removeitem("Encrypt")
         Call doc.Save(True,False)
         Set doc=nextdoc
      Wend
   End If

End Sub


c'est rapide efficace.
Merci encore à tous pour votre aide. Je vais de ce pas créer un TIP pour ce sujet

MessagePosté le: 15 Mar 2010 à 14:44
 Voir le profil de l'utilisateur Envoyer un message privé Envoyer un e-mail
 Revenir en haut de page 
Montrer les messages depuis:   Trier par:   
Page 2 sur 2 [20 messages]   Aller à la page: Précédente 1, 2
Poster un nouveau sujet   Répondre au sujet Voir le sujet précédentVoir le sujet suivant
 Index du Forum » IBM-Lotus Domino » Forums d'entre-aide » Développement
Sauter vers:  


Vous ne pouvez pas poster de nouveaux sujets dans ce forum
Vous ne pouvez pas répondre aux sujets dans ce forum
Vous ne pouvez pas éditer vos messages dans ce forum
Vous ne pouvez pas supprimer vos messages dans ce forum
Vous ne pouvez pas voter dans les sondages de ce forum
Vous ne pouvez pas joindre des fichiers dans ce forum
Vous pouvez télécharger des fichiers dans ce forum

phpBB SEO URLs V2

Flux RSS 
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com
Version française de Categories Hierarchy © GGWeb-FR

[ Temps : 0.1640s ][ Requêtes : 21 (0.0087s) ][ GZIP actif - Débogage actif ]