Programatically Format sections of text in assigned task

A

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top