create new task folder in outlook

Could someone please help me with the following


I know how to create a task in outlook using vba

dim olApp as outlook.application
dim olTask as outlook.taskitem

set olapp = new outlook.application
set oltask = olapp.createobject(oltaskitem)

with oltask
.subject
.startdate
etc.
.display or .save
End with

set olapp = nothing
set oltask = nothing


but how do you create the folder or choose the folder where the task needs to go?


Thank you for any help


Josh

Try this.

Dim olApp As Outlook.Application
Dim olTask As Outlook.TaskItem
Dim fld As Outlook.Folders

Set olApp = New Outlook.Application
Set olTask = olApp.CreateObject(oltaskitem)
Set fld = olApp.CreateObject(Folders)


With olTask
.Subject = "Task1"
.StartDate = " "
End With

With fld
.Add olTask
End With

Set olApp = Nothing
Set olTask = Nothing
Set fld = Nothing

Regards,
Gajendra