Programatically Format sections of text in assigned task

[Andy Bowden]

Im trying to format the UPPERCASE text that iv
concatenated in the task body. id like to make it bold and
underlined if possible.

sorry to ask such a stupid question:

Sub AssignTask()

Dim strAccount As String

Set myOlApp = CreateObject("Outlook.Application")
On Error Resume Next
Set mycontact = myOlApp.ActiveInspector.CurrentItem
strAccount = mycontact.Account


Set myOlApp = CreateObject("Outlook.Application")
Set myitem = myOlApp.CreateItem(olTaskItem)
myitem.Assign
Set myDelegate = myitem.Recipients.Add
("(e-mail address removed)")
myitem.Subject = "Owner Maintenance Job Sheet"
myitem.BillingInformation = strAccount
MyFont.Bold = True
myitem.Body = Chr(10) & "CONTACT DETAILS:" & Chr(10)
& "*********************" & Chr(10) & _
mycontact.FullName & Chr(10) &
mycontact.BusinessAddress & Chr(10) & Chr(10) & _
"TEL NO:" & " " &
mycontact.BusinessTelephoneNumber
myitem.Mileage = mycontact.FullName
myitem.Companies = mycontact.User1
myitem.Display
End Sub

 

[Sue Mosher [MVP-Outlook]]

Task bodies are in rich-text format, which means you'd need to use CDO (and
a helper .dll) or Redemption to do rich-text formatting. See
http://www.outlookcode.com/d/formatmsg.htm