Assign task from excel

[mramoxia]

Hi,

I've been trying to get a code together for sending a task from an excel sheet to someone via outlook but can't work it out. I've found a couple of codes on here but keep getting errors.

Can anyone help me out?

Sub tasksend()

Dim objOut As Object
Dim objTask As Object
Dim strbody As String




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


strbody = "blah"


With objTask
.Assign
.Subject = Range("E65536").End(xlUp).Offset(0, 0).Value
.Body = strbody
.DueDate = Range("H65536").End(xlUp).Offset(0, 0).Value
.Recipients.Add (Range("M65536").End(xlUp).Offset(0, 0).Value)
'.Send
.Display
End With




Set objTask = Nothing
Set objOut = Nothing




End Sub

 

[Chameleon64]

You'll need to change the second SET command to:

Set objTask = objOut.CreateItem(olTaskItem)

If you still get an error, check that you have the Microsoft Outlook Object Library installed (VBA Editor/Tools/References).

 

[mramoxia]

Thanks Chameleon64 - got past that point but then had to make sure that the library was ticked too. Thanks for the help.