Page 1 sur 5
Call Doc.Send()

Publié:
30 Sep 2010 à 09:19
par Steph_
Bonjour
J'essaie désespérément depuis plusieurs jours de faire un truc visiblement tout bête
J'ai un workflow qui fonctionne très bien mais qui envoie des mails avec des liens docs
et j'aimerais qu'à l'ouverture du mail s'ouvre le doc
j'ai trouvé des tutoriaux mais j'aurais besoin d'aide et d'explication
par exemple
Dim Session As NotesSession
Dim DB As NotesDatabase
Dim Doc As Notesdocument
Set Session = New NotesSession
Set DB = Session.currentdatabase
Set Doc = DB.CreateDocument
Doc.form = "memo"
Doc.Subject = "Sujet du mail"
Doc.Body = "Corps du mail"
Call Doc.send(False,session.username)
ça fonctionne, mais maintenant j'aimerais l'adapter pour qu'il envoie le document courant et juste récupérer le contenu d'un champ comme objet
et je bidouille je bidouille mais je m'en sors pas
alors si quelqu'un a 5mn pour m'expliquer comment faire ...
merci par avance

Publié:
30 Sep 2010 à 10:09
par Michael DELIQUE
salut
l'ouverture du lien a l'ouverture du mail est un parametre de la messagerie.
il faudrait voir les parametres de ton objet Doc pour voir si tu peut le forcer.

Publié:
30 Sep 2010 à 10:25
par Steph_
et c'est quoi les paramètres de mon objet doc ?
parce que ça fonctionne pour d'autres docs qui viennent d'autres bases

Publié:
30 Sep 2010 à 13:06
par Michael DELIQUE
bon a première vue ya pas cette option, le plus simple c'est que tu regarde comment font les autres...

Publié:
01 Oct 2010 à 08:50
par Steph_
j'avais déjà regardé avant de créer le sujet
et j'ai du mal à saisir parce que je n'ai trouvé que des bibliothèques qui se déclenchent mutuellement

Publié:
01 Oct 2010 à 08:53
par Michael DELIQUE
tu as peut être une solution.
tu fait ton masque memo dans ta base et tu le configure pour ouvrir le premier lien doc a l'ouverture
et dans ton envois de mail tu insere le masque et dans le send tu fais
Call notesDocument.Send(TRUE) (pour attacher le form)

Publié:
01 Oct 2010 à 09:37
par Steph_
je vais essayer ta méthode
entre temps je cherche toujours
pourquoi ça envoie un mail vide ?
Sub Click(Source As Button)
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = s.CurrentDatabase
Set doc = New notesdocument (db)
doc.form="memo"
doc.subject = "testobjet"
Call doc.Send(True,"mon mail")
End Sub

Publié:
01 Oct 2010 à 10:00
par Michael DELIQUE
il faut que ton masque mémo existe dans ta base

Publié:
01 Oct 2010 à 10:11
par Steph_
ha oui, effectivement, en mettant le bon nom de masque ça va déjà beaucoup mieux
maintenant il me reste à récupérer le contenu d'un champ pour le mettre en objet

Publié:
01 Oct 2010 à 13:28
par Steph_
Michael DELIQUE a écrit:tu as peut être une solution.
tu fait ton masque memo dans ta base et tu le configure pour ouvrir le premier lien doc a l'ouverture
et dans ton envois de mail tu insere le masque et dans le send tu fais
Call notesDocument.Send(TRUE) (pour attacher le form)
tu as raison, c'est cette solution là qui semble la meilleure, l'autre génère des mails trop gros
mais je vois pas bien comment faire
mon masque s'appelle fiche, pour éviter les mélanges avec memo

Publié:
01 Oct 2010 à 13:29
par Michael DELIQUE
il ne faut pas que tu passe ton masque de saisie, mais que tu recréé un masque memo dans ta base !

Publié:
01 Oct 2010 à 14:11
par Steph_
Michael DELIQUE a écrit:il ne faut pas que tu passe ton masque de saisie, mais que tu recréé un masque memo dans ta base !
c'est là que je ne comprend pas comment y mettre le liendoc

Publié:
01 Oct 2010 à 14:26
par Michael DELIQUE
tu ne change rien a ton code
tu CREE un masque memo dans ta base
et dans ton code tu colle le doclink en ls comme d'hab

Publié:
01 Oct 2010 à 14:34
par Steph_
Excellent !!
Ça marche !
merci beaucoup !
(enfin je suis sur la bonne voie, le reste je devrais m'en sortir)

Publié:
05 Oct 2010 à 12:36
par Steph_
finalement je galère ...
donc j'ai créé un doc memo avec 2 champs, from et body (texte riche)
dans l'autre doc j'ai un bouton avec ça dedans
- Code : Tout sélectionner
Dim Db As NotesDatabase
Dim cd As NotesDocument
Dim NewDoc As NotesDocument
Dim rtitem As NotesRichTextItem
Set Db = session.CurrentDatabase
Set cd = CurrentDocument
Set newDoc = New NotesDocument( Db )
Set rtitem = New NotesRichTextItem( newDoc, "body" )
Call rtitem.AppendDocLink( cd,"lien")
newDoc.Form= "memo"
newDoc.Subject = "Demande"
Call newDoc.Send( True, "mon mail" )
et j'ai une erreur et je ne vois pas où
j'ai un autre script qui envoie sans problème un lien doc par le masque memo et qui ouvre bien le lien à l'ouverture du mail, mais qui m'ouvre la base, pas le doc