Envoi d'un document via mail ? (débutante)

[Christine]

J'ai essayé de créer dans un masque un bouton qui permettrait aux utilisateurs d'envoyer les documents créés à partir de ce masque par mail. Cela ne fonctionne pas... Qui pourrait m'aider ?Merci d'avance.

[aer]

Salut, tu peux essayer quelque chose comme ça si tu veux envoyer les infos contenues dans ton masque (en formules):@MailSend("destinataire";"";"sujet";"";"corps du mail";)ou sinon si tu veux envoyer le document en entier, il faut un truc come ça (en lotusscript):doc.SendTo = doc.GetItemValue( "destiantaire" )doc.Subject = "sujet"Call doc.Send( True )

[Christine]

J'ai essayé la première méthode. Cela fonctionne, mais ne permet que d'envoyer un champ ou une concaténation de champs dans le "corps du mail". Je vais esaayer la deuxième méthode...Merci !

[Christine]

J'ai créé une action dans le masque utilisé comme formulaire, avec le script suivant :Sub Click(Source As Button) Dim db As NotesDatabase Dim doc As NotesDocument Set db = New NotesDatabase( "", "mabase.nsf" ) Set doc = New NotesDocument( db ) doc.SendTo = "destinataire@xxx.fr" doc.Subject = "Annonces" Call doc.Send(False)End SubAprès avoir lancé l'action, je reçois bien un mail avec le bon objet, mais le corps du message ne contient rien. Je souhaiterais qu'il contienne les valeurs des champs du document initial...Au secours ... Je nage !!!

[philippeG]

Il faut que tu est un champ richtext nommé "body" dans ton mail (c'est le nom du champ "corps du message" dans les mémo notes. Après tu peux ajouter ce que tu veux en utilsant les méthode et les propriétés de la classe NotesRichTextItempar exempleSub Click(Source As Button)Dim db As NotesDatabaseDim doc As NotesDocumentDim rtItem as NotesRichTextItemSet db = New NotesDatabase( "", "mabase.nsf" )Set doc = New NotesDocument( db )doc.SendTo = "destinataire@xxx.fr" doc.Subject = "Annonces"Set rtitem = New NotesRichTextItem(doc,"Body")call rtItem.AppendText("Coucou")Call doc.Send(False)End Sub

[Christine]

J'ai essayé le script (tel quel) que tu as proposé, mais cela ne semble pas fonctionner pas. Dans le mail reçu, il n'y a que "Coucou" dans le corps du message... J'ai bien un champs de type texte riche nommé body dans le masque utilisé.

[Raziel]

Salut,Si je comprends bien, tu créé un doc via un masque notes et tu veux envoyé ce document via messagerie.Pb ne pas faire un truc du genreDim ws as new notesuiworkspacedim uiDoc as notesdocumentdim doc as notesdocumentSet uidoc = ws.currentdocumentSet doc = uidoc.documentdoc.sendto = "Ma liste de destinataire"doc.subject = "Envoie du doc"call doc.send(true)Je n'ai pas essayé le code mais je pense qu'il devrait fonctionné.

[Stephane Maillard]

Bonjour,Normal dans le call rtItem.AppendText("Coucou") , il faut remplacer 'Coucou' avec ce que vous voulez.[%sig%]

[Christine]

J'ai testé ton code, il y a un message d'erreur de script sur la ligne :Set uidoc = ws.currentdocument"Erreur : 7 : Type mismatch on CURRENTDOCUMENT"A l'aide ????

[Raziel]

Oups, petite erreurRemplacedim uiDoc as notesdocumentpardim uiDoc as notesuidocumentDésolé...

[Christine]

Ca marche...Merci merci et encore merci !!!

[Christine]

J'ai encore une petite question ...Pourquoi le script ne fonctionne-t'il pas si je n'enregistre pas le document à envoyer auparavant ? Dans ce cas, après avoir lancé l'action, un message s'affiche : "No form associated with document".J'ai essayé d'ajouter une instruction de type Call doc.save, mais cela ne fonctionne pas plus.Par contre, en créant une action @Command([SaveFile]) que je lance avant d'envoyer le document, cela fonctionne...Quelle solution plus simple pour l'utilisateur pourrait exister ? Merci d'avance.

[Raziel]

Salut,Le pb vient du fait que dans le code que je t'ai envoyé, je passe par la notesdocument. Or, cette notesdocument n'est créé que si le doc à déjà été sauvegardé au moins une fois.On pourrais directement passé par la notesdocument. Mais dans ce cas, il faut que ton doc contienne un champ SendTo (Destinataires du message).Ensuite tu fais un call uiDoc.send