>>> Sue >>> >>> The suggestion set the little cogs in motion ;) >>> >>> The following now does work to paste the formatted text into the >>> body of the message, and I have added a routine to grab the >>> addressee information from Outlook. However while it does work when >>> Outlook is running already, it usually crashes Word when Outlook is >>> supposed to be started from the macro. >>> >>> Sub Send_Extract_As_EMail() >>> ' send the document in an Outlook Email message >>> ' 2007 Graham Mayor, Tony Jollans, Doug Robbins >>> ' & Sue Mosher >>> >>> Dim bStarted As Boolean >>> Dim oOutlookApp As Outlook.Application >>> Dim oItem As Outlook.MailItem >>> Dim objDoc As Word.Document >>> Dim strEMail As String >>> >>> strEMail = "<PR_EMAIL_ADDRESS>" >>> 'Let the user choose the contact from Outlook >>> 'And assign the email address to a variable >>> >>> strEMail = Application.GetAddress("", strEMail, _ >>> False, 1, , , True, True) >>> If strEMail = "" Then >>> MsgBox "User cancelled or no address listed", , "Cancel" >>> End If >>> >>> 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) >>> Set objDoc = oItem.GetInspector.WordEditor >>> With oItem >>> .to = strEMail >>> .Subject = InputBox("Subject?") >>> Selection.Copy >>> objDoc.Range.Paste >>> .Display >>> End With >>> >>> 'Clean up >>> Set oItem = Nothing >>> Set oOutlookApp = Nothing >>> End Sub

>>> >>> Sue Mosher [MVP-Outlook] wrote: