Page 1 sur 1

Retirer un mail du dossier dans lequel il se trouve

MessagePublié: 27 Juil 2011 à 15:28
par clementbp
Bonjour à tous.

J'ai créer une base de courrier spécifique pour gérer les fax.

J'ai créé un agent qui imprime automatiquement le fax, puis le classe dans des dossiers spécifiques en fonction des cas.

Je voudrais que le fax d'origine qui est classer dans un dossier soit supprimé de ce dossier avant d'aller se classer dans un autre.

Je voudrais savoir s'il est possible de d'avoir une ligne de code en Lotus Script qui supprime le mail du dossier dans lequel il se trouve, sachant que ce n'est pas toujours le même.

Mon code actuel supprime le mail du dossier "Courrier en arrivée" mais cela ne concerne pas 100 % des mail.

Auriez vous une idée ?

Merci


Code actuel :

NomDuDossier=Variable 'Défini le nom du dossier de classement du fax
Call doc.PutInFolder( Variable ) 'Place le fax d'origine dans le dossier souhaité
Call doc.RemoveFromFolder( "($Inbox)" ) 'Supprime le fax d'origine du dossier courrier en arrivé

MessagePublié: 28 Juil 2011 à 07:21
par Michael DELIQUE
salut

cette commande notesDocument.FolderReferences te renverra le nom du folder ou se trouve ton document

MessagePublié: 28 Juil 2011 à 08:31
par Raziel
Infos complémentaire tirée de l'aide notes :

The database must have the $FolderInfo and $FolderRefInfo hidden views to support folder references. These views can be copied from the mail template. This property does not return view references.
Folder references must be enabled for the database

MessagePublié: 28 Juil 2011 à 10:03
par clementbp
Bonjour

Désolé mais je ne comprends pas trop comment ça marche.

Je pensais faire quelque chose de ce style mais ça ne fonctionne pas auriez vous une idée ?

Merci

Code : Tout sélectionner
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set Doc = session.DocumentContext
Set db = session.CurrentDatabase

db.FolderReferencesEnabled = True

NomDossier = doc.FolderReferences

Dim workspace As New NotesUIWorkspace
Dim askme As Integer
askme = workspace.Prompt(PROMPT_OK, "Valeur a afficher", NomDossier(0))

MessagePublié: 28 Juil 2011 à 10:10
par Raziel
Le troisème paramètre du prompt doit être de type string or le folderReferences te retourne un tableau de string

MessagePublié: 28 Juil 2011 à 10:36
par clementbp
En regardant la valeur de mes variables, je m'apperçoit que la valeur de NomDossier est "".

Auriez vous une idée ?

MessagePublié: 28 Juil 2011 à 13:41
par Raziel
Est ce que tu as pris en compte mon premier message concernant le $FolderInfo et $FolderRefInfo ?

MessagePublié: 29 Juil 2011 à 12:45
par roubech
pour l'option FolderReferencesEnabled il ne faut pas la positionner à chaque fois que ton code tourne. Il faut la positionner une fois pour toute à la mise en place de ta base
Par contre, si ta base est déjà en place, une fois que tu aura positionné cette option, ça alimentatera les nouveaux champs pour les nouveaux docs, mais pas les docs existants