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.
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.