View Single Post
 
Old 02-26-2025, 07:46 AM
gmayor's Avatar
gmayor gmayor is offline Windows 10 Office 2019
Expert
 
Join Date: Aug 2014
Posts: 4,144
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

Not having seen the rest of your code, it is difficult to be specific, but let us assume that you have named the document e.g.
Code:
Dim oSource as document
Set oSource = ActiveDocument.
Then copy the oSource.range to the clipboard
Code:
oSource.Range.Copy
and replace
Code:
oRng.Text = strBody
oRng.Font.Name = "Arial"
oRng.Font.Size = 10
with
Code:
oRng.Paste
to put the formatted document (minus header/footers which are not supported in mail messages) as the message body.
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote