Bolding Text in Macro

[Jeff - Footprints]

I am struggling to figure out how to bold title fields in a macro I have
created. the macro is below. How do I bold certain elements of this so that
it appears better.

IE: titles for First Name and Last Name... how do i bold in this macro?

Sub Airplane()
Dim CI As Outlook.ContactItem
Dim MI As Outlook.MailItem
Set MI = CreateItem(olMailItem)

If TypeName(Application.ActiveWindow) = "Inspector" Then
Set CI = ActiveInspector.CurrentItem
strbody = "Hey there Claus, need a ticket for " & CI.FirstName & " " &
CI.LastName & ". “& CI.FirstName & “ is heading to xxxx, †&
CI.UserProperties(“Dest1â€) & “.†& vbCrLf & vbCrLf

strbody = strbody & "Here are the details: " & vbCrLf
strbody = strbody & "From " & CI.MailingAddressCity & " to " &
CI.UserProperties("Dest1") & vbCrLf
strbody = strbody & CI.FirstName & " needs to leave on or around
xxxxxxxx" & vbCrLf & vbCrLf
strbody = strbody & "Here is the full name and personal information:"
& vbCrLf
strbody = strbody & "First Name : " & CI.FirstName & vbCrLf
strbody = strbody & "Last Name: " & CI.LastName & vbCrLf & vbCrLf
strbody = strbody & "Contact Information: " & vbCrLf
strbody = strbody & "Home Phone Number: " & CI.HomeTelephoneNumber &
vbCrLf
strbody = strbody & "Cell Phone Number: " & CI.UserProperties("Cell
Phone").Value & vbCrLf & vbCrLf
strbody = strbody & "Email: " & CI.Email1Address & vbCrLf & vbCrLf
strbody = strbody & "Address: " & vbCrLf
strbody = strbody & "Street/Apartment: " & CI.MailingAddressStreet &
vbCrLf
strbody = strbody & "Address Line 2: " & CI.UserProperties("Other
Address").Value & vbCrLf
strbody = strbody & "City: " & CI.MailingAddressCity & vbCrLf
strbody = strbody & "State/Province: " & CI.MailingAddressState & vbCrLf
strbody = strbody & "Postal Code: " & CI.MailingAddressPostalCode &
vbCrLf
strbody = strbody & "Country: " & CI.MailingAddressCountry & vbCrLf

strbody = strbody & "Regards," & vbCrLf & vbCrLf
strbody = strbody & "Jeff" & vbCrLf & vbCrLf
strbody = strbody & "Footprints Recruiting Incorporated" & vbCrLf
strbody = strbody & "www.footprintsrecruiting.com" & vbCrLf
strbody = strbody & "phone: + (604) 677-6559" & vbCrLf
strbody = strbody & "email: (e-mail address removed)" & vbCrLf
MI.Body = strbody

End If

'strTo = (e-mail address removed)
'MI.To = strTo

www.footprintsrecruiting.com

 

[Michael Bauer [MVP - Outlook]]

You must create an HTML e-mail. Example:

strBody = "<p>Hi there, <b>Claus</b></p>"
MI.HTMLBody = strBody

Instead of vbCRLF use "<br>" in HTML.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Quick-Cats - The most effective way to assign Outlook categories:
http://www.shareit.com/product.html?productid=300120654&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)


Am Wed, 28 Mar 2007 21:56:01 -0700 schrieb Jeff - Footprints: