Create a task in excel

[Wook]

Afternoon all, the following code creates an email.

Sub Test()
Set olookApp = CreateObject("Outlook.Application")
Set mailNewmail = olookApp.CreateItem(olMailItem)
With mailNewmail
.To = "Test"
.CC = ""
.Subject = "Test"
.Body = "Test"
End With
mailNewmail.Display
End Sub

Does anyone know what modifications would be required to create a task instead?

Thanks, Wook

 

[Andrew Poulsom]

Look here:

http://www.microsoft.com/technet/scriptcenter/resources/officetips/sept05/tips0908.mspx