> Tous les forums > Forum Bureautique
 corps de message word via outlook
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
massjipe
  Posté le 11/04/2015 @ 14:22 
Aller en bas de la page 
Petit astucien

Bonjour

Je voudrai envoyer la première page d'un document Word 2010 en corps de message via Outlook 2010 en vba ou autre.
je sais que sur Word on peut utiliser envoyer au destinataire du message mais seulement la mise en page n'est plus la même. en VBA je ne connait pas grand chose
si quelqu'un peut m'aider
merci

Publicité
Gabrilou
 Posté le 11/04/2015 à 15:03 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

As-tu essayé le copier coller ?

Quand je tape un document sur Word, justement pour soigner ma mise en page et que je recopie dans outlook, la mise en page reste.

massjipe
 Posté le 14/04/2015 à 15:22 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour

le problème est difficile à copier il y a une image et des tableaux

Gabrilou
 Posté le 14/04/2015 à 21:50 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

En effet, si j'ajoute un ou deux tableaux, ils s'incorporent sans problème, avec la même mise en page. Par contre, il n'en n'est pas de même pour les images qui gardent leur position au niveau du paragraphe, mais qui sont systématiquement positionnées à gauche.

Essaye ceci :

Lorsque tu es dans le corps du message, dans outlook (pour pour 2007) :

  • Onglet Insertion
  • Objet
  • Créer à partir du fichier
  • Parcourir
  • Sélectionner ton fichier
  • Ok

Seule la première page sera insérée, ce qui correspond à ta demande. À noter qu'insérée de cette manière, on ne peut pas modier le texte.

A+

massjipe
 Posté le 15/04/2015 à 09:30 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

J'ai récupéré le code sur site mais il prend tous les pages du document et je perd la mise en forme j'ai rajouté les 2 premières lignes

Sub TestMail()
Dim r As Range
Set r = ActiveDocument.Range(1, Selection.GoTo(what:=wdGoToPage, which:=wdGoToAbsolute, Count:=2).Start - 1)
Dim AdresseFrom As String, AdresseDest As String, CCI As String, CC As String
Dim Sujet As String, Corps As String
Dim wdapp As Word.Application
Dim myitem As MailItem
Dim worddoc As Document
 
Set OL = CreateObject("outlook.application")
Set myitem = OL.CreateItem(olMailItem)
Set wdapp = Word.Application
 
AdresseFrom = "Ax"
AdresseDest = "Ax"
CC = "liste eventuelle mail en copie"
CCI = "Ax"
Sujet = "Prise en compte du dossier N°"
 
myitem.To = AdresseDest
 
myitem.Subject = Sujet
myitem.CC = CC
myitem.BCC = CCI
wdapp.Documents(1).Content.Copy
 
Set worddoc = myitem.GetInspector.WordEditor
worddoc.Range.PasteAndFormat wdFormatOriginalFormatting
myitem.Display ' c'est ICI la méthode Display
 
Set OL = Nothing
Set myitem = Nothing
Set wdapp = Nothing
End Sub

Gabrilou
 Posté le 15/04/2015 à 13:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

La solution que je te donne fonctionne, même pour une mise en page complexe. L'as-tu au moins essayée ?

Si tu tiens absolument passer par une macro, je ne peux pas t'aider.

massjipe
 Posté le 15/04/2015 à 15:29 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour

oui j'ai testé ca fonctionne sous Outlook 2010 mais c'est pas vraiment ca que je recherche je voudrai passer par une macro mais en macro je connais rien

Merci de bien vouloir m'aider

massjipe
 Posté le 16/04/2015 à 15:49 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour

Si quelqu'un peut m'aider en vba j'en serai ravi

Merci

massjipe
 Posté le 25/04/2015 à 17:11 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour

Bonjour
j'ai adapté la page Word en fonction d'Outlook mais il copie tous les pages
A+

Publicité
Gabrilou
 Posté le 25/04/2015 à 18:21 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Juste un commentaire.

Dans la macro originale, si tu fais un un copier/coller de ta page et qu'ensuite tu exécutes la macro, tout marche nickel. Il ne reste plus qu'à savoir comment sélectionner 1 seule page pour automatiser le tout.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
49,90 €Routeur TP-Link Archer AX10 WiFi 6 à 49,90 €
Valable jusqu'au 18 Juin

Amazon fait une promotion sur le routeur TP-Link Archer AX10 WiFi 6 qui passe à 49,90 € au lieu de 80 €. La livraison est gratuite. L’Archer AX10 de TP-Link embarque la technologie WiFi 6 (802.11ax) qui permet de passer à la vitesse supérieure (1.5 Gbps) tout en étant rétro-compatible avec les normes WiFi 802.11a/b/g/n/ac. Doté de 4 antennes Wi-Fi et capable de prendre en charge la technologie 1024 QAM et les canaux 160 MHz, l'Archer AX10 est aussi pourvu d'une prise WAN 1 GbE et de 4 ports Ethernet Gigabit. Les nombreux appareils connectés peuvent ainsi bénéficier de la meilleure connexion possible en toute fluidité.


> Voir l'offre
84,98 €SSD Crucial BX500 1 To à 84,98 €
Valable jusqu'au 18 Juin

Amazon propose actuellement le SSD Crucial BX500 1 To à 84,98 € livré gratuitement. Ce SSD offre des débits de 540 Mo/s en lecture et 500 Mo/s en écriture. Le SSD est accompagné du logiciel Acronis true image qui vous permettra de transférer tout le contenu de votre ancien disque dur sur le SSD. Il est garanti 3 ans.


> Voir l'offre
99,99 €Ecran Lenovo 24 pouces D24-20 (Full HD, VA, 75 Hz, FreeSync) à 99,99 €
Valable jusqu'au 18 Juin

Fnac propose actuellement l'écran 24 pouces Lenovo D24-20 à 99,99 € alors qu'on le trouve ailleurs à plus de 129 €. Cet écran dispose d'une dalle Full HD (1920x1080) à bords fins, avec un temps de réponse de 5 ms et un rafraichissement de 75 Hz. Il possède des entrées VGA et HDMI. Il est compatible Freesync.  


> Voir l'offre

Sujets relatifs
Insertion fichiers dans corps message outlook 2003
Utiliser Word et Outlook pour envoyer un message.
Blocage message dans boite d'envoi outlook 2010
recevoir mais pas envoyer message sur outlook 2007
outlook : impression automatique après envoie d'un message
Message Outlook 2007
Message outlook
Message d'erreur dans Outlook 2007
Message outlook 2007 intempestif
Souci word message ZnWordAddin
Plus de sujets relatifs à corps de message word via outlook
 > Tous les forums > Forum Bureautique