Create Task in Outlook from Excel VBA

[Jgordon]

Hello Everyone,

I'm trying to create a task in Outlook from Excel. I've gotten pretty far in this code but I'm stuck with the start date.

Let me know your thoughts

Sub tasks()

Dim OutApp As Object
Dim myItem As Object
Dim Body1 As String






Const myTitle = "Enter data"
    myPrompt = "Task content" & Chr(13) & "(describe what needs to be done)"
    
    Body1 = InputBox(myPrompt, myTitle)




Set OutApp = CreateObject("Outlook.Application")
Set myItem = OutApp.CreateItem(olTaskItem)


    With myItem
       .StartDate = Now
       .Subject = Selection.Cells(3) & Selection.Cells(5)
       .DueDate = .StartDate + 1
       .ReminderTime = .DueDate - 1
       .Body = Body1
       .Assign
       .Display
    End With


Set myItem = Nothing
Set OutApp = Nothing


End Sub

 

[Norie]

How are you stuck?

Is not accepting Now? Is it creating the task on the wrong date/time?

 

[Jgordon]

Yes. I’m worried that the task date needs to be formatted a particular way. Does that make sense?

 

[Norie]

So, is the task being created but for the wrong date/time?

PS Where are you setting the value of olTaskItem?

 

[Jgordon]

It is not creating the task at all. I run the code and it gets stuck on the Startdate

I have not set the value of the olTaskItem do you think there is an issue there?