× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > 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 poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
84,99 €Souris gamer sans fil Logitech G502 Lightspeed à 84,99 € avec le code VIP15
Valable jusqu'au 28 Octobre

Boulanger propose actuellement la souris gamer Logitech G502 Lightspeed 84,99 € avec le code promo VIP15. On la trouve ailleurs autour de 130 €. Cette souris utilise la technologie sans fil Lightspeed pour une performance sans aucun temps de latence, possède un capteur HERO 16 000 dpi et dispose de 11 boutons que vous pouvez programmer et d'un éclairage RVB personnalisable avec jusqu'à 16,8 millions de couleurs. 


> Voir l'offre
70,89 €Carte mémoire microSDXC UHS-I SanDisk Ultra 512 Go à 70,89 €
Valable jusqu'au 28 Octobre

Amazon propose aujourd'hui la carte mémoire microSDHC UHS-I SanDisk Ultra 512 Go à 70,89 € livrée gratuitement. On la trouve trouve ailleurs à partir de 90 €. Cette carte mémoire offre des vitesses jusqu'à 100 Mo/s et est idéale pour les téléphones, caméras et appareils photo HD. Elle est certifiée GoPro, Switch et est accompagnée d'un adaptateur SD.


> Voir l'offre
399,99 €TV 55 pouces QLED 4K Continental Edison (WiFi, bluetooth, HDR, Android 9) à 399,99 €
Valable jusqu'au 28 Octobre

Cdiscount fait une promotion sur la TV 55 pouces QLED 4K Continental Edison qui passe à 399,99 € au lieu de 599 €. Derrière son écran 55 pouces (139 cm) Ultra HD 4K au design sans bordure, vous trouverez la toute dernière technologie QLED qui associée aux fonctionnalités HDR, Android 9, Google Assistant vous proposera une expérience visuelle unique et sublimera tous vos contenus préférés.


> 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