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

C

Carol G

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
 
S

Sue Mosher [MVP-Outlook]

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

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
 
C

Carol G

Thanks Again,
Carol

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

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top