Bouton de création de mémo Notes dans une base Spécifique .

[nicolas]

- Dans mon formulaire .( Base Spécifique ) .. On me demande de créer un bouton qui fasse le lien avec ma base de messagerie - dès que je clique sur le bouton, je sors de ma base et il m'ouvre ma messagerie création mémo ... Autrement dis .... --->Il faudrait avoir un bouton de création de mémo Notes directement en validant le N° pris . notamment avec la nature de document mailou fax.

[nicolas]

REREsi qquelequ'un peut m'aider ....Merci .. lire ci dessus

[Emmanuelle]

Tu peux déjà regardé : @Command([MailComposeMemo])Ca compose un memo, je pense que c'est un peu ce que tu veux, non ?Expliques moi un peu plus ce dont tu as besoin si ce n'est pas suffisant.Bonne chance,[%sig%]

[nicolas]

salut toi ...merci pour ta réponse ... QQ part je me disais , mais ou est Emma ... et voilà tu es venue à mon secour ....... je t'en remercie ...... Je vais tester ....... a toute

[nicolas]

c'est Ok ...cela fonctionne .J'ai une autre chose ..Comment je peut récupérer Certaine donnée saisie dans le formulaire de saisie ( de ma base applicative ) , le numéro chrono , et le numéro d'affaire ......C'est juste pour lier certains champ saisi dans le form pour faire le lien avec la messagerie et les envoyer par mail ....merccci ........

[Emmanuelle]

Ok, je me doutais que tu voudrais plutot envoyer des éléments de ton document actuel vers le memo que tu crée, et là, je te conseille d'utiliser un LotusScript tel que :Sub Click(Source As Button) 'Déclarations : Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument 'document courant Set uidoc = workspace.CurrentDocument 'La donnée que tu as actuellement sur ton doc que tu veux récupérer donneeARecuperer=uidoc.FieldGetText("TonChamp") 'Ouverture du memo Set uidoc = workspace.ComposeDocument ( "", "mail50.ntf", "Memo" ) Set uidoc = workspace.CurrentDocument 'Les données que tu veux remplir dans le memo : 'Par exemple, l'adresse e-mail du destiantaire Call uidoc.FieldSetText("EnterSendTo",adresse) 'Le sujet du mail Call uidoc.FieldSetText("Subject","De la part de ...") 'Dans le corps de l'email : Call uidoc.FieldSetText("Body",donneeARecuperer)End SubVoila en gros comment faire.J'espère que ça t'aidera,[%sig%]

[nicolas]

ça m'a l'air costaud ......mercci bcp ... A+ Je te tiens au courant ....

[nicolas]

c'est exactement cela et ça fonctionn etrès bien .... !Merci ..si je veux mettre dy texte avant .... pour dire ce qu'on récupére ....Quelle est la syntaxe ....stp ..De la forme : Affaire/ N°Chrono : "donneeARecuperer" Call uidoc.FieldSetText("Subject",donneeARecuperer)

[Emmanuelle]

En fait, tu modifie juste :Call uidoc.FieldSetText("Subject",donneeARecuperer)donneeARecuperer est de type string (normalement) donc il suffit d'y ajouter ce que tu veux. Donc pour avoir Affaire/ N°Chrono : "donneeARecuperer" tu fait :Call uidoc.FieldSetText("Subject","Affaire/ N°Chrono : \""+donneeARecuperer+"\"")PS : \" permet d'avoir le caractère " dans une chaine de caractèreJ'éspère que ça fera exactemetn ce que tu cherches à faire,Emmanuelle

[nicolas]

merci infiniment ..... Je teste ....tu maitrise vraiment bien ..... A +

[Emmanuelle]

Merci pour le compliment, mais ça ne fais qu'un mois et demi que je connais Lotus Notes ! Bonne chance pour ta base,[%sig%]

[nicolas]

si je met exactement ce code il met Erreur de script ....Call uidoc.FieldSetText("Subject","Affaire/ N°Chrono : \""+donneeARecuperer+"\"")Crer mémo type 20 Type is mismatch ...

[Emmanuelle]

Bon, ça pouvait pas être parfait non plus ! Tu tiens vraimant au " ?sinon, si je met exactement ce code il met Erreur de script ....Call uidoc.FieldSetText("Subject","Affaire/ N°Chrono : "+donneeARecuperer) devrait très bien marché.Je vais regarder pour les guillemets.[%sig%]

[Emmanuelle]

Bon, il se fait tard, je regarderai demain.Bonne soirée,[%sig%]

[Sylvain]

Pour info,pour ajouter des guillemets dans une chaine :En formule utiliser "\".En lotusScript, il faut doubler le guillemet.Exemple :Formule : strChaine := "toto \" toto"Script : strChaine = "toto "" toto"[%sig%]