Outlook Contacts ... Changing Font Size, Style, Bold, etc.

trhenkel

New Member
Outlook version
Outlook 2016 64 bit
Email Account
POP3
I am trying to access and change the properties of the .Body for my existing (3,000+) Outlook Contacts. (Not E-Mail Body, but Contacts - and also Calendar Items if it apples - Body.) I have written the following code, but I cannot find any reference to Properties, etc. which would allow me to change the Font Size, Font Style, Bolding, Underlining, etc. for the .Body.

Public Sub Access_Contact_Body()
Dim Session As Outlook.NameSpace 'Defines the NameSpace
Dim ContactsFolder As Outlook.folder 'The Contacts folder
Dim objContact As Object 'One contact

Set Session = Application.Session
Set ContactsFolder = Session.GetDefaultFolder(olFolderContacts) 'Sets the folder to Contacts

For Each objContact In ContactsFolder.Items 'Iterates through all the Contacts
With objContact 'Using the Contact item
'Exclude all DistListItem (or Groups) ...
If TypeOf objContact Is DistListItem = False Then

If .Body <> "" Then Stop

'HOW DO I ACCESS AND CHANGE THE FONT SIZE, FONT STYLE, BOLD, UNDERLINE, ETC.

End If
End With
Next
Set Session = Nothing 'Cleans up the variable
Set ContactsFolder = Nothing 'Cleans up the variable
Set objContact = Nothing 'Cleans up the variable
End Sub

Can anyone help?

PS: Forgive me if this isn't the proper way to post a question.
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
i have a sample here - you need to use inspector and word vba to change it.
 

trhenkel

New Member
Outlook version
Outlook 2016 64 bit
Email Account
POP3
i have a sample here - you need to use inspector and word vba to change it.
Diane, thanks so much. I have adapted that code to work through all the Contacts and make changes.

Follow up question:

Some of the Notes section for my Contacts (.Body) are already formatted in certain specific ways. For instance, part of the .Body for a single Contact might have a .Font.Size =12, and another part of that same .Body might have a .Font.Size =18. Using your Inspector / WordEditor technique, is there some way to re-format each section separately so that, for instance, the existing .Font.Size =12 area becomes .Font.Size =16 and the existing .Font.Size =18 area becomes .Font.Size =20? (I am really asking the more general question about identifying blocks of text which are formatted in a certain way and working with those blocks to change the properties.)

Thanks again for your expertise and help.
 
Thread starter Similar threads Forum Replies Date
B Outlook 2007 - Contacts File As: is randomly changing... Using Outlook 1
V changing or adding outlook contacts fields Using Outlook 1
J Changing default Outlook calendar, contacts, when running both .pst and .ost Using Outlook 1
L Outlook 2016 Contacts missing in Outlook 365 Using Outlook 1
J Outlook 2013 Change color of text in data fields of contacts in Outlook 2013? Using Outlook 3
O Synchronising contacts Outlook 365 with Google v.v. Using Outlook 4
J can't sync outlook calendar contacts with iphone ipad Using Outlook 4
M PST import from Outlook 2007 to 2010 - Address Book contacts all in 1 group Using Outlook 4
G Outlook 2016 sync contacts directly between phone and computer using outlook 2016 Using Outlook 0
L How do you turn off Outlook contacts "hints" popup Using Outlook 2
B How to sync Outlook, iphone and Google calendars and contacts? Using Outlook 4
W Migrating Outlook 365 Contacts & Calendar Using Outlook 2
K Outlook.com is not showing, or finding via search, all my Contacts (People) Using Outlook 0
A Add to Outlook Contacts from email - default view Outlook VBA and Custom Forms 1
R How to delete Facebook Contacts folder in Outlook 365 Using Outlook 7
C Import Outlook 2016 contacts into to: field Using Outlook 1
S Outlook.com birthdays show up 1 day late on iPhone contacts list Using Outlook.com accounts in Outlook 29
S Outlook.com cannot edit some contacts Using Outlook.com accounts in Outlook 5
S Missing Outlook calendar and contacts Using Outlook 0
T Have Outlook 2016 suggest email address auto complete entries directly from the user's contacts list Using Outlook 10
T Have Outlook 2016 suggest email address auto complete entries directly from the user's contacts list Using Outlook 0
M Outlook 2007 Contacts Glitch: Creating a new email Using Outlook 1
G Icloud Contacts With Outlook Issue Using Outlook 4
Cdub27 Move Outlook 2016 Contacts to Other Folders - Extremely Slow !! Using Outlook 6
M code to move selected Outlook contacts to another folder Using Outlook 3
A add birthday to outlook contacts Using Outlook 1
O :Managing contacts in Outlook 2016 Using Outlook 0
M How to remove a list of specific contacts from Outlook Using Outlook 18
E 365 Outlook changed from POP3 to IMAP,all contacts lost Using Outlook 3
P Current View Pane for Contacts missing from Outlook 2016 Using Outlook 3
S Outlook VBA Contacts Notes Outlook VBA and Custom Forms 0
O Contacts folders, outlook 2016 Calendar Printing Assistant 0
C Outlook 2016 doesn't show contacts in address book Using Outlook 2
P Contacts gone missing in Outlook 2013 POP Using Outlook 4
N Outlook 2010 on re-imaged computer missing calendar/contacts Using Outlook 0
Diane Poremsky Batch Import Photos into Outlook Contacts New Slipstick.com Articles 0
GregS No contacts sync from Outlook 2016 to Windows Phone Using Outlook 0
GregS Sync contacts Outlook.com to "MS People" mobile Using Outlook 1
T Uploading Outlook 2016 Contacts to Exchange Server Drops "Company" field data in 30% of records Exchange Server Administration 4
Diane Poremsky Sharing Outlook Calendar and Contacts New Slipstick.com Articles 0
Diane Poremsky Issues Syncing Outlook and iCloud Contacts New Slipstick.com Articles 0
Diane Poremsky Setting the default Country for Outlook Contacts New Slipstick.com Articles 0
J Outlook Contacts - Design This Form Outlook VBA and Custom Forms 2
L Synching Office 365 contacts to Iphone MS Outlook client Using Outlook 5
Diane Poremsky Add to Outlook Contacts Bug (Fixed) New Slipstick.com Articles 1
makinmyway Bulk Delete Contacts in iOS Outlook App Using Outlook 4
tswatek Issue with where Outlook saves new contacts Using Outlook 3
Brendan Keeping Outlook contacts on PC after signing out of icloud Using Outlook 1
I Contacts sets, Outlook.com Using Outlook 4
G Use contacts from"People" app in Win10 in Outlook Using Outlook 1
Similar threads


















































Top