Paste from Windows Clipboard then change font without losing formatting

Not open for further replies.

Kelly Sprayberry

New Member
Outlook version
Outlook 2007
Email Account
Exchange Server
I need a little help on a macro that will help simplify copying and pasting from a Console terminal window into an email and be able to keep the formatting, yet change the font. What I need to do to make it look right is paste it into the email and then change all the text to "Courier New" from "Calibri" and the spacing and everything looks very close to what is in the terminal window. I can do everything I need to do, but when I change the text using the HTMLBody and font tags, I loose all the spacing and formating of my text string. I guess it's easy enough to just paste the stuff into the email and then highlight it and change the font, but I'd really just like to do it in VBA just because it is stumping me.

Sub sendmyemail()

Dim OutMail As Object
Dim strbody As String
Dim DataObj As MSForms.DataObject
Set DataObj = New MSForms.DataObject
strpaste = DataObj.GetText(1)

Set OutMail = Outlook.CreateItem(olMailItem)

With OutMail
.To = "FOChangelist"
.Subject = "FO Change"
.Body = strpaste

'The above works and I don't lose my spacing and line format, but it is a little jumbled. I paste it and change 'the font and the "jumbledness" goes away and the spacing looks very close to what I need.

'or use the :

.HTMLBody = "<font face=Courier New>" & strpaste & "</font>"

'The above loses all the space and line formatting.

'Example of comments to paste into the body of the email. or something very close
'or use the HTML Body
'2. 01/26/17 01 Per customer AC-6 will ship on 03/15 and be onsite 03/23. Th
' S S e ship/onsite schedule for remaining units stay the same as
' below.
'3. 01/13/17 01 Provide one "empty conduit from control panel to the supply
' NSZ , return duct sections and to NEMA boxes, on units that
' require a NEMA box, for field installation & wiring of
' smoke detectors.

End With

Set OutMail = Nothing
Set DataObj = Nothing
End Sub

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
I'm pretty sure this will work with Outlook 2007 -

See Create Task or Appointment and Insert Selected Text for a method that uses word. Since you have the text copied, you will ship the section that copies - the import part is the paste:
objSel.PasteAndFormat (wdFormatOriginalFormatting)
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
P Can't paste an image into a task Using Outlook 3
P Add Paste Unformatted to QAT Using Outlook 1
B Paste formatted text (bold, underlined and in quotes) Outlook VBA and Custom Forms 1
J VBA Outlook : Subject line : Cut and Paste name to heading , number to very end of the body of Email Outlook VBA and Custom Forms 1
O Macro - paste as plain text Outlook VBA and Custom Forms 2
D Paste Excel table into Outlook message Outlook VBA and Custom Forms 6
O How to paste website content using a specific font and removing URLs Using Outlook 2
D Outlook macro with today's date in subject and paste clipboard in body Outlook VBA and Custom Forms 1
N Paste content to Excel when .txt file (attachment) is opened Outlook VBA and Custom Forms 1
Stilgar Relsik Create a rule to copy text from an email and paste it in the subject line. Using Outlook 1
H Macro to Copy Specific content from Mail Body and Paste to Excel Outlook VBA and Custom Forms 4
Diane Poremsky Paste clipboard contents using VBA Using Outlook 0
A Outlook: copy & paste Outlook VBA and Custom Forms 9
V Copy and paste body and subject and send multiple emails Outlook VBA and Custom Forms 3
G outlook 13 copy & paste without losing formatting Using Outlook 1
C Copy Cell value from Excel and paste into current email Outlook VBA and Custom Forms 10
R Copy/paste mailing address Outlook 2013 Using Outlook 6
D Open attached CSV, copy newdata and paste it to database CSV Outlook VBA and Custom Forms 2
O Copy email content and paste into new Word Document using a different font Using Outlook 1
makinmyway Research Pane in Emails Turns on and Cut Paste Keys then Stop Working Using Outlook 5
L Outlook 2007 Delete and Paste Between Fields Using Outlook 25
L "sometimes" cant send mail, we have to copy and paste the message and resend? Using Outlook 2
I Clipboard paste in macro Using Outlook 14
F Cut and Paste Addresses from Excel Suddenly Limited Using Outlook 4
N Cut and Paste Taking 25 seconds Using Outlook 0
R how to copy a list of email contacts and paste them only as names (not names + email address) Using Outlook 12
G Outlook 2007 Macro: Paste - Paste Special - Unformatted Text Outlook VBA and Custom Forms 9
K Copy Entire Email Content - Paste into new Task Outlook VBA and Custom Forms 2
K How to copy Contact Item to Clipboard and Paste as "VCF Link? Outlook VBA and Custom Forms 4
Z unable to paste screenshot into custom form Outlook VBA and Custom Forms 2
S Using copy paste to grab email addresses from the TO: address fiel Using Outlook 14
V Outlook 2003 and Windows 11 Using Outlook 4
G VBA to save selected Outlook msg with new name in selected network Windows folder Outlook VBA and Custom Forms 1
T Why is every new email pinned (to keep it on top)? Windows 10 Using Outlook 6
B Emails get stuck in Outbox of Gmail IMAP in Outlook for Windows Using Outlook 0
V Outlook 2016 Does Outlook-2016 (64 bit) work with iCloud for Windows ? Using Outlook 5
V Outlook 2016 Outlook-2016 and iCloud for Windows - Problems Using Outlook 10
D Outlook 2010 Outlook in Windows 10 keeps asking for user name and password repeatedly Using Outlook 14
L Unable to Sync Web/Android MS To Do with Windows Outlook Tasks Using Outlook 3
B iCloud for Windows 11.2 disconnects by itself after 30-45 minutes Using Outlook 9
DoctorJellybean Windows Security Credentials appears once a day Using Outlook 2
D iCloud Add-in not working in Outlook 2013 and Outlook 2016 After Windows Upgrade & iCloud Upgrade Using Outlook 2
M Outlook 2010 Problem with OutLook 2010 32 bit, after Windows Auto Update Using Outlook 3
Marc2019 Cannot input Vietnamese Characters on my MSOutlook 2016 in Windows 7 Using Outlook 0
S Outlook 2007 Calendar instant search problem. Windows 7 Using Outlook 4
S Outlook 2007 Calendar instant search problem. Windows 7 Using Outlook 0
O Windows 1803 update : QAT and toolbar changed, language pack gone... Using Outlook 5
Mark Foley Color Categories on IMAP mail lost when installing new Windows 7 workstation Using Outlook 12
R Outlook and the Windows 10 notification center Using Outlook 8
V Outlook 2003 problem with Windows 10 Creators Update 1709 Using Outlook 0

Similar threads