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