Page 2 sur 5

Publié:
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

Publié:
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

Publié:
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

Publié:
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

Publié:
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

Publié:
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

Publié:
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é)

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

Publié:
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....

Publié:
05 Oct 2010 à 15:26
par Steph_
Ça marche
avec doc.Document, et avec un doc déjà enregistré
merci beaucoup Michael !

Publié:
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

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

Publié:
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

Publié:
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

Publié:
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
