Page 2 sur 5

MessagePublié: 05 Oct 2010 à 14:07
par Michael DELIQUE
je te conseil d'inserer une gestion des erreurs dans ton code => http://forum.dominoarea.org/gestion-des ... 12054.html

MessagePublié: 05 Oct 2010 à 14:30
par Steph_
bon, ce code là fonctionne mais envoie un lien vers la base
je n'arrive pas à l'adapter pour qu'il envoie la notif vers le document courant.
Quelqu'un peut au moins me mettre sur la piste ?

Code : Tout sélectionner
Sub Click(Source As Button)
   
   Dim db As NotesDatabase
   Dim doc As NotesUIDocument
   Dim ws As New notesUIWorkspace
   Dim titre As String
   Set session =New NotesSession
   Set db = session.CurrentDatabase
   Set doc = ws.currentdocument
   titre = doc.FieldGetText( "RtitreSD" )
   Set newDoc = New NotesDocument(db)
   Set rtitem = New NotesRichTextItem( newDoc, "body" )
   
   
   newDoc.form="memo"
      
   Call rtitem.AppendDocLink ( db, "Accès à la base")     
   newDoc.subject = "Demande d'intervention" +" - " +titre
   
   
   
   Call newDoc.save(False, False)
   Call newDoc.Send(True,"Mon mail") 
   
   
End Sub

MessagePublié: 05 Oct 2010 à 14:49
par Michael DELIQUE
salut

remplace

Call rtitem.AppendDocLink ( db, "Accès à la base")

par

Call rtitem.AppendDocLink ( doc, "Accès à la base")

et tu aurra un doclink au lieu d'un DBLink

MessagePublié: 05 Oct 2010 à 14:57
par Steph_
j'avais déjà essayé ça

mais j'ai l'erreur
AppendDocLink requires a NotesDocument, NotesView or NotesDatabase argument

MessagePublié: 05 Oct 2010 à 15:03
par Michael DELIQUE
alors doc.document

pour info on préfix toujours un objet ui come notesuidocument par UI ça éviter les pb de ce genre

MessagePublié: 05 Oct 2010 à 15:06
par Steph_
oui mais UI ne fonctionne pas avec AppendDocLink

ou alors Notes me ment :(



et avec doc.document, ça ne fonctionne pas non plus
le mail part bien mais impossible d'ouvrir le lien doc

MessagePublié: 05 Oct 2010 à 15:11
par Michael DELIQUE
comme ça je pourrais pas te dire ce qui ne vas pas

mais ce que je peut te certifier c'est que

Call rtitem.AppendDocLink ( doc, "Accès à la base")

attend un objet de type NotesDocument et fera le lien sur celui-la

mais il faut pour cela que le notesdocument existe dans la base (soit enregistré)

MessagePublié: 05 Oct 2010 à 15:13
par Steph_
Ça ne marche qu'avec un doc déjà enregistré ?

MessagePublié: 05 Oct 2010 à 15:15
par nemrod93
Bonjour,

Dans ton code je commencerais par référencer le formulaire attaché à newdoc.
Puis un newdoc.computewithform(false,false) pas obligatoire mais ça mange pas de pain
ensuite je viendrais attaquer le champ "Body" (si c'est un mémo, Body commence par un b majuscule - certains fonctions ou api sont case-sensitive)
puis attacher le doclink et comme le dit Mickaël attention au frontal et au dorsal, ce n'est pas

Call rtitem.AppendDocLink ( db, "Accès à la base")

mais

Call rtitem.AppendDocLink ( doc.document, "Accès à la base")

un bon rc = newdoc.save(true,false,false)

et hop on envoie avec le newdoc.send....

MessagePublié: 05 Oct 2010 à 15:26
par Steph_
Ça marche

avec doc.Document, et avec un doc déjà enregistré

merci beaucoup Michael !

MessagePublié: 05 Oct 2010 à 15:27
par Steph_
nemrod93 a écrit:Bonjour,

Dans ton code je commencerais par référencer le formulaire attaché à newdoc.
Puis un newdoc.computewithform(false,false) pas obligatoire mais ça mange pas de pain
ensuite je viendrais attaquer le champ "Body" (si c'est un mémo, Body commence par un b majuscule - certains fonctions ou api sont case-sensitive)
puis attacher le doclink et comme le dit Mickaël attention au frontal et au dorsal, ce n'est pas

Call rtitem.AppendDocLink ( db, "Accès à la base")

mais

Call rtitem.AppendDocLink ( doc.document, "Accès à la base")

un bon rc = newdoc.save(true,false,false)

et hop on envoie avec le newdoc.send....


j'avais laissé db parce qu'au moins ça marchait
avec doc il ne voulait rien savoir, j'avais cette erreur AppendDocLink requires a NotesDocument, NotesView or NotesDatabase argument

MessagePublié: 05 Oct 2010 à 15:33
par Michael DELIQUE
parceque ta variable doc est un notesuidocument aulieu d'un notesdocument

MessagePublié: 05 Oct 2010 à 15:36
par Steph_
Michael DELIQUE a écrit:parceque ta variable doc est un notesuidocument aulieu d'un notesdocument


avec le NotesDocument j'arrivais pas à récupérer le document courant
et avec le NotesUIDocument j'arrivais pas à faire fonctionner le AppendDocLink

je crois que sans aide j'aurais pataugé encore un bon moment

MessagePublié: 05 Oct 2010 à 22:59
par roubech
nemrod93 a écrit:Puis un newdoc.computewithform(false,false) pas obligatoire mais ça mange pas de pain

euh, pour le computewithform, je suis pas pour, ça peut vite être gourment, il faut faire gaffe

MessagePublié: 06 Oct 2010 à 10:36
par nemrod93
@roubech

Je suis d'accord si t'as un document complexe c'est très gourmand (voire ogresque) mais pour un document de ce type je ne pense pas que cela pénalise de trop :wink: