> 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
829,99 €Portable 17,3 pouces MSI GF75 (FHD 144 Hz, Core i5, 16Go, HDD 1To, SSD 256Go, GTX1650 Ti) à 829,99 €
Valable jusqu'au 24 Octobre

RueDuCommerce fait une promotion sur le portable MSI GF75 qui passe à 829,99 € au lieu de 929 €. Cet ordinateur possède une dalle 17.3 pouces IPS Full HD 144 Hz, est équipé d'un processeur Intel Core i5-10500H, de 16 Go de RAM, d'un SSD de 256 Go et d'un disque dur de 1 To et d'une carte graphique GeForce GTX 1650 Ti 4 Go. 

L'ordinateur est livré dans OS et vous devrez donc installer vous-même Windows 10/11.

Un portable grand écran idéal pour un usage polyvalent : bureautique, multimédia et jeux !


> Voir l'offre
GratuitJeu PC Among the Sleep: Enhanced Edition gratuit
Valable jusqu'au 28 Octobre

Epic Game Store offre actuellement le jeu PC Among the Sleep: Enhanced Edition. Among the Sleep est un jeu d'aventure-horreur à la première personne dans lequel vous incarnez un enfant de deux ans. Après avoir été réveillé au milieu de la nuit par des bruits mystérieux, vous commencez à explorer l'obscurité en quête de réconfort. Le jeu exprime l'horreur par le biais de l'atmosphère et de l'exploration, sans score ni système de combat. Dans Among the Sleep, vous êtes vulnérable, effrayé, et vous essayez de comprendre le monde qui vous entoure. Audio en anglais, texte en français. PEGI 12.


> Voir l'offre
1069,99 €Portable 14 pouces HUAWEI MateBook X Pro (3K, Core i5, 16Go RAM, 512Go SSD) à 1069,99 €
Valable jusqu'au 24 Octobre

Amazon fait une promotion sur le PC portable 14 pouces HUAWEI MateBook X Pro 2021 qui passe à 1069,99 € livré gratuitement alors qu'on le trouve ailleurs à partir de 1299 €. Ce portable possède un processeur Intel Core i5-1135G7, 16 Go de RAM, un SSD 512 Go et tourne sous Windows 10 que vous pourrez passer à Windows 11. Son écran de 14 pouces au format 3:2 est 3K (3000x2000 pixels). Son poids plume de 1,3 kg et son autonomie de 10 heures vous permettront de l'emmener facilement partout avec vous. Il intègre un capteur d'empreinte digitale sur le bouton d'alimentation et se recharge via USB-C. 

Notez que l'ordinateur est accompagné du Hub MateDock 2 qui ajoute un port USB-A, un port USB-C, un port HDMI et un port VGA.


> 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