> 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+

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
Clavier sans fil Logitech Wireless Desktop K400 Plus avec pavé tactile à 32 €
32,00 € 54,99 € -42%
@Amazon
Répéteur WiFi TP-Link RE550 AC1900 à 46,99 €
46,99 € 59,99 € -22%
@Amazon
Portable 15,6 pouces HP (FHD, Ryzen 5 7520U, 16 Go DDR5, SSD 512 Go, Windows 11) à 459,99 €
459,99 € 559,99 € -18%
@Cdiscount
Casque Audio Logitech G432 à 36,99 €
36,99 € 49 € -25%
@Amazon
Loctite Super Glue-3 Précision (5g) à 4,50 €
4,50 € 7,80 € -42%
@Amazon
Batterie externe TALLPOWER V2400 2160Wh, 2400W, LifePOE4 à 719,99 €
719,99 € 899 € -20%
@Geekbuying

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