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

Status
Not open for further replies.
T

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.
 
i have a sample here - you need to use inspector and word vba to change it.
www.slipstick.com

Changing the font in Outlook's Notes field

How to change the font in the Notes field of Appointments, Contacts, and Tasks, but not in Email bodies using VBA. I'll show you how.
www.slipstick.com www.slipstick.com
 
Diane Poremsky said:
i have a sample here - you need to use inspector and word vba to change it.
www.slipstick.com

Changing the font in Outlook's Notes field

How to change the font in the Notes field of Appointments, Contacts, and Tasks, but not in Email bodies using VBA. I'll show you how.
www.slipstick.com www.slipstick.com
Click to expand...

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.
 
Status
Not open for further replies.
< why are the calendar icons different for different accounts | Add, remove, & reorder folder pane >
Similar threads
Thread starter Title Forum Replies Date
G Add Map It button to Custom Contacts Form in Outlook Outlook VBA and Custom Forms 1
B Sync Outlook Public Folders to Contacts Using Outlook 2
Kika Melo How to mark as Junk any message not from Contacts (in Outlook.com) Using Outlook 3
G Outlook 365 My iCloud Outlook doesn’t work after reinstalling Microsoft365 on Windows 10 PC – now I get error message on contacts and calendar Using Outlook 1
T How to Export & Import GMAIL Contacts into Outlook 2021 ? Using Outlook 4
O How to sync (one way) contacts between two Outlook (exchange) accounts? Using Outlook 0
K Outlook 365 After migrating to Outlook 365, some contacts display in emails with prefixes Using Outlook 0
kburrows Outlook or Phone Combining Contacts? Using Outlook 0
R How to force Outlook to use plain text in notes for Contacts? Using Outlook 1
J Outlook 365 Outlook 2016/365 Contacts Lose Info when Favorited to the To-Do Bar Using Outlook 2
P Outlook calendar and contacts sync problem-outlook disconnects Using Outlook.com accounts in Outlook 2
O Outlook - hidden contacts? Using Outlook 2
S Outlook 2016 Change how Outlook shows me contacts in emails Using Outlook 0
Horsepower Contacts added from iPhone don't show up in Outlook Using Outlook 2
D Outlook Contacts Notes Field Photos to Smartphone Using Outlook 0
G Add to Outlook Contacts - Point to non-default contacts folder Using Outlook 0
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 10
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 27
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 Using Outlook 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 Using Outlook 0
GregS No contacts sync from Outlook 2016 to Windows Phone Using Outlook 0

Similar threads

Back
Top