DominoArea.org [Archive]

Les utilisateurs doivent remplir un formulaire Lotus Notes pour une entreprise extérieure.La personne qui doit réceptionner le formulaire n'a pas LNotes mais une adresse internet OutLook. Est-ce qu'il est possible de transformer le masque en entier en fichier word ?Ou une autre idée sera la bienvenue ?Merci

Tu as la possiblité en LS de générer, en dynamique, un fichier WORD, de l'attaché à ton mail et de l'envoyer.

Tu peux utiliser ceciDim WordApp as variantSet WordApp = createObject("Word.document")Par cette "commande" tu créer une instance d'un fichier word. Ensuite il te faut connaitre les commande VBA de word. Petite astuce, tu peux t'aider du générateur de macro de Word.

Voici un exemple de quelques commande Word.Le prog créé, en dynamique, un fichier Word Test.doc dans la directory c:\temp\Sub InitializeDim WordApp As VariantDim Application As VariantDim PageCourante As VariantDim Selection As Variant Set WordApp = createObject("Word.document")Set Application = WordApp.ApplicationSet PageCourante = WordApp.Application.ActiveDocumentSet Selection = Application.Selection ' Création d'une pageIf PageCourante Is Nothing Then Application.Documents.Add' Mise en pageWith PageCourante .PageSetup.TopMargin = 42 ' car 28.5 est envion égal à 1cm .PageSetup.BottomMargin = 42 .PageSetup.LeftMargin = 42 .PageSetup.RightMargin = 42 .PageSetup.HeaderDistance = 18 .PageSetup.FooterDistance = 18End WithSelection.Font.Size = 10Selection.TypeText "Bonjour"' Visualisation de l'objetWordApp.Application.visible= True ' Sauvegarde du doc WordPageCourante.SaveAs "C:\temp\test.doc", 113 ' Le 113 c'est pour le fichier soit compatible avec Word97' Fermeture du documentPageCourante.CloseEnd Sub

Voici un exemple de quelques commande Word.Le prog créé, en dynamique, un fichier Word Test.doc dans la directory c:\temp\Sub InitializeDim WordApp As VariantDim Application As VariantDim PageCourante As VariantDim Selection As Variant Set WordApp = createObject("Word.document")Set Application = WordApp.ApplicationSet PageCourante = WordApp.Application.ActiveDocumentSet Selection = Application.Selection ' Création d'une pageIf PageCourante Is Nothing Then Application.Documents.Add' Mise en pageWith PageCourante .PageSetup.TopMargin = 42 ' car 28.5 est envion égal à 1cm .PageSetup.BottomMargin = 42 .PageSetup.LeftMargin = 42 .PageSetup.RightMargin = 42 .PageSetup.HeaderDistance = 18 .PageSetup.FooterDistance = 18End WithSelection.Font.Size = 10Selection.TypeText "Bonjour"' Visualisation de l'objetWordApp.Application.visible= True ' Sauvegarde du doc WordPageCourante.SaveAs "C:\temp\test.doc", 113 ' Le 113 c'est pour le fichier soit compatible avec Word97' Fermeture du documentPageCourante.CloseEnd Sub

Merci beaucoupJe n'avais pas vu ta réponse car je pensais recevoir les réponses dans ma boîte Email et je n'ai pas eu le réflexe dans le forum tous les joursje vais tester l'exemple que tu m'as donnéBon week-end

si tu veux une autre idée, tu peux transférer l'intégralité d'un document (datas et masque) avec LotusScript:utilise la méthode 'RenderToRTItem' de la classe NotesDocument.ça prend le doc avec son masque et en génère une copie que tu places dans le champ texte riche Body du mémo que tu envois à outlook.si l'admin a bien configuré ses serveurs, la copie lors de l'envoi est généré en html et ça marche nickel sur outlook.ça évite de se faire ch... à faire un word, alors que là, tu as juste une ligne.

En ce qui concerne le forum, il est hébergé par Free qui propose ce service gratuitement. Par contre, ils n'authorisent pas les fonctions mails. C'est d'ailleur pour ça qu'il ya un bandeau de pub sur la page d'accueil ...afin qu'un annonceur veuille bien donner '3 francs 6 sous' histoire de pouvoir se payer un hebergeur plus performant.J'en profite donc pour relancer un appel, vous êtes intéressé pour annoncer sur Dominoarea ? cliquez sur le bandeau de la page d'accueil et annoncer en moins de 5 minutes à des prix défiants toute concurrence. En prime on vous offre le t-shirt dominoarea (euh non ça c'est pas vrai).[%sig%]