>>> I can't think of a way to pass the formatting between the >>> applications using this macro construction. Until someone comes up >>> with something better, change the line. >>> >>> .Body = Selection >>> to >>> .Body = "" >>> >>> and paste your formatted selection into the text area. >>> >>> To cast the net wider I have cross-posted to the programming and >>> Outlook forums >>> >>> Sub Send_Extract_As_Mail() >>> ' send the document in an Outlook Email message >>> Dim bStarted As Boolean >>> Dim oOutlookApp As Outlook.Application >>> Dim oItem As Outlook.MailItem >>> >>> On Error Resume Next >>> >>> 'Get Outlook if it's running >>> Set oOutlookApp = GetObject(, "Outlook.Application") >>> >>> 'Outlook wasn't running, start it from code >>> If Err <> 0 Then >>> Set oOutlookApp = CreateObject("Outlook.Application") >>> bStarted = True >>> End If >>> >>> 'Create a new mailitem >>> Set oItem = oOutlookApp.CreateItem(olMailItem) >>> With oItem >>> .to = "someone@somewhere.com" >>> .Subject = InputBox("Subject?") >>> .Body = Selection >>> .Display >>> End With >>> 'Clean up >>> Set oItem = Nothing >>> Set oOutlookApp = Nothing >>> End Sub >>> >>> >>> -- >>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<> >>> Graham Mayor - Word MVP >>> >>> My web site www.gmayor.com >>> Word MVP web site http://word.mvps.org >>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<> >>> >>> >>> >>> George Lutz wrote: