Repost with more info - Saving a task to a child folder

This does not save the new task in the Test folder. In fact it doesn't seem
to be saving anywere.
Thanks for any help.
Carol

Public Sub TaskTest()

Dim objApp As Outlook.Application
Dim MyTasksFolder As Outlook.MAPIFolder
Dim MyFolder As Outlook.MAPIFolder
Dim objNS As Outlook.NameSpace
Dim objItm As TaskItem

Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set MyTasksFolder = objNS.GetDefaultFolder(olFolderTasks)
Set MyFolder = MyTasksFolder.Folders("Test")
Debug.Print MyFolder

Set objItm = objApp.CreateItem(olTaskItem)

objItm.Subject = "Test of Task2"
'Debug.Print objItm.Subject
objItm.SaveAs (MyFolder)
Debug.Print objItm.Subject


End Sub

This statement

Set objItm = myFolder.Items.Add

will create a task item that saves in the Test folder. The correct method to save an item is Save, not SaveAs.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Carol G" <cgeddes@shaw.ca> wrote in message news:Y8Wgh.487421$1T2.441693@pd7urf2no...
> This does not save the new task in the Test folder. In fact it doesn't seem
> to be saving anywere.
> Thanks for any help.
> Carol
>
> Public Sub TaskTest()
>
> Dim objApp As Outlook.Application
> Dim MyTasksFolder As Outlook.MAPIFolder
> Dim MyFolder As Outlook.MAPIFolder
> Dim objNS As Outlook.NameSpace
> Dim objItm As TaskItem
>
> Set objApp = CreateObject("Outlook.Application")
> Set objNS = objApp.GetNamespace("MAPI")
> Set MyTasksFolder = objNS.GetDefaultFolder(olFolderTasks)
> Set MyFolder = MyTasksFolder.Folders("Test")
> Debug.Print MyFolder
>
> Set objItm = objApp.CreateItem(olTaskItem)
>
> objItm.Subject = "Test of Task2"
> 'Debug.Print objItm.Subject
> objItm.SaveAs (MyFolder)
> Debug.Print objItm.Subject
>
>
> End Sub
>
>

Thanks Again,
Carol

"Sue Mosher [MVP-Outlook]" <suemvp@outlookcode.com> wrote in message
news:eM1pK5TIHHA.3312@TK2MSFTNGP03.phx.gbl...
This statement

Set objItm = myFolder.Items.Add

will create a task item that saves in the Test folder. The correct method to
save an item is Save, not SaveAs.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Carol G" <cgeddes@shaw.ca> wrote in message
news:Y8Wgh.487421$1T2.441693@pd7urf2no...
> This does not save the new task in the Test folder. In fact it doesn't
seem
> to be saving anywere.
> Thanks for any help.
> Carol
>
> Public Sub TaskTest()
>
> Dim objApp As Outlook.Application
> Dim MyTasksFolder As Outlook.MAPIFolder
> Dim MyFolder As Outlook.MAPIFolder
> Dim objNS As Outlook.NameSpace
> Dim objItm As TaskItem
>
> Set objApp = CreateObject("Outlook.Application")
> Set objNS = objApp.GetNamespace("MAPI")
> Set MyTasksFolder = objNS.GetDefaultFolder(olFolderTasks)
> Set MyFolder = MyTasksFolder.Folders("Test")
> Debug.Print MyFolder
>
> Set objItm = objApp.CreateItem(olTaskItem)
>
> objItm.Subject = "Test of Task2"
> 'Debug.Print objItm.Subject
> objItm.SaveAs (MyFolder)
> Debug.Print objItm.Subject
>
>
> End Sub
>
>