Paste from Windows Clipboard then change font without losing formatting

Status
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
DataObj.GetFromClipboard
strpaste = DataObj.GetText(1)

Set OutMail = Outlook.CreateItem(olMailItem)


With OutMail
.Display
.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
'1. 01/31/17 01 SERVICE: CONSULT WITH ENGINEERING ON THE BLOWER SPRINGS FOR
' GWM AC-4. THE SPRINGS WERE CHANGED LAST MINUTE AND APPROVED BY
' ENGINEERING.
'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.


.Display
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)
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
I Office 2003 Crashes when trying to Copy, Paste, or Save with Windows 7 Professional Using Outlook 4
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 New Slipstick.com Articles 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
S I'm not able to copy and paste on outlook. Using Outlook 1
M Outlook 2007 Copy-Paste problems Using Outlook 6
L Hyperlins within Outlook will not work, I have to cut and paste to internet explorer, how can this be fixed Using Outlook 1
F I cannot highlight text in Microsoft Outlook 2010 e-mails, and copy/paste to the body of another e-m Using Outlook 3
J cannot copy and paste while in list view in-cell editing Using Outlook 1
N Cannot paste image in the body of an email, it will only attach it as a file. Using Outlook 4
J How to copy and paste in Outlook 2010 ? Using Outlook 3
S Copy/Paste from Office Word 2003 to Outlook 2003 Using Outlook 3
R copying or cutting an appointment to paste it to a different date Using Outlook 1
J OWA copy/paste and drag/drop Question Exchange Server Administration 2
J asking again, why am I getting weird thing when I want to paste in email? Using Outlook 6
D Problem with Microsoft Office 2010 Clipboard (Copy and Paste) Using Outlook 1
O How do I copy and paste calendar dates in 2010 outlook? Using Outlook 1
A UNABLE TO PASTE WEBSITE DATA INTO A NEW EMAIL Using Outlook 3
R UNABLE TO PASTE ATTACHEMENT INTO NEW EMAIL Using Outlook 2
S Outlook 2010 Very slow paste. Using Outlook 2
R how to copy a list of email contacts and paste them only as names (not names + email address) Using Outlook 12
B Paste Shortcut to an Outlook Item Using Outlook 1
B Every time I paste into an email Outlook locks up Using Outlook 1
J Copy/paste in outlook & pasted text is in html Using Outlook 17
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
Similar threads


















































Top