I am currently using the code below in my DB. All works fine except I would like to make the path in [Text819] a hyperlink when it goes into the task body. Is that possible?
Code:
Sub AssignTask()
Dim myOlApp As New Outlook.Application
Dim myItem As Outlook.TaskItem
Dim myDelegate As Outlook.Recipient
Set myItem = myOlApp.CreateItem(olTaskItem)
If IsNull(Me.[Store #]) Then
myItem.Subject = Me.Subject & " Task #" & Me.[Task ID]
ElseIf Not IsNull(Me.[Store #]) Then
myItem.Subject = Me.[Store #] & "- " & Me.Subject & " Task #" & Me.[Task ID]
End If
myItem.DueDate = [Due Date]
myItem.Body = [Summary] & Chr(13) & Chr(13) & _
[COLOR=red][Text819][/COLOR]
myItem.Display
myItem.StartDate = Date