Re : corps de message word via outlook
Bonjour
J'ai ce code mais il copie tout
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