B
bg17067 via AccessMonster.com
Hello all,
I have the following code that works great. Now my users want the due date
set to be 1 day from the OrderDate. I have looked for the format for the
coding and have been unsuccessful. Any assistance would be greatly
appreciated.
Thanks,
Brian
----------------------------------------
Private Sub CreateTask_Click()
Dim myMail As New Outlook.Application
Dim myTask As Outlook.TaskItem
Set myTask = myMail.CreateItem(olTaskItem)
myTask.Subject = Me.OrderNumber
myTask.DueDate = Me.OrderDate
myTask.Body = " "
myTask.Display
Set myMail = Nothing
Set myTask = Nothing
End Sub
I have the following code that works great. Now my users want the due date
set to be 1 day from the OrderDate. I have looked for the format for the
coding and have been unsuccessful. Any assistance would be greatly
appreciated.
Thanks,
Brian
----------------------------------------
Private Sub CreateTask_Click()
Dim myMail As New Outlook.Application
Dim myTask As Outlook.TaskItem
Set myTask = myMail.CreateItem(olTaskItem)
myTask.Subject = Me.OrderNumber
myTask.DueDate = Me.OrderDate
myTask.Body = " "
myTask.Display
Set myMail = Nothing
Set myTask = Nothing
End Sub